Verschlüsselungsmöglichkeiten Autoit

Hallo ihr,

Ich habe mich vor langem mal mit meinem Chiffrierungstool befasst.
Leider ist mir meine HD abgeraucht, sodass ich nur meine Alpha Backups hab.

Meine Geschichte, wozu das Tool genutzt wird:
Wir haben bei Die-Stämme (Browsergame) einen Spion im Stamm. Nun mächten wir aber nicht, dass er alles lesen kann. Also ist mir die Idee gekommen: Verschlüssel einfach alle Texte, die geschrieben werden, ein paar mal und das wird dann gepostet. Also soll auch nur der, der das Tool hat, durch die paar Verschlüsselungsalgo´s durchkommen und somit den Ursprungstext lesen können.

Mein bisheriges Tool:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$menu1 = GUICtrlCreateMenu("Codierung")
$menu11 = GUICtrlCreateMenuitem("Info", $menu1)
$menu2 = GUICtrlCreateMenu("Other")
$menu21 = GUICtrlCreateMenuitem("About", $menu2)
$head = GUICtrlCreateLabel("DS-Chiffrierungstool", 61, 20, 320, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Eingabe:", 32, 70)
$eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Ausgabe:", 32, 206)
$ausgabe = GUICtrlCreateInput("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$code = GUICtrlCreateButton("Verschlüsseln", 36, 356, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$decode = GUICtrlCreateButton("Entschlüsseln", 165, 356, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 356, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $code
GUICtrlSetData($ausgabe, '')
Dim $arstring = StringSplit(GUICtrlRead($eingabe), ''), $str = ''
For $i = 1 To UBound($arstring) -1
$str &= StringUpper(Hex(Asc($arstring[$i]), 2)) & ' '
Next
GUICtrlSetData($ausgabe, $str)

Case $decode
GUICtrlSetData($ausgabe, '')
Dim $chstring = StringSplit(GUICtrlRead($eingabe), ''), $str2 = ''
For $ii = 1 To $chstring[0] Step 3
$hex = $chstring[$ii] & $chstring[$ii+1]
$str2 &= Chr(Dec($hex))
Next
GUICtrlSetData($ausgabe, $str2)

Case $menu21
MSGBox(1, "Chiff-Info", "DS-Chifftool" & @CRLF & "Dieses Tool chiffriert den Text durch viele Verschlüsselungsalgorythmen.")

Case $menu21
MSGBox(1, "About", "DS-Chiffrierungstool" & @CRLF & "Version: Alpha 1.0" & @CRLF & "Scripted by Schrubber")

Case $quit
Exit
EndSwitch

WEnd

Das Tool verschlüsselt mir das nun 1x ins HEX System. Ich mächte aber soviele versch. einbinden und auch so oft es geht, wie nur möglich.

Meine 1. Frage: Welche Verschlüsselungsmöglichkeiten beitet ir Autoit?
Meine 2. Frage: Wie müsste ich den Quellcode dann umschreiben, damit er den neuen Wert von $ausgabe erneut verschlüsselt?

Ich hoffe, Ihr könnt mir helfen.
Und nein, es ist kein Bot

Rubberducky

Gut, hab mich für die von Andy beschriebene XOR Verschlüsselung entschieden.

Funktioniert alles perfekt, wollte dort nun ne Mail-Funktion einbauen.
Habe dort auch alles hinbekommen (mit kleinen anfänglichen Problemen), nur ist mein Problem:

Es wird kein Schlüssel mehr generiert??
Ich kann da so oft draufdrücken, wie ich lustig bin, da kommt kein Schlüssel mehr

Wäre für jede Hilfe dankbar
Rubberducky

Edit:
Hat sich erledigt. Hatte die Variable key 2x deklariert, obwohl sie eigentlich unabhängig voneinander Werte haben sollten.
Kann geclosed werden