also da mir langweilig war und ich das thema hier gesehn habe (*Klick* ) dachte ich mir das kannst du auch und tada
hier ist Ultra CrypT
man kann 3 verschiedene arten zum verschlüssenl wählen (Hexa,binary,Ultra)
eignet sich sehr gut wenn man in großen chatrooms ist wo man keine privinarchrichten senden kann xD
Screen:
[Blockierte Grafik: http://www.image-upload.de.be/files/490efa9904f85f56d5e558db04b5ec50.png]
Script:
Spoiler anzeigen
#NoTrayIcon
#include-once
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
$frmMain = GUICreate("Ultra CrypT | By LeV-GoT.T", 330, 178, 193, 125)
$txt1 = GUICtrlCreateEdit("", 8, 8, 217, 161, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$radHexa = GUICtrlCreateRadio("Hexa", 232, 8, 97, 17)
$radBinary = GUICtrlCreateRadio("Binary", 232, 32, 97, 17)
$radUltra = GUICtrlCreateRadio("Ultra", 232, 56, 97, 17)
$cmdVersch = GUICtrlCreateButton("Verschlüsseln", 232, 80, 89, 25, 0)
$cmdEntsch = GUICtrlCreateButton("Entschlüsseln", 232, 112, 89, 25, 0)
$cmdSave = GUICtrlCreateButton("Speichern", 232, 144, 89, 25, 0)
GUICtrlSetState($radHexa, $GUI_CHECKED)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox(64,"Ultra CrypT","Ultra CrypT (C) By LeV-GoT.T" & @CRLF & "Vistit levin1993.de & The-coderz.com")
Exit
Case $cmdVersch
If BitAnd(GUICtrlRead($radHexa), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringToHex(GUICtrlRead($txt1)))
ElseIf BitAnd(GUICtrlRead($radBinary), $GUI_CHECKED) Then
GUICtrlSetData($txt1, StringToBinary(GUICtrlRead($txt1)))
ElseIf BitAnd(GUICtrlRead($radUltra), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringEncrypt(1, GUICtrlRead($txt1), "gB7tfG)(64789ZG§=)(/5798z37/&(/)(zhD/(tz54GHF9($z!6pf?üäZÜ*DütfG", 3))
EndIf
Case $cmdEntsch
If BitAnd(GUICtrlRead($radHexa), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _HexToString(GUICtrlRead($txt1)))
ElseIf BitAnd(GUICtrlRead($radBinary), $GUI_CHECKED) Then
GUICtrlSetData($txt1, BinaryToString(GUICtrlRead($txt1)))
ElseIf BitAnd(GUICtrlRead($radUltra), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringEncrypt(0, GUICtrlRead($txt1), "gB7tfG)(64789ZG§=)(/5798z37/&(/)(zhD/(tz54GHF9($z!6pf?üäZÜ*DütfG", 3))
EndIf
Case $cmdSave
$var = FileSaveDialog("Bitte Wähle den gewünschten speicher Ort. " & @HOUR & ":" & @MIN & ":" & @SEC, @ScriptDir, "Text Datei (*.txt)", 2)
If @error Then
MsgBox(4096,"","Speichern wurde abgebrochen.")
Else
FileWrite($var,$txt1)
MsgBox(64,"Ultra CrypT","Datei erfolgreich geschpeichert.")
EndIf
EndSwitch
WEnd
muhaha und für alle die zufaull sind es zu kopieren oder kein autoit haben hier ein dl zu exe
http://download.the-coderz.de/dl/f61_UltraCrypT.rar