Arsip: Contoh Membuat Password Yang Di Encrypt


by MrMixer in Articles more 13 years ago 4001
Bagi para pemula pemakai Delphi, agak sulit mungkin membuat Password yang di Encrypt (diacak).
Nah.. tips program berikut ini mungkin bisa membantu anda dalam membuat program Password yang tidak terbaca oleh orang lain.

procedure TForm1.Button1Click(Sender: TObject);
var
s: String[255];
c: array[0..255] of Byte absolute s;
i: Integer;
begin

{Encode Password}

s := Edit1.Text;
for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
Label5.Caption := s;

{Decode Password}

s := Label5.Caption;
for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
Label6.Caption := s;
end;

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com