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:
[autoit]
#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
[/autoit][autoit][/autoit][autoit][/autoit]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