AutoHotkey Community

   

$Numpad1::

  Send,\

      Sleep, 100

  Send, rcon password sv_players

return

NoPassFound = RCON
EnterPass = Please enter Password.

iniread, RemRCONPass, RCONPASS.INI,Remember,RCONPass,0
iniread, RCONPass, RCONPASS.INI, DATA, RCONPass, 00
iniread, RemPassState, RCONPASS.INI, Remember, PassState, 1
iniread, PassState, RCONPASS.INI, DATA, PassState, 1

ifnotexist RCONPASS.INI

ifequal, RCONPass, 00
   RCONPass =

start:

Gui, Add, Checkbox, x185 y82 w20 h20 vPassState Checked%PassState%
Gui, Add, Text, x45 y10 w145 h20, %EnterPass%
ifequal, PassState, 1
Gui, Add, Edit, x20 y35 w160 h20 vRCONPass Password, %RCONPass%
ifequal, PassState, 0
Gui, Add, Edit, x20 y40 w160 h20 vRCONPass, %RCONPass%
Gui, Add, Button, x35 y70 w50 h20, OK
Gui, Add, Button, x120 y70 w50 h20, Cancel
ifequal, DialogCaption, 0
gui, -caption
Gui, Show, h100 w200, %NoPassFound%
Return

GuiClose:
ButtonCancel:
gui, submit
gui, destroy
 
ButtonOK:
Gui, submit
gui, destroy
ifequal, RemRCONPass, 0
   iniwrite, %RCONPass%, RCONPASS.INI, DATA, RCONPass
ifequal, RemPassState, 1
iniwrite, %PassState%, RCONPASS.INI, DATA, PassState
return

NoRCONPassFound = RCON
EnterRCONPass = Please enter New Password.


iniread, RemRCONPass, SETTINGS.INI,Remember,RCONPass,0
iniread, RCONPass, SETTINGS.INI, DATA, RCONPass, 00
iniread, RemRCONPassState, SETTINGS.INI, Remember, RCONPassState, 1
iniread, RCONPassState, SETTINGS.INI, DATA, RCONPassState, 1

ifexist SETTINGS.INI
return

ifnotexist SETTINGS.INI

ifequal, RCONPass, 00
   RCONPass =

start:

Gui, Add, Checkbox, x185 y82 w20 h20 vRCONPassState Checked%RCONPassState%
Gui, Add, Text, x30 y10 w145 h20, %EnterRCONPass%
ifequal, RCONPassState, 1
Gui, Add, Edit, x20 y35 w160 h20 vRCONPass Password
ifequal, RCONPassState, 0
Gui, Add, Edit, x20 y40 w160 h20 vRCONPass
Gui, Add, Button, x35 y70 w50 h20, OK
Gui, Add, Button, x120 y70 w50 h20, Cancel
ifequal, DialogCaption, 0
gui, -caption
Gui, Show, h100 w200, %NoRCONPassFound%
Return

GuiClose:
ButtonCancel:
gui, submit
gui, destroy
return
 
ButtonOK:
Gui, submit
gui, destroy

Text = %RCONPass%
msgbox, %text%
pw = psw

Gosub, Crypt
msgbox, %Cipher%


Text = %Cipher%
pw = psw

;Gosub, Crypt
;msgbox, %Cipher%

ifequal, RemRCONPass, 0
   iniwrite, %Cipher%, SETTINGS.INI, DATA, RCONPass
ifequal, RemRCONPassState, 1
iniwrite, %RCONPassState%, SETTINGS.INI, DATA, RCONPassState

Crypt:

        BLines = %A_BatchLines%
        SetBatchLines, -1
        AutoTrim, Off

        StringLen, PWLen, PW
        Cipher =
        Loop, 256
        {
                A = %A_Index%
                A -= 1
               
                Transform, Mod, Mod, %A%, %PWLen%
                Mod += 1
               
                StringMid, Chr, PW, %MOD%, 1
                Transform, ASC, asc, %Chr%
                Key%A% = %ASC%
                sbox%A% = %A%
        }
       
        B = 0
        Loop, 256
        {
                A = %A_Index%
                A -= 1

                StringTrimRight, tempsa, sbox%A%, 0
                StringTrimRight, tempka, Key%A%, 0

                tempB = %B%
                tempB += %tempsa%
                tempB += %tempka%
               
                Transform, B, Mod, %tempB%, 256
               
                StringTrimRight, tempsb, sbox%B%, 0
               
                sbox%A% = %tempsb%
                sbox%B% = %tempsa%
        }
       
        tempI =
        J =
        StringLen, TLen, Text
        Loop, %TLen%
        {
                A = %A_Index%

                tempI ++
                Transform, I, Mod, %tempI%, 256
               
                StringTrimRight, tempsi, sbox%I%, 0

                Divd = %tempsi%
                Divd += %J%
                Transform, J, Mod, %Divd%, 256
               
                StringTrimRight, tempsj, sbox%J%, 0

                Divd = %tempsi%
                Divd += %tempsj%
                Transform, Mod, Mod, %Divd%, 256
               
                StringTrimRight, K, sbox%Mod%, 0
               
                StringMid, Chr, Text, %A%, 1
                Transform, ASC, asc, %Chr%
               
                Transform, CipherBy, bitxor, %Asc%, %K%
                Transform, out, chr, %CipherBy%
                Cipher = %Cipher%%out%
        }
        SetBatchLines, %BLines%
Return

$Numpad1::

Text = %RCONPass%
;msgbox, %text%
pw = psw

Gosub, Crypt
;msgbox, %Cipher%


Text = %Cipher%
pw = psw

;Gosub, Crypt
;msgbox, %Cipher%

Send,\
Sleep, 100
Send, rcon %Cipher% sv_players
return

; Generated using SmartGUI Creator 3.5

Gui, Add, Edit, x6 y17 w130 h20,
Gui, Add, Checkbox, x6 y47 w20 h30 g1 vstat,
Gui, Show, x158 y110 h85 w144, Generated using SmartGUI Creator 3.5
Return

1:
   gui, submit, nohide
   ifequal, stat, 1
      guicontrol, +password, edit1
   else
      guicontrol, -password, edit1
return
      
GuiClose:
ExitApp