Sign in to follow this  
Followers 0
will88

[Encryption]: Type Or Click

1 post in this topic

#1 ·  Posted (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..

#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 by will88

Share this post


Link to post
Share on other sites



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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0