Ultra CrypT

1. offizieller Beitrag

    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
    [autoit]


    #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

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    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

    Einmal editiert, zuletzt von Masterfreak0815 (9. November 2008 um 13:09)

    71 hits aber keine antwort xD
    kommt leute sagt mir was ich daran noch verbessern könnte

    Was du verbessern kannst?
    Nichts,das Script ist absolut selten (und sinnfrei) zu benutzen.
    Als Übung vielleicht schön,aber wenn man die Hex-Tabelle einmal durchgelesen hat,kann man denm hex-Code fast auswendig.
    Und das ver&entschlüsseln ist zu aufwendig.....
    ALso die Catroom-Benutzung fällt dadurch auch weg.

    Also,wofür???

    Zitat

    Programmieren ist so lange lustig bis ein Fehler auftritt!


    ~ Dankeschön

    Hab ich schon,schon verstanden :D
    Auch wenn ich nie versucht habe,Nachrichten mit Hex zu verschlüsseln,nur um das in einem Chatroom zu schreiben,damit die andere Person das wieder entsclüsseln darf,wobei eine Nachricht dann ca. 1 Minute braucht.....
    Aber.....

    KLASSE SKRIPT ! WÜRDE ICH NIE SCHAFFEN ! SUUUUPERB !     :pinch:

    Zitat

    Programmieren ist so lange lustig bis ein Fehler auftritt!


    ~ Dankeschön

    • Offizieller Beitrag

    Ich finde es absolut unangebracht, andere Skripte so runterzumachen bloß weil man selbst keine Verwendung dafür hat. Und selbst dann sollte man darauf Rücksicht nehmen, dass andere nicht so viel können wie man selbst (zu können glaubt).

    Es gibt berechtigte Einwände wie den, dass man Umwandeln in Hex-Darstellung nicht gerade als Verschlüsselung betrachten kann. Aber ohne es mir im Detail angeschaut zu haben, nehme ich an, dass der "Ultra-Modus" etwas ausgeklügelter ist. Solche Einwände kann man ruhig, sachlich und konstruktiv vorbringen.

    Es freut mich immer, wenn User, die selbst mal klein angefangen haben, später konstruktive Beiträge leisten und für die nächste "Generation" von Neulingen hilfreich sind, aber muss jeder selbst wissen wie er uns unsere geduldige und schnelle Hilfe von damals zurückzahlt.

    peethebee

    p.s. Ich verstehe leider Ironie, sorry.

    Ich hab es doch verstanden, ich werde bestimmt niemanden mehr kritisieren oder gar ein Skript.
    Ich wollte lediglich mit z.bsp.

    Zitat

    Nachrichten mit Hex zu verschlüsseln,nur um das in einem Chatroom zu schreiben,damit die andere Person das wieder entsclüsseln darf,wobei eine Nachricht dann ca. 1 Minute braucht.....

    den noch zu verbessernden Sichtpunkt zeigen.

    Von mir aus,
    dann finde ich halt von nun an alle Skripte super und denke mir die Verbesserungsvorschläge und Kritik,
    ich habe mir immer Kritik und Verbesserungsvorschläge für meine Skripte gewünscht,nur habe ich Sie nie bekommen...

    Es war stehts alles super und perfekt....
    Und trotzdem wollte es niemand....

    Zitat

    Programmieren ist so lange lustig bis ein Fehler auftritt!


    ~ Dankeschön

    mir ging es bei diesm script nich darum das es von nützen ist sonder das ich darduch was lerne das es eig unnütz ist ist mir bewust

    Zitat

    71 hits aber keine antwort xD
    kommt leute sagt mir was ich daran noch verbessern könnte

    Muss ich missverstanden haben.

    Zitat

    Programmieren ist so lange lustig bis ein Fehler auftritt!


    ~ Dankeschön

    Hallo Masterfreak0815 !

    In Deinem Script wird zweimal das Gleiche abgefragt.
    Mit zwei Radiogruppen, also die Erste aus den drei Algos und die Zweite aus Ver- und Entschlüsseln, sowie einem zusätzlichen Startbutton machen es möglich die If-Then-Abfrage zu kaskadieren (verschachteln). Die Struktur kannst Du so etwas straffen. :rolleyes:

    zu Post 10

    Spoiler anzeigen
    [autoit]


    ; by Masterfreak0815
    #NoTrayIcon
    #include-once
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $frmMain = GUICreate("Ultra CrypT | By LeV-GoT.T", 330, 178, 193, 125)
    $txt1 = GUICtrlCreateEdit("", 8, 8, 217, 161, BitOR($ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
    $radHexa = GUICtrlCreateRadio("Hexa", 232, 8, 97, 17)
    GUICtrlSetState(-1, $GUI_CHECKED) ;i auch diese Schreibweise ist möglich ;)
    $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)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit]