....

[stuka]

.

Edited August 23, 2009 by stuka

[JustinReno]

That must have took forever to code.

[Aassdd]

There must be an easier way to do this

[martin]

It is a liitle bit long isn't it?

Maybe you could do something like this where I have done some of the keys

#NoTrayIcon
#include "misc.au3"

_Singleton(@ScriptName)

; set hotkeys for letters
For $n = 0 To 25
HotKeySet(Chr(Asc('a') + $n), "hkswap")
Next
HotKeySet("{ESC}", "hkswap")

;another one for numbers etc
 
While 1

    Sleep(1000)
   
WEnd

; send broken alphabets
Func hkswap()
    HotKeySet(Chr(Asc('z') - Asc(@HotKeyPressed) + Asc('a')))
    ConsoleWrite(@HotKeyPressed & @CRLF)
   Switch @HotKeyPressed
    Case 'a' To 'z'
        Send(Chr(Asc('z') - Asc(@HotKeyPressed) + Asc('a')))
    Case "{ESC}"
        Exit
        
    EndSwitch
   HotKeySet(Chr(Asc('z') - Asc(@HotKeyPressed) + Asc('a')),"hkswap")
EndFunc

[Swift]

Tsrh rh xllo. Tszmph!

THIS IS COOL. THANKS!

ru blf gbkv rm xzkrgzoh, rg dlm'g xzsmtv rg. r'n fhrmt nzigrm'h hxirkg.

IF YOU TYPE IN CAPITALS, IT WON'T CHANGE IT. I'M USING MARTIN'S SCRIPT.

[crashdemons]

I think besides using it as a prank, it's also a good way to hide your real password.

...

So even if your friend knows your password is 'mydogsnameislassy', he wouldn't be able to login..

I was reading what you said and wondered if I could make a password masker so that a set password would be changed - but nothing else would.

So I made some functions to do it if it detects that you've typed the password, it deletes it and replaces it with a mask of the password.

Note: _TextMask can always been made more difficult to crack later.

expandcollapse popup

;Password Masker

Opt("SendKeyDelay",1)

_MaskAllPassword('password')
While 1
    Sleep(300)
WEnd


Func _MaskAllPassword($password)
    Global $Maskpwd_lchpos, $Maskpwd_savedpwd
    $Maskpwd_lchpos=0
    $Maskpwd_savedpwd=$password
    For $i=0x20 To 0x7E
        HotKeySet(Chr($i),"_MskPwdHandler")
    Next
    HotKeySet("{BS}","_MskPwdHandler")
EndFunc
Func _UnMaskAll()
    For $i=0x21 To 0x7E
        HotKeySet(Chr($i))
    Next
    HotKeySet("{BS}")
EndFunc
Func _MskPwdHandler()
    Global $Maskpwd_lchpos, $Maskpwd_savedpwd
    $pl=StringLen($Maskpwd_savedpwd)
    $hk=@HotKeyPressed
    If $hk=="{BS}" Then
        If $Maskpwd_lchpos>0 Then $Maskpwd_lchpos-=1
    Else
        If StringMid($Maskpwd_savedpwd,$Maskpwd_lchpos+1,1)==$hk Then
            $Maskpwd_lchpos+=1
            If $Maskpwd_lchpos=$pl Then
                $Maskpwd_lchpos=0
                $hk=''
                _UnMaskAll()
                For $i=1 To $pl-1
                    Send("{BS}")
                Next
                Send(_TextMask($Maskpwd_savedpwd))
                _MaskAllPassword($Maskpwd_savedpwd)
            EndIf
        Else
            $Maskpwd_lchpos=0
        EndIf
    EndIf
    HotKeySet(@HotKeyPressed)
    Send($hk)
    HotKeySet(@HotKeyPressed,"_MskPwdHandler")
EndFunc
Func _TextMask($pass)
    $pl=StringLen($pass)
    $buf=''
    For $i=1 To $pl
        $buf&=Chr(_CircValue(Asc(StringMid($pass,$i,1))+30-$i,0x20,0x7E))
    Next
    Return "Msk_"&$buf
EndFunc
Func _CircValue($input, $min, $max)
    ;circular value on a ring of values
    $output = $input
    While $output > $max
        $output -= $max
        $output += $min - 1
    WEnd
    While $output < $min And $output > 0
        $output = $min - $output
    WEnd
    While $output < $min
        If $output > 0 Then $output *= -1
        $output += $max
    WEnd
    Return $output
EndFunc   ;==>_CircValue

Edited April 7, 2008 by crashdemons

[Touch]

Check out Origin Keyboard layout by JamesB and RazerM