xMasteRx |
|
| vabbhe in au3 lo faccio u.u fatto in 4 minuti lol non ho fatto in meno perché ho copiato la gui XD CODICE Opt("GUIOnEventMode", 1)
$GUI=GUICreate("Atbash algoritm", 500, 300)
GUISetOnEvent(-3, "_Exit")
GUISetState()
GUICtrlCreateLabel("Testo", 10, 10)
$InTxt=GUICtrlCreateEdit("", 10, 30, 210, 260)
$ButCript=GUICtrlCreateButton("Cript", 220, 50, 60, 20)
GUICtrlSetOnEvent(-1, "_AtBash")
GUICtrlCreateLabel("Return", 290, 10)
$InFinTxt=GUICtrlCreateEdit("", 290, 30, 200, 260, 0x0800)
Do
Sleep(10)
Until False
Func _Exit()
Exit
EndFunc
Func _AtBash($txt="")
If Not IsDeclared("txt") Then $txt=GUICtrlRead($InTxt)
$split=StringSplit($txt, "")
$rtxt=""
For $x=1 To $split[0]
$asc=Asc($split[$x])
If $asc>=65 And $asc<=90 Then
$asc-=65
$rtxt&=Chr(25-$asc+65)
ElseIf $asc>=97 And $asc<=122 Then
$asc-=97
$rtxt&=Chr(25-$asc+97)
Else
$rtxt&=$split[$x]
EndIf
Next
GUICtrlSetData($InFinTxt, $rtxt)
EndFunc |
| | |
