Jump to content
Sign in to follow this  
stuka

....

Recommended Posts

stuka

.

Edited by stuka

Share this post


Link to post
Share on other sites
JustinReno

That must have took forever to code.

Share this post


Link to post
Share on other sites
Aassdd

There must be an easier way to do this :)

Share this post


Link to post
Share on other sites
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

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
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.

;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 by crashdemons

My Projects - WindowDarken (Darken except the active window) Yahsmosis Chat Client (Discontinued) StarShooter Game (Red alert! All hands to battlestations!) YMSG Protocol Support (Discontinued) Circular Keyboard and OSK example. (aka Iris KB) Target Screensaver Drive Toolbar Thingy Rollup Pro (Minimize-to-Titlebar & More!) 2D Launcher physics example Ascii Screenshot AutoIt3 Quine Example ("Is a Quine" is a Quine.) USB Lock (Another system keydrive - with a toast.)

Share this post


Link to post
Share on other sites
Touch

Check out Origin Keyboard layout by JamesB and RazerM :)


[center][font="Arial"]If practise makes perfect and no-ones perfect whats the point of practise?[/font]Sorry for my rude attitude when I started here.[/center]

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  

×