Hi,
Da ich oft sehe das man etwas Verschlüsselt an einen PHP Script senden will habe ich im Internet mal nach einenr kleinen Verschlüsslung gesucht und auch eine gefunden.
Diese habe ich dann in AutoIt übersetzt (An dieser Stelle noch mal Danke an BugFix der mit sehr geholfen hat). Ver und Entschlüsseln müsste soweit Funktionieren.
Die PHP Funktion Hier gefunden
Spoiler anzeigen
<?php
// String EnCrypt + DeCrypt function
// Author: halojoy, July 2006
// Modified and commented by: laserlight, August 2006
function convert($text, $key = '') {
if ($key == '') {
return $text;
}
$key = str_replace(' ', '', $key);
if (strlen($key) < 8) {
exit('key error');
}
$key_len = strlen($key);
if ($key_len > 32) {
$key_len = 32;
}
$k = array();
for ($i = 0; $i < $key_len; ++$i) {
$k[$i] = ord($key{$i}) & 0x1F;
}
for ($i = 0, $j = 0; $i < strlen($text); ++$i) {
$e = ord($text{$i});
if ($e & 0xE0) {
$text{$i} = chr($e ^ $k[$j]);
}
$j = ($j + 1) % $key_len;
}
return $text;
}
echo convert('To be or not to be, that is the question', 'mysecretkey');
?>Und die Autoit Variante davon
Spoiler anzeigen
; By Sprenger120
;Modified by BugFix
ConsoleWrite(convert('To be or not to be, that is the question', 'mysecretkey') & @CRLF)
[/autoit] [autoit][/autoit] [autoit]Func convert($text, $key = '')
If $key = '' Then Return $text
$key = StringReplace($key, Chr(20), '')
Local $key_len = StringLen($key)
If $key_len < 8 Then Return SetError(0)
If $key_len > 32 Then $key = StringLeft($key, 32)
Local $k = StringSplit($key, '', 2)
For $i = 0 To UBound($k) -1
$k[$i] = BitAND(Asc($k[$i]), 0x1F)
Next
Local $aText = StringSplit($text, '', 2), $j = 0, $e, $outText = ''
For $i = 0 To UBound($aText) -1
$e = Asc($aText[$i])
If BitAND($e, 0xE0) Then $aText[$i] = Chr(BitXOR($e, $k[$j]))
$j = Mod($j+1, $key_len)
$outText &= $aText[$i]
Next
Return $outText
EndFunc
Viel Spaß damit
