will88 Posted September 11, 2008 Share Posted September 11, 2008 (edited) Hello, Just a simple/kind of pointless script that I through together when I was bored =D When you run it, it will ask if you want to use type or click, type=as you type it will encrypt it.. and you can probably figure out what click is. It's a little long.. expandcollapse popup#include <Misc.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $selection = MsgBox(4, "", "Yes=Type, no=click") If $selection = 6 Then type() ElseIf $selection = 7 Then click() EndIf Func type() $dll = DllOpen("user32.dll") While 1 Sleep(50) If _IsPressed(30) Then Send("{backspace}4") EndIf If _IsPressed(31) Then Send("{backspace}2") EndIf If _IsPressed(32) Then Send("{backspace}1") EndIf If _IsPressed(33) Then Send("{backspace}8") EndIf If _IsPressed(34) Then Send("{backspace}7") EndIf If _IsPressed(35) Then Send("{backspace}5") EndIf If _IsPressed(36) Then Send("{backspace}6") EndIf If _IsPressed(37) Then Send("{backspace}3") EndIf If _IsPressed(38) Then Send("{backspace}9") EndIf If _IsPressed(39) Then Send("{backspace}0") EndIf If _IsPressed(41) Then Send("{backspace}b") EndIf If _IsPressed(42) Then Send("{backspace}d") EndIf If _IsPressed(43) Then Send("{backspace}f") EndIf If _IsPressed(44) Then Send("{backspace}e") EndIf If _IsPressed(45) Then Send("{backspace}g") EndIf If _IsPressed(46) Then Send("{backspace}h") EndIf If _IsPressed(47) Then Send("{backspace}m") EndIf If _IsPressed(48) Then Send("{backspace}p") EndIf If _IsPressed(49) Then Send("{backspace}o") EndIf If _IsPressed("4A") Then Send("{backspace}q") EndIf If _IsPressed("4B") Then Send("{backspace}z") EndIf If _IsPressed("4C") Then Send("{backspace}x") EndIf If _IsPressed("4D") Then Send("{backspace}t") EndIf If _IsPressed("4E") Then Send("{backspace}y") EndIf If _IsPressed("4F") Then Send("{backspace}v") EndIf If _IsPressed(50) Then Send("{backspace}u") EndIf If _IsPressed(51) Then Send("{backspace}l") EndIf If _IsPressed(52) Then Send("{backspace}s") EndIf If _IsPressed(53) Then Send("{backspace}a") EndIf If _IsPressed(54) Then Send("{backspace}c") EndIf If _IsPressed(55) Then Send("{backspace}i") EndIf If _IsPressed(56) Then Send("{backspace}k") EndIf If _IsPressed(57) Then Send("{backspace}n") EndIf If _IsPressed(58) Then Send("{backspace}r") EndIf If _IsPressed(59) Then Send("{backspace}j") EndIf If _IsPressed("5A") Then Send("{backspace}w") EndIf WEnd EndFunc Func click() $umsg = "Unencrypted:" $emsg = "Encrypted:" GUICreate("::Encryption::Blacknight", 300,300) GUISetState(@SW_SHOW) $ClearIt = GUICtrlCreateButton("Clear It", 240,0,60) $Done = GUICtrlCreateButton("Done", 240,30,60) $space = GUICtrlCreateButton("Space", 60,155,50) $a = GUICtrlCreateButton("A", 0,5,20) $b = GUICtrlCreateButton("B", 0,30,20) $c = GUICtrlCreateButton("C", 0,55,20) $d = GUICtrlCreateButton("D", 0,80,20) $e = GUICtrlCreateButton("E", 0,105,20) $f = GUICtrlCreateButton("F", 0,130,20) $g = GUICtrlCreateButton("G", 0,155,20) $h = GUICtrlCreateButton("H", 0,180,20) $i = GUICtrlCreateButton("I", 0,205,20) $j = GUICtrlCreateButton("J", 0,230,20) $k = GUICtrlCreateButton("K", 20,5,20) $l = GUICtrlCreateButton("L", 20,30,20) $m = GUICtrlCreateButton("M", 20,55,20) $n = GUICtrlCreateButton("N", 20,80,20) $o = GUICtrlCreateButton("O", 20,105,20) $p = GUICtrlCreateButton("P", 20,130,20) $q = GUICtrlCreateButton("Q", 20,155,20) $r = GUICtrlCreateButton("R", 20,180,20) $s = GUICtrlCreateButton("S", 20,205,20) $t = GUICtrlCreateButton("T", 20,230,20) $u = GUICtrlCreateButton("U", 40,5,20) $v = GUICtrlCreateButton("V", 40,30,20) $w = GUICtrlCreateButton("W", 40,55,20) $x = GUICtrlCreateButton("X", 40,80,20) $y = GUICtrlCreateButton("Y", 40,105,20) $z = GUICtrlCreateButton("Z", 40,130,20) $0 = GUICtrlCreateButton("0", 40,155,20) $1 = GUICtrlCreateButton("1", 40,180,20) $2 = GUICtrlCreateButton("2", 40,205,20) $3 = GUICtrlCreateButton("3", 40,230,20) $4 = GUICtrlCreateButton("4", 60,5,20) $5 = GUICtrlCreateButton("5", 60,30,20) $6 = GUICtrlCreateButton("6", 60,55,20) $7 = GUICtrlCreateButton("7", 60,80,20) $8 = GUICtrlCreateButton("8", 60,105,20) $9 = GUICtrlCreateButton("9", 60,130,20) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $space Then $umsg = $umsg & " " $emsg = $emsg & " " GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $done Then InputBox("", "Select Encrypted Code Below", $emsg) $umsg = "Unencrypted:" $emsg = "Encrypted:" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $ClearIt Then GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $umsg = "Unencrypted:" $emsg = "Encrypted:" $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $a Then $umsg = $umsg & "a" $emsg = $emsg & "b" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $b Then $umsg = $umsg & "b" $emsg = $emsg & "d" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $c Then $umsg = $umsg & "c" $emsg = $emsg & "f" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $d Then $umsg = $umsg & "d" $emsg = $emsg & "e" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $e Then $umsg = $umsg & "e" $emsg = $emsg & "g" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $f Then $umsg = $umsg & "f" $emsg = $emsg & "h" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $g Then $umsg = $umsg & "g" $emsg = $emsg & "m" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $h Then $umsg = $umsg & "h" $emsg = $emsg & "p" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $i Then $umsg = $umsg & "i" $emsg = $emsg & "o" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $j Then $umsg = $umsg & "j" $emsg = $emsg & "q" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $k Then $umsg = $umsg & "k" $emsg = $emsg & "z" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $l Then $umsg = $umsg & "l" $emsg = $emsg & "x" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $m Then $umsg = $umsg & "m" $emsg = $emsg & "t" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $n Then $umsg = $umsg & "n" $emsg = $emsg & "y" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $o Then $umsg = $umsg & "o" $emsg = $emsg & "v" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $p Then $umsg = $umsg & "p" $emsg = $emsg & "u" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $q Then $umsg = $umsg & "q" $emsg = $emsg & "l" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $r Then $umsg = $umsg & "r" $emsg = $emsg & "s" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $s Then $umsg = $umsg & "s" $emsg = $emsg & "a" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $t Then $umsg = $umsg & "t" $emsg = $emsg & "c" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $u Then $umsg = $umsg & "u" $emsg = $emsg & "i" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $v Then $umsg = $umsg & "v" $emsg = $emsg & "k" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $w Then $umsg = $umsg & "w" $emsg = $emsg & "n" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $x Then $umsg = $umsg & "x" $emsg = $emsg & "r" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $y Then $umsg = $umsg & "y" $emsg = $emsg & "j" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $z Then $umsg = $umsg & "z" $emsg = $emsg & "w" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $1 Then $umsg = $umsg & "1" $emsg = $emsg & "2" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $2 Then $umsg = $umsg & "2" $emsg = $emsg & "1" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $3 Then $umsg = $umsg & "3" $emsg = $emsg & "8" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $4 Then $umsg = $umsg & "4" $emsg = $emsg & "7" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $5 Then $umsg = $umsg & "5" $emsg = $emsg & "5" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $6 Then $umsg = $umsg & "6" $emsg = $emsg & "6" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $7 Then $umsg = $umsg & "7" $emsg = $emsg & "3" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $8 Then $umsg = $umsg & "8" $emsg = $emsg & "9" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $9 Then $umsg = $umsg & "9" $emsg = $emsg & "0" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf If $msg = $0 Then $umsg = $umsg & "0" $emsg = $emsg & "4" GUICtrlDelete($unencrypted) GUICtrlDelete($encrypted) $encrypted = GUICtrlCreateLabel($emsg, 0, 260) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) $unencrypted = GUICtrlCreateLabel($umsg, 0, 280) EndIf WEnd GUIDelete() EndFunc Encrypted:gyqvj Edited September 11, 2008 by will88 Password-Keeper Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now