AutoHotkey Community

RC4Pass = wow_he-really+is cool_!
RC4Data = Rajat is cool

RC4(RC4Data,RC4Pass)
MsgBox, Changed`n`n%RC4Data%`n`nwith pass:`n`n%RC4Pass%`n`nto`n`n%RC4Result%

RC4Data = %RC4Result%

RC4(RC4Data,RC4Pass)
MsgBox, Changed`n`n%RC4Data%`n`nwith pass:`n`n%RC4Pass%`n`nto`n`n%RC4Result%

ExitApp

;___RC4_____________________________________

RC4(RC4Data,RC4Pass)
{
   global RC4Result
   ATrim = %A_AutoTrim%
   AutoTrim, Off
   BLines = %A_BatchLines%
   SetBatchlines, -1
   StringLen, RC4PassLen, RC4Pass
   Loop, 256
   {
      a := A_Index - 1
      Transform, ModVal, Mod, %a%, %RC4PassLen%
      ModVal ++
      StringMid, C, RC4Pass, %ModVal%, 1
      Transform, AscVar, Asc, %C%
      Key%a% = %AscVar%
      sBox%a% = %a%
   }
   b = 0
   Loop, 256
   {
      a := A_Index - 1
      TempVar := b + sBox%a% + Key%a%
      Transform, b, Mod, %TempVar%, 256
      T := sBox%a%
      sBox%a% := sBox%b%
      sBox%b% = %T%
   }
   StringLen, DataLen, RC4Data
   RC4Result =
   i = 0
   j = 0
   Loop, %DataLen%
   {
      TmpVar := i + 1
      Transform, i, Mod, %TmpVar%, 256
      TmpVar := sBox%i% + j
      Transform, j, Mod, %TmpVar%, 256
      TmpVar := sBox%i% + sBox%j%
      Transform, TmpVar2, Mod, %TmpVar%, 256
      k := sBox%TmpVar2%
      StringMid, TmpVar, RC4Data, %A_Index%, 1
      Transform, AscVar, Asc, %TmpVar%
      Transform, C, BitXOR, %AscVar%, %k%
      IfEqual, C, 0
         C = %k%
      Transform, ChrVar, Chr, %C%
      RC4Result = %RC4Result%%ChrVar%
   }
AutoTrim, %ATrim%
SetBatchlines, %BLines%
Return RC4Result
}
;___RC4_____________________________________

; Generated using SmartGUI Creator 3.5.1
IniRead, SUN, E:\Documents and Settings\admin\Desktop\test.ini, username, user ;Read User Name From ini
IniRead, SUP, E:\Documents and Settings\admin\Desktop\test.ini, pass, password ;Read Password From ini
Gui, Show, x182 y47 h149 w344, Password Encryption Test

Gui, Add, Text, x46 y37 w110 h20,User
Gui, Add, Edit, x176 y37 w130 h20 vGsUser, %SUN%
Gui, Add, Text, x46 y67 w110 h20,Password
Gui, Add, Edit, x176 y67 w130 h20 vGsPass, %SUP%
Gui, Add, Button, x126 y107 w110 h20 gSubmit,Submit
Return

Submit:
Gui, Submit, NoHide
GoSub RC4

PW = GsPass
Data = Rajat is cool

Gosub, RC4
MsgBox, %Result%

Data = %Result%

Gosub, RC4
MsgBox, %Result%


GuiClose:
IniWrite, %GsUser%, E:\Documents and Settings\admin\Desktop\test.ini, username, user ;Writes UserName to ini
IniWrite, %Result%, E:\Documents and Settings\admin\Desktop\test.ini, pass, password ;Writes Password to ini
ExitApp


;___RC4_____________________________________

RC4:
   ATrim = %A_AutoTrim%
   AutoTrim, Off
   BLines = %A_BatchLines%
   SetBatchlines, -1

   StringLen, PWLen, PW
   
   IfNotEqual, PW, %OldPW%
   {
      Loop, 256
      {
         a := A_Index - 1
         
         Transform, ModVal, Mod, %a%, %PWLen%
         ModVal ++
         
         StringMid, C, PW, %ModVal%, 1
         Transform, AscVar, Asc, %C%
   
         Key%a% = %AscVar%
         sBox%a% = %a%
      }
      
      b = 0
      Loop, 256
      {
         a := A_Index - 1
   
         TempVar := b + sBox%a% + Key%a%
         Transform, b, Mod, %TempVar%, 256
         
         T := sBox%a%
         sBox%a% := sBox%b%
         sBox%b% = %T%
      }
   
      OldPW = %PW%
   }

   StringLen, DataLen, Data
   
   Result =
   i = 0
   j = 0

   Loop, %DataLen%
   {
      TmpVar := i + 1
      Transform, i, Mod, %TmpVar%, 256

      TmpVar := sBox%i% + j
      Transform, j, Mod, %TmpVar%, 256

      TmpVar := sBox%i% + sBox%j%
      Transform, TmpVar2, Mod, %TmpVar%, 256
      
      k := sBox%TmpVar2%
      
      StringMid, TmpVar, Data, %A_Index%, 1
      Transform, AscVar, Asc, %TmpVar%

      Transform, C, BitXOR, %AscVar%, %k%

      IfEqual, C, 0
         C = %k%
      
      Transform, ChrVar, Chr, %C%

      Result = %Result%%ChrVar%
   }


   AutoTrim, %ATrim%
   SetBatchlines, %BLines%
Return

;___RC4_____________________________________

PW = password

FileRead, Data, %A_WorkingDir%\24.txt

Gosub, RC4

Loop, Parse, Result, `n, `r
{ 
  FileAppend, %A_LoopField%`n, %A_WorkingDir%\24Crypt.txt
}
;-----------------------

FileRead, Data, %A_WorkingDir%\24Crypt.txt

StringTrimRight, Data, Data, 2  ;This line is supposed to take away the last line feed.

If (Data = Result) Then   
  MsgBox, They are exactly alike
MsgBox, %Data%
MsgBox, %Result%

;Data = %Result%    ;If I uncomment this it will work.
Gosub, RC4

Loop, Parse, Result, `n, `r
{ 
  FileAppend, %A_LoopField%`n, %A_WorkingDir%\24Decrypt.txt
}

ExitApp


;___RC4_____________________________________

RC4:
   ATrim = %A_AutoTrim%
   AutoTrim, Off
   BLines = %A_BatchLines%
   SetBatchlines, -1

   StringLen, PWLen, PW
   
   IfNotEqual, PW, %OldPW%
   {
      Loop, 256
      {
         a := A_Index - 1
         
         Transform, ModVal, Mod, %a%, %PWLen%
         ModVal ++
         
         StringMid, C, PW, %ModVal%, 1
         Transform, AscVar, Asc, %C%
   
         Key%a% = %AscVar%
         sBox%a% = %a%
      }
      
      b = 0
      Loop, 256
      {
         a := A_Index - 1
   
         TempVar := b + sBox%a% + Key%a%
         Transform, b, Mod, %TempVar%, 256
         
         T := sBox%a%
         sBox%a% := sBox%b%
         sBox%b% = %T%
      }
   
      OldPW = %PW%
   }

   StringLen, DataLen, Data
   
   Result =
   i = 0
   j = 0

   Loop, %DataLen%
   {
      TmpVar := i + 1
      Transform, i, Mod, %TmpVar%, 256

      TmpVar := sBox%i% + j
      Transform, j, Mod, %TmpVar%, 256

      TmpVar := sBox%i% + sBox%j%
      Transform, TmpVar2, Mod, %TmpVar%, 256
      
      k := sBox%TmpVar2%
      
      StringMid, TmpVar, Data, %A_Index%, 1
      Transform, AscVar, Asc, %TmpVar%

      Transform, C, BitXOR, %AscVar%, %k%

      IfEqual, C, 0
         C = %k%
      
      Transform, ChrVar, Chr, %C%

      Result = %Result%%ChrVar%
   }


   AutoTrim, %ATrim%
   SetBatchlines, %BLines%

Return

;___RC4_____________________________________

There are problems with RC4 in binary mode: the encrypted text
can contain non-printable characters.
If you write them in a file and read back,
different ones could map to the same character.
If there is a NUL, it is treated as a string terminator, etc.
If you insist on using RC4, you have to modify the code,
such that the result is a stream of hex digits.
But RC4 is not very secure, so why bother?
Use instead TEA, the Tiny Encryption Algorithm.
For texts use this, or that.

;; Win xp pro sp0
;; Ahk Version 1.0.43.08


RunWait, %comspec% /c aesy isExist.dat  , , min
   MsgBox %errorlevel%

;; returns 0

RunWait, %comspec% /c aesy noExist.dat  , , min
   MsgBox %errorlevel%

;; returns 1