AW: Wie wandle ih einen Text in eine Zahl um?
Super!
Ich glaub mit MD5 versuche ichs mal! Das ist ja nur eine pascal datei oder? Kann ich den mit d7personal installieren? Siehe "wo kriege ich indy her, und wie installiere ich es" auch ein thema von mir LG Christopher |
AW: Wie wandle ih einen Text in eine Zahl um?
Zitat:
Wenn man beispiels- & einfachheitshalber von AnsiStrings ausgeht, wo jedes Zeichen (Char) genau ein Byte groß ist, dann kann man die einzelnen Bytes als Zahlen interpretieren (anstatt Zeichen), damit mathematisch Unfug treiben und dann beliebig weiter damit rumhantieren! Hier eine einfache Xor Verschlüsslung z.B.
Delphi-Quellcode:
Vlt. bezieht sich deine Aussage auf "ord()" welche letztendlich einen Ordinalwert zurückgibt, was im Grunde auch nur eine Zahl ist (nicht?)!
procedure xorCrypt(var Str: String; const XorVal: Byte);
var i: Integer; begin for i := 1 to Length(Str) do Str[i] := Byte(Str[i]) xor XorVal; end; Edit: "Auto" ergibt übrigens nicht 65117116111, sondern 65 117 116 111 (man weiß ganz genau, wo die Zahl aufhört und wo sie beginnt!) |
AW: Wie wandle ih einen Text in eine Zahl um?
Zitat:
|
AW: Wie wandle ih einen Text in eine Zahl um?
Zitat:
|
AW: Wie wandle ih einen Text in eine Zahl um?
Oder den DecryptText halt mit Nullen auffüllen (065117116111). Dann kann man den Text auch vor dem Entschlüsseln auf Konsistenz prüfen (Length(S) mod 3 muß Null sein).
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz