Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ini : TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'key.ini');
if Edit1.Text = Edit2.Text then
begin
Encode(Edit2.Text, 'abcdefgh12345678');
ini.WriteString('Text', 'Key', Edit2.Text);
ShellExecute(Application.Handle, 'open', 'winver.exe',nil,nil,SW_SHOW);
Form1.Close;
end
else
Label1.Caption := 'klappt nicht';
ini.free;
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var ini : TIniFile;
P: String;
begin
Edit2.Text := '';
Label1.Caption := '';
Label2.Caption := '';
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'key.ini');
P := Ini.ReadString('Text', 'Key', Edit2.Text);
Decode(P, 'abcdefgh12345678');
if Edit1.Text = P then
begin
ShellExecute(Application.Handle, 'open', 'winver.exe',nil,nil,SW_SHOW);
Application.Terminate();
end;
end;
mit diesem Implementierung kommt zwar kein Fehler mehr und das programm wird komiliert, jedoch wird Edit2.text am Anfang gar nicht verschlüsselt sondern einfach so wie es ist in die ini gespeichert.
Genau so funktioniert Decode nicht.
die Bezeichnung für beide ist:
Delphi-Quellcode:
function Encode(const Value, Password:String):String;
function Decode(const Value, Password:String):String;
wie muss ich den befehl jetzt eingeben, damit er doch noch verschlüsselt ?