Simple encryption

[2words4uready]

Just some simple encryption

just start the script and begin typing in notepad

btw i did this in a cramp car on the way to vacation!

encripyton.au3

[will88]

nice works great, I got bored and tried to make a decrypt script lol I couldnt figure it out

[smartee]

dude this maybe better called hashing since if you dont put a character between each letter, it will be almost impossible to decrypt without some type of contextual logic (really really really lengthy). for instance there is absolutely no difference if you type "b" or you type "yu"

Edited August 2, 2008 by vbridgelal

[emoyasha]

here we go >

expandcollapse popup

#include <string.au3>

HotKeySet("a", "a")
hotkeyset("b", "b")
hotkeyset("c", "c")
HotKeySet("d", "d")
HotKeySet("e", "e")
HotKeySet("f", "f")
HotKeySet("g", "g")
HotKeySet("h", "h")
HotKeySet("i", "i")
HotKeySet("j", "j")
HotKeySet("k", "k")
HotKeySet("l", "l")
HotKeySet("m", "m")
HotKeySet("n", "n")
HotKeySet("o", "o")
HotKeySet("p", "p")
HotKeySet("q", "q")
HotKeySet("r", "r")
HotKeySet("s", "s")
HotKeySet("t", "t")
HotKeySet("u", "u")
HotKeySet("v", "v")
HotKeySet("w", "w")
HotKeySet("x", "x")
HotKeySet("y", "y")
HotKeySet("z", "z")
HotKeySet("!","ex")
;Set functions for hot keys

Func a()
    Send(_StringReverse(_stringtohex("a")))
EndFunc

Func b()
    Send(_StringReverse(_stringtohex("b")))
EndFunc

Func c()
    send(_StringReverse(_stringtohex("c")))
EndFunc

Func d()
    Send(_StringReverse(_stringtohex("d")))
EndFunc

Func e()
    Send(_StringReverse(_stringtohex("e")))
EndFunc

Func f()
    Send(_StringReverse(_stringtohex("f")))
EndFunc

func g()
    send(_StringReverse(_stringtohex("g")))
EndFunc

Func h()
    send(_StringReverse(_stringtohex("h")))
EndFunc

Func i()
    Send(_StringReverse(_stringtohex("i")))
EndFunc

Func j()
    Send(_StringReverse(_stringtohex("j")))
EndFunc

Func k()
    Send(_StringReverse(_stringtohex("k")))
EndFunc

Func l()
    send(_StringReverse(_stringtohex("l")))
EndFunc

Func m()
    Send(_StringReverse(_stringtohex("m")))
EndFunc

Func n()
    Send(_StringReverse(_stringtohex("n")))
EndFunc

Func o()
    send(_StringReverse(_stringtohex("o")))
EndFunc

Func p()
    Send(_StringReverse(_stringtohex("p")))
EndFunc

Func q()
    send(_StringReverse(_stringtohex("q")))
EndFunc

Func r()
    Send(_StringReverse(_stringtohex("r")))
EndFunc

Func s()
    send(_StringReverse(_stringtohex("s")))
EndFunc

Func t()
    send(_StringReverse(_stringtohex("t")))
EndFunc

Func u()
    Send(_StringReverse(_stringtohex("u")))
EndFunc

Func v()
    Send(_StringReverse(_stringtohex("v")))
EndFunc

Func w()
    Send(_StringReverse(_stringtohex("w")))
EndFunc

Func x()
    Send(_StringReverse(_stringtohex("x")))
EndFunc

Func y()
    Send(_StringReverse(_stringtohex("y")))
EndFunc

Func z()
    send(_StringReverse(_stringtohex("z")))
    EndFunc
Func ex()
    Exit
EndFunc
While 1
    WEnd

b = 26

yu = 9757

=]

[emoyasha]

decryptor:

expandcollapse popup

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("decryptor", 200, 337, 193, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 32, 217, 321)
GUICtrlSetData(-1, "Edit1")
$Decrypt = GUICtrlCreateButton("Decrypt", 56, 0, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Decrypt
            $x = GUICtrlRead($edit1)
            $x = StringRegExpReplace($x, "16", "a")
$x = StringRegExpReplace($x, "26", "b")
$x = StringRegExpReplace($x, "36", "c")
$x = StringRegExpReplace($x, "46", "d")
$x = StringRegExpReplace($x, "56", "e")
$x = StringRegExpReplace($x, "66", "f")
$x = StringRegExpReplace($x, "76", "g")
$x = StringRegExpReplace($x, "86", "h")
$x = StringRegExpReplace($x, "96", "i")
$x = StringRegExpReplace($x, "A6", "j")
$x = StringRegExpReplace($x, "B6", "k")
$x = StringRegExpReplace($x, "C6", "l")
$x = StringRegExpReplace($x, "D6", "m")
$x = StringRegExpReplace($x, "E6", "n")
$x = StringRegExpReplace($x, "F6", "o")
$x = StringRegExpReplace($x, "07", "p")
$x = StringRegExpReplace($x, "17", "q")
$x = StringRegExpReplace($x, "27", "r")
$x = StringRegExpReplace($x, "37", "s")
$x = StringRegExpReplace($x, "47", "t")
$x = StringRegExpReplace($x, "57", "u")
$x = StringRegExpReplace($x, "67", "v")
$x = StringRegExpReplace($x, "77", "w")
$x = StringRegExpReplace($x, "87", "x")
$x = StringRegExpReplace($x, "97", "y")
$x = StringRegExpReplace($x, "A7", "z")
GUICtrlSetData($edit1, $x)
            
        
    EndSwitch
WEnd