Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
20. Mai 2008
Wenn Du die letzten Beiträge gelesen und umgesetzt hättest,
wärest Du wahrscheinlich schon ein wenig weiter.
So könnte es dann aussehen.
Ich hoffe Du kopierst nicht nur, sondern versuchst es
zu verstehen.
// Das ist Dir bekannt und hast Du ja bereits verinnerlicht
function strEncrypt(const S: String; Key: Word): String;
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
20. Mai 2008
Wenn man aber ein $ Zeichen vor den HexString packt
kann man den HexTSring mit StrToInt in einen Zahlewert wandeln.
Grüße
Klaus
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
20. Mai 2008
Beim verschlüsseln wurden aus einem Byte zwei Zeichen HexCode.
Beim entschlüsseln musst Du dann den verschlüsselten Text auch
immer häppchenweise (zwei Zeichen) übergeben.
Edit3.Text:=Edit3.text+chr(StrToInt('$'+ Edit2.Text+Edit2.Text)));
Das ganze ließe sich dann auch in einer schleife machen.
Grüße
Klaus
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
7. Mai 2008
im decrypt...
Grüße
Klaus
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
7. Mai 2008
DeinValue:= StrToInt('$'+<hexString>);
Grüße
Klaus
Forum: Win32/Win64 API (native code)
Delphi
by Klaus01,
7. Mai 2008
Hallo,
für solche Sachen hat sich eigentlich die Hexdarstellung durchgesetzt.
function strEncrypt(const S: String; Key: Word): String;
var
I: Integer;
dummyKey: Byte;
const