Ich hab den Thread zum verschlüsseln gefunden und hab mir gedacht daas ich auch mal mein Glück versuche. Jedoch ohne am Wettbewerb teilzunehmen.
Hier mein Versuch
$sString = "Dies ist ein Test."
$sPassword = "Test Passwort"
$crypt = _crypt_myown($sString, $sPassword)
$decrypt = _decrypt_myown($crypt, $sPassword)
ConsoleWrite("Crypt:"&$crypt&@CRLF)
ConsoleWrite("DeCrypt:"&$decrypt&@CRLF)
Func _crypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] + $aPassword[$o]
If $iAsc > 255 Then $iAsc -= 255
$sCrypt_String &= Chr($iAsc)
$o += 1
If $o > $aPassword[0] Then $o = 1
Next
Return $sCrypt_String
EndFunc ;==>_crypt_myown
Func _decrypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sDeCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] - $aPassword[$o]
If $iAsc < 0 Then $iAsc += 255
$sDeCrypt_String &= Chr($iAsc)
$o += 1
If $o = $aPassword[0] Then $o = 1
Next
Return $sDeCrypt_String
EndFunc ;==>_decrypt_myown
Jedoch Ver- Entschlüsselt er das nich richtig
Vielleicht hat von euch ja einer ne Idee wie man das Problem beheben kann