Forum: Object-Pascal / Delphi-Language
Delphi
by walter_b,
29. Jul 2008
function EncodeText(Key: String): String;
begin
with TCipher_1DES.Create do
try
Mode := cmECBx;
Init(Key);
Result := EncodeBinary('KGS!@#$%');
finally
Free;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by walter_b,
28. Jul 2008
Hm... Die Funktion, die du mir damals vorgeschlagen hast, hat wunderbar funktioniert. Jedoch habe ich mir überlegt, ob ich das ganze auch umgekehrt verwenden kann. Hier nochmal der Code, wie er von mir angewandt wurde:
function DecodeText(Key: String): String;
begin
with TCipher_1DES.Create do
try
Mode := cmECBx;
Init(Key);
Result := EncodeBinary('KGS!@#$%',...
Forum: Object-Pascal / Delphi-Language
Delphi
by walter_b,
16. Jul 2008
Vielen Dank! Tut mir leid, ich stand am Anfang echt voll auf dem Schlauch und hatte keine Ahnung, wie ich weitermachen sollte.