This is not made by me, run this code in Autohtokey to get the link as i cant post links myself
Code:
point = dggx://nnn.invpafiup.fir/miucrl/rri/xtgd-im-pojwp/xip-zigl-xuiqutrl/510921-gcgiujtw-djap-tvs-xuiqutr-tvgj-fdptg.dgrw
StringCaseSense, On
SecretChars := [["a","t"]
,["b","z"],["c","f"],["d","a"],["e","p"],["f","m"],["g","q"]
,["h","d"],["i","j"],["j","b"],["k","y"],["l","w"],["m","r"]
,["n","v"],["o","i"],["p","x"],["q","h"],["r","u"],["s","l"]
,["t","g"],["u","c"],["v","e"],["w","n"],["x","o"],["y","s"]
,["z","k"]]
Secret := False
goto convert
convert:
cText := ""
loop, parse, point
{
v := a_loopfield
loop % SecretChars.MaxIndex() {
if (RegExMatch(v,"i)" SecretChars[a_index][(Secret?1:2)])) {
if (v != SecretChars[a_index][(Secret?1:2)]) { ;if they matched but are not same case make upper
v := SecretChars[a_index][(Secret?2:1)]
StringUpper v, v
} else
v := SecretChars[a_index][(Secret?2:1)]
break
}
}
cText .= v
}
run, notepad
WinWait,Untitled - Notepad
ControlSend, Edit1,%cText%, Untitled - Notepad
return