Hallo erstmal ich suche Jemand der Mir Mit Autoit etwas schreibt Was den Text von dieser verschlüsselung wieder Lesbar macht:
[autoit]
#include <String.au3>
$Var = InputBox("Welche Zeichen sollen Verschlüsselt Werden?", "Verschlüsseln?:")
If Mod(Stringlen($Var), 4) <> 0 Then $Var &= "^"
If Mod(Stringlen($Var), 4) <> 0 Then $Var &= "^"
If Mod(Stringlen($Var), 4) <> 0 Then $Var &= "^"
$Array = StringRegExp($Var, '.{4}', 3)
$String = 0
For $I = 0 To UBound($Array) - 1
$1 = StringMid($Array[$I], 1, 1)
$2 = StringMid($Array[$I], 2, 1)
$3 = StringMid($Array[$I], 3, 1)
$4 = StringMid($Array[$I], 4, 1)
$1 = Asc($1)
$2 = Asc($2)
$3 = Asc($3)
$4 = Asc($4)
$String += $1/$2+$4/$3
Next
$String = _StringToHex($String)
MsgBox(0,"",$String)
die Hab i9ch selber Gemacht ich will einfach mal wissen wie Schwierig sowas ist....
wer lust hat kann ja mal was schreiben
gruß NoNever
