Encrypt decrypt simple

Tentu saja diluar sana banyak sekali tehnik Hash Function yang sudah banyak digunakan seperti MD, RC, SHA, Base dan lain-lain yang sudah cukup populer dan tentunya pasti para maestro pada membuat formula untuh mendescribe metode-metode diatas, karena tentu saja function Decrypt & Encrypt metode metode hash diatas banyak digunakan, karena metode eksrip yang sudah sangat rumit mungkin saat ini belum ada yang bisa men decode.

Saya browse Google  tapi saya lupa dari situs mana dapat metode ini :(

Saya mendapatkan metode yang kalau saya bilang Hash yang “Sederhana Nan Cantik”, karena kita bisa customize hash yang kita buat dengan merubah nilai yang  ada didalam funsinya..

langsung saja Code yang saya dapat dari hasil googling tersebut

Fungsi Enskripsi (Write)

Function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer):string;
var
I : Byte;
begin
Result := '';
      for I := 1 to Length(InString) do
      begin
      Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
      StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
      end;
end;

Fungsi Deskripasi (Read)

Function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):string;
var
I : Byte;
begin
Result := '';
    for I := 1 to Length(InString) do
    begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
    end;
end;

Untuk Cara pemakaian Fungsi diatas dengan cara seperti ini

password:=Encrypt(ePass.Text,3,2,1);
// nilai 3,2,1 bisa dirubah-rubah sesuai keinginan
eLihat.Text:=Decrypt(password,3,2,1);
//saat men deskrip nilai 3,2,1 harus sama dengan nilai saat enskripnya

Dan Hash sederhana terbentuk dan tidak semua orang tahu :) dan tetntu saja kita tetep musti berhati hati hehe..