Hey Leute
an alle die verschlüsselte nachrichten verschicken wollen müssen sich nur dieses tool holen:)
man braucht ein passwort um die nachricht wieder zu entschlüsseln
Spoiler anzeigen
#include <Crypt.au3>
#include <GuiConstantsEx.au3>
GUICreate("Cryption",350,80)
$in1 = GUICtrlCreateInput("zu (de)crypten",10,15,100,20)
$bu1 = GUICtrlCreateButton("Crypt",120,10,50,30)
$bu2 = GUICtrlCreateButton("Decrypt",180,10,50,30)
$in2 = GUICtrlCreateInput("Passwort",240,15,100,20)
$in3 = GUICtrlCreateInput("Ausgabe",10,50,350,20)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $bu1
crypt()
Case $bu2
decrypt()
EndSwitch
WEnd
Func crypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_EncryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)
EndFunc
Func decrypt()
$i1 = GUICtrlRead($in1)
$i2 = GUICtrlRead($in2)
$crypted = _Crypt_DecryptData($i1,$i2,$CALG_DES)
$binary = BinaryToString($crypted)
GUICtrlSetData($in3,$binary)
EndFunc