Arsip: Contoh Membuat Password Yang Di Encrypt


by MrMixer in Articles more 18 years ago 5409
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;

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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