AutoHotkey Community

Inputbox,output,Digital Enigma,Enter Text to be translated, 50, 600
Fileappend, %output%, C:\test.txt

#UseHook
SetStoreCapslockMode Off
q::Send m
w::Send n
e::Send b
r::Send v
t::Send c
y::Send x
u::Send z
i::Send l
o::Send k
p::Send j
a::Send h
s::Send g
d::Send f
f::Send d
g::Send s
h::Send a
j::Send p
k::Send o
l::Send i
z::Send u
x::Send y
c::Send t
v::Send r
b::Send e
n::Send w
m::Send q
1::Send 0
2::Send 9
3::Send 8
4::Send 7
5::Send 6
6::Send 5
7::Send 4
8::Send 3
9::Send 2
0::Send 1
Exitapp

Inputbox,output,Digital Enigma,Enter Text to be translated, 50, 600
Autotirm, off
Loop, Parse, output
{
var1:= A_loopfield
var2:= replace(var1)
write = %write%%var2%
}
Fileappend, %write%, C:\test.txt

;----------------------------------------------------------------------
;function
;----------------------------------------------------------------------

replace(ab)
{
If ab = q
return "m"
If ab = w
return "n"
If ab = e
return "b"
If ab = r
return "v"
If ab = t
return "c"
If ab = y
return "x"
If ab = u
return "z"
If ab = i
return "l"
If ab = o
return "k"
If ab = p
return "j"
If ab = a
return "h"
If ab = s
return "g"
If ab = d
return "f"
If ab = f
return "d"
If ab = g
return "s"
If ab = h
return "a"
If ab = j
return "p"
If ab = k
return "o"
If ab = l
return "i"
If ab = z
return "u"
If ab = x
return "y"
If ab = c
return "t"
If ab = v
return "r"
If ab = b
return "e"
If ab = n
return "w"
If ab = m
return "q"
If ab = 1
return 0
If ab = 2
return 9
If ab = 3
return 8
If ab = 4
return 7
If ab = 5
return 6
If ab = 6
return 5
If ab = 7
return 4
If ab = 8
return 3
If ab = 9
return 2
If ab = 0
return 1
else
return ab
}

Inputbox,output,Digital Enigma,Enter Text to be translated, 50, 600
Autotrim, off
Loop, Parse, output
{
var1:= A_loopfield
var2:= replace(var1)
write = %write%%var2%
}
Fileappend, %write%, C:\test.txt

;----------------------------------------------------------------------
;function
;----------------------------------------------------------------------

replace(ab)
{
If ab = m
return "q"
If ab = n
return "w"
If ab = b
return "e"
If ab = v
return "r"
If ab = c 
return "t"
If ab = x 
return "y"
If ab = z
return "u"
If ab = l
return "i"
If ab = k
return "o"
If ab = j
return "p"
If ab = h
return "a"
If ab = g
return "s"
If ab = f
return "d"
If ab = d
return "f"
If ab = s
return "g"
If ab = a
return "h"
If ab = p
return "j"
If ab = o
return "k"
If ab = i
return "l"
If ab = u
return "z"
If ab = y
return "x"
If ab = t
return "c"
If ab = r
return "v"
If ab = e
return "b"
If ab = w
return "n"
If ab = q
return "m"
If ab = 1
return  0
If ab = 2
return  9
If ab = 3
return  8
If ab = 4
return  7
If ab = 5
return  6
If ab = 6
return  5
If ab = 7
return  4
If ab = 8
return  3
If ab = 9
return  2
If ab = 0
return  1
if ab = %A_space%
return A_space
if ab = %A_tab%
return A_tab
}

else
return ab