#include <Guiconstants.au3>
#include <File.au3>
$key = FileOpen(@scriptdir&"\key.txt", 0)
main()
$Form1 = GUICreate("Funkey by campweb", 600, 352)
Global $Input1 = GUICtrlCreateEdit("Text", 5, 25, 590, 150)
Global $Input2 = GUICtrlCreateEdit("", 5, 175, 590, 145)
Global $Button1 = GUICtrlCreateButton("Funkey", 5, 325, 590, 25, 0)
$Label1 = GUICtrlCreateLabel("Text eingeben :", 5, 5, 78, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Input2, "")
guictrlsetdata($Input2, guictrlread($Input1))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "A", ""&FileReadLine($key, 2)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "B", ""&FileReadLine($key, 5)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "C", "("))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "E", ""&FileReadLine($key, 1)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "F", ""&FileReadLine($key, 21)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "G", ""&FileReadLine($key, 15)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "H", ""&FileReadLine($key, 7)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "I", ""&FileReadLine($key, 9)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "K", ""&FileReadLine($key, 12)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "N", ""&FileReadLine($key, 4)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "O", "0"))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "P", ""&FileReadLine($key, 14)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "T", ""&FileReadLine($key, 10)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "U", ""&FileReadLine($key, 6)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "W", ""&FileReadLine($key, 3)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), "Y", ""&FileReadLine($key, 13)))
GUICtrlSetData($Input2, StringReplace(guictrlread($Input2), " ", "    "))
EndSwitch
WEnd