KEY-SCRAMBLER( BYPASS )

#NOTRAYICON

#INCLUDE <WINAPI.AU3>
#INCLUDE <WINDOWSCONSTANTS.AU3>

OPT ("MUSTDECLAREVARS",1)

FUNC __INIT_ ()

CONSOLEWRITE (@CRLF)
CONSOLEWRITE ("- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=--=-=-=-=-=-=-=-=-=-=--=-="&@CRLF)
CONSOLEWRITE ("- KEY-SCRAMBLER V 2.8.2.0 BYPASS V 1.1"&@CRLF)
CONSOLEWRITE ("- CODED BY : HOUDINI (C) , WWW.DEV-POINT.COM (TM) HOUDINI-FX ( SKYPE )"&@CRLF)
CONSOLEWRITE ("- VISIT OWR FOR MORE INFO"&@CRLF)
CONSOLEWRITE ("- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=--=-=-=-=-=-=-=-=-=-=--=-="&@CRLF)

CONSOLEWRITE ("- KEY-SCRAMBLER V2.8.2.0 BYPASS LOGO :"&@CRLF&@CRLF)
CONSOLEWRITE ("+[0] -> CHECKING CMD ARGUMMENT PASSED ....."&@CRLF)
IF  $CMDLINE[0] = 2 AND ($CMDLINE[1] = "/ACTIVE" OR $CMDLINE[1] = "/DESACTIVE") AND  ($CMDLINE[2] = "/MEMORY-NOPASS" OR $CMDLINE[2] = "/MEMORY-BYPASS" OR $CMDLINE[2] = "/LOCAL-NOPASS" OR $CMDLINE[2] = "/LOCAL-BYPASS") THEN
    CONSOLEWRITE ("+       CMD ARGUMMENT IT OK PASSED"&@CRLF)
    CALL ("__LOADER_",$CMDLINE[1],$CMDLINE[2])
ELSE
    CONSOLEWRITE ("!       ERROR CMD ARGUMMENT , SEE FORUM POST FOR HELP"&@CRLF)
    SHELLEXECUTE ("http://www.dev-point.com/vb")
ENDIF
CONSOLEWRITE (@CRLF)
CONSOLEWRITE ("- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=--=-=-=-=-=-=-=-=-=-=--=-="&@CRLF)
CONSOLEWRITE (@CRLF)

WHILE TRUE

SLEEP (10)
WEND
ENDFUNC

FUNC __LOADER_ ($STATUS,$VALUE)

LOCAL $V_INSTALL,$P_INSTALL,$H_PROCESS,$IWRITTEN,$KEYSCRAMBLER_STRUCTUR,$KEYSCRAMBLER_STRUCTUR_PTR,$H_KEYSCRAMBLER,$H_KEYSCRAMBLER_SETTING,$D_KEYSCRAMBLER_SETTING
LOCAL CONST $N_PROCESS = "KEYSCRAMBLER.EXE",$N_LOCAL = "KEYSCRAMBLERIE.DLL"
LOCAL CONST $NOPASS_SHELLCODE = "0X89180F84A7010000"
LOCAL CONST $BYPASS_SHELLCODE = "0XC700000000009090"
LOCAL CONST $KEYSCRAMBLER_PID = PROCESSEXISTS ($N_PROCESS)

$P_INSTALL = REGREAD ("HKEY_LOCAL_MACHINE\SOFTWARE\QFX SOFTWARE\KEYSCRAMBLER","INSTALL FOLDER")&"\"&$N_LOCAL
$V_INSTALL = REGREAD ("HKEY_LOCAL_MACHINE\SOFTWARE\QFX SOFTWARE\KEYSCRAMBLER","VERSION")
CONSOLEWRITE ("+[1] -> CHECKING KEY-SCRAMBLER VESION ....."&@CRLF)
IF  $V_INSTALL <> "2.8.2.0" THEN
    CONSOLEWRITE("!       VERSION INSTALLED ERROR , IT MUST BE 2.8.2.0"&@CRLF)
    RETURN
ENDIF
CONSOLEWRITE("+       VERSION INSTALLED IT OK "&@CRLF)
IF  $STATUS = "/DESACTIVE" THEN CALL ("__STATUS_",$STATUS)
$KEYSCRAMBLER_STRUCTUR = DLLSTRUCTCREATE ("BYTE KEYSCRAMBLER[8]")
SWITCH $VALUE
    CASE "/MEMORY-NOPASS"
    DLLSTRUCTSETDATA ($KEYSCRAMBLER_STRUCTUR,"KEYSCRAMBLER",$NOPASS_SHELLCODE)
    CASE "/LOCAL-NOPASS"
    DLLSTRUCTSETDATA ($KEYSCRAMBLER_STRUCTUR,"KEYSCRAMBLER",$NOPASS_SHELLCODE)
    CASE "/MEMORY-BYPASS"
    DLLSTRUCTSETDATA ($KEYSCRAMBLER_STRUCTUR,"KEYSCRAMBLER",$BYPASS_SHELLCODE)
    CASE "/LOCAL-BYPASS"
    DLLSTRUCTSETDATA ($KEYSCRAMBLER_STRUCTUR,"KEYSCRAMBLER",$BYPASS_SHELLCODE)
ENDSWITCH
$KEYSCRAMBLER_STRUCTUR_PTR  = DLLSTRUCTGETPTR ($KEYSCRAMBLER_STRUCTUR,"KEYSCRAMBLER")
IF  $VALUE = "/LOCAL-BYPASS" OR $VALUE = "/LOCAL-NOPASS" THEN
    CALL ("__STATUS_","/EXIT")
    DO
        SLEEP (1)
    UNTIL PROCESSEXISTS ($N_PROCESS) = 0
    _WINAPI_POSTMESSAGE (0XFFFF,$WM_ACTIVATE,0,0)
    CONSOLEWRITE ("+[3] -> TRY OPENING KEY-SCRAMBLER FILE FOR LOCAL PATCHING ....."&@CRLF)
    $H_KEYSCRAMBLER = _WINAPI_CREATEFILE ($P_INSTALL,3,4)
    IF  $H_KEYSCRAMBLER = 0 THEN
        CONSOLEWRITE ("!       ERROR IN __WINAPI _BOOL : CREATE_FILE ()"&@CRLF&"!       FAILED TO OPEN FILE NAMED : "&$N_LOCAL&@CRLF&"!       FILE IT NOT EXISTS OR IT IN EXECUTE"&@CRLF)
        CONSOLEWRITE ("![4] -> KEY-SCRAMBLER 2.8.2.0 PASSED ERROR"&@CRLF)
        _WINAPI_CLOSEHANDLE ($H_KEYSCRAMBLER)
        RETURN
    ELSE
        CONSOLEWRITE ("+       FILE KEY-SCRAMBLER OPENING FOR WRITING MODE IT OK"&@CRLF)
    ENDIF
    CONSOLEWRITE ("+[4] -> TRY WRITING MAGIC-BYTE TO KEY-SCRAMBLER FILE ....."&@CRLF)
    _WINAPI_SETFILEPOINTER ($H_KEYSCRAMBLER,0X000317FF,0)
    IF  _WINAPI_WRITEFILE ($H_KEYSCRAMBLER,$KEYSCRAMBLER_STRUCTUR_PTR,8,$IWRITTEN) = FALSE THEN
        CONSOLEWRITE ("!       ERROR IN __WINAPI _BOOL : WRITE_FILE ()"&@CRLF&"!       FAILED TO WRITE FILE NAMED : "&$N_LOCAL&@CRLF)
        CONSOLEWRITE ("![5] -> KEY-SCRAMBLER 2.8.2.0 PASSED ERROR"&@CRLF)
        _WINAPI_CLOSEHANDLE ($H_KEYSCRAMBLER)
        RETURN
    ELSE
        CONSOLEWRITE ("+       FILE WRITING MAGIC-BYTE IT OK"&@CRLF)
    ENDIF
    CONSOLEWRITE ("+[5] -> GREET TO YOU , KEY-SCRAMBLER 2.8.2.0 PASSED WITH NO ERROR"&@CRLF)
    _WINAPI_CLOSEHANDLE ($H_KEYSCRAMBLER)
    $KEYSCRAMBLER_STRUCTUR = 0
    IF  $STATUS = "/ACTIVE" THEN
        CALL("__UPDATA_","1")
    ENDIF
    RETURN
ENDIF
CONSOLEWRITE("+[3] -> TRY OPENING PROCESS FOR MEMORY PATCHING ....."&@CRLF)
$H_PROCESS = _WINAPI_OPENPROCESS (0X001F0FFF,TRUE,$KEYSCRAMBLER_PID)
IF  $H_PROCESS = @ERROR THEN
    CONSOLEWRITE ("!       ERROR IN __WINAPI _HEANDEL : OPEN_PROCESS ()"&@CRLF&"!       FAILED TO OPEN PROCESS NAMED : "&$N_PROCESS&@CRLF&"!       PROCESS IT NOT EXISTS"&@CRLF)
    CONSOLEWRITE ("![4] -> KEY-SCRAMBLER 2.8.2.0 PASSED ERROR"&@CRLF)
    RETURN
ENDIF
CONSOLEWRITE("+       PROCESS OPENING FOR WRITING MODE IT OK"&@CRLF)
CONSOLEWRITE("+[4] -> TRY WRITING MAGIC-BYTE TO KEY-SCRAMBLER PROCESS ....."&@CRLF)
IF  _WINAPI_WRITEPROCESSMEMORY ($H_PROCESS,0X100323FF,$KEYSCRAMBLER_STRUCTUR_PTR ,8,$IWRITTEN) = FALSE THEN
    CONSOLEWRITE ("!       ERROR IN __WINAPI _BOOL : WRITE_PROCESS ()"&@CRLF&"!       FAILED TO WRITE PROCESS NAMED : "&$N_PROCESS&@CRLF&"!       PROCESS IS REQUIRE PRIVILEGE OR UNDER DEBUGE"&@CRLF&@CRLF)
    CONSOLEWRITE ("![5] -> KEY-SCRAMBLER 2.8.2.0 PASSED ERROR"&@CRLF)
    RETURN
ENDIF
IF  $STATUS = "/ACTIVE" THEN CALL ("__STATUS_",$STATUS)
CONSOLEWRITE ("+       PROCESS WRITING MAGIC-BYTE IT OK"&@CRLF)
CONSOLEWRITE ("+[5] -> GREET TO YOU , KEY-SCRAMBLER 2.8.2.0 PASSED WITH NO ERROR"&@CRLF)
$KEYSCRAMBLER_STRUCTUR = 0
_WINAPI_CLOSEHANDLE ($H_PROCESS)
ENDFUNC

FUNC __STATUS_ ($PARAM)

LOCAL CONST $ACTIVE_ID = 0X8001
LOCAL CONST $DESACTIVE_ID = 0X8002
LOCAL CONST $EXIT_ID = 0X8004
LOCAL CONST $HWND_KEYSCRAMBLER = WINGETHANDLE ("[CLASS:ATL:100B6C00]")
LOCAL CONST $IMSG_KEYSCRAMBLER = $WM_COMMAND
LOCAL $WPARAM_KEYSCRAMBLER = 0X00000000
LOCAL CONST $LPARAM_KEYSCRAMBLER = 0X00000000

CONSOLEWRITE ("+[2] -> TRY SENDING KEY-SCRAMBLER MESSAGE STATUS CHANGE ....."&@CRLF)
SWITCH $PARAM
    CASE "/ACTIVE"
    $WPARAM_KEYSCRAMBLER = _WINAPI_MAKELONG ($ACTIVE_ID, 0X0000)
    CASE "/DESACTIVE"
    $WPARAM_KEYSCRAMBLER = _WINAPI_MAKELONG ($DESACTIVE_ID, 0X0000)
    CASE "/EXIT"
    $WPARAM_KEYSCRAMBLER = _WINAPI_MAKELONG ($EXIT_ID, 0X0000)
ENDSWITCH
IF  _WINAPI_POSTMESSAGE ($HWND_KEYSCRAMBLER,$IMSG_KEYSCRAMBLER,$WPARAM_KEYSCRAMBLER,$LPARAM_KEYSCRAMBLER) = FALSE OR $HWND_KEYSCRAMBLER = "" THEN
    CONSOLEWRITE ("!       ERROR IN __WINAPI _BOOL : POST_MESSAGE ()"&@CRLF&"!       FAILED TO POST MESSAGE TO WIN HANDLE : ["&$HWND_KEYSCRAMBLER &"]"&@CRLF&"!       WINDOWS IT NOT EXISTS"&@CRLF)
    RETURN
ELSE
    CONSOLEWRITE ("+       MESSAGE IT POSTED OK TO WINDOWS QUEUE"&@CRLF)
ENDIF
ENDFUNC

FUNC __UPDATA_ ($BOOL)

LOCAL CONST $SETTINGS_DATA = FILEREAD (@APPDATADIR&"\QFX SOFTWARE\KEYSCRAMBLER\SETTINGS.INI")
LOCAL $SETTINGS_DATA_SPLITED,$NEW_SETTINGS_DATA,$ENABLED_BOOL,$H_KEYSCRAMBLER_SETTING

$SETTINGS_DATA_SPLITED = STRINGSPLIT ($SETTINGS_DATA,",",1)
$ENABLED_BOOL = FALSE
FOR $I =1 TO $SETTINGS_DATA_SPLITED [0] STEP 1
    IF  STRINGINSTR ($SETTINGS_DATA_SPLITED[$I],"Enabled") THEN
        $ENABLED_BOOL = TRUE
        $SETTINGS_DATA_SPLITED[$I] = CHR (0X22)&"Enabled"&CHR (0X22)&":"&$BOOL
    ENDIF
NEXT
FOR $I =1 TO $SETTINGS_DATA_SPLITED [0] STEP 1
    IF  $I = 2 AND $ENABLED_BOOL = FALSE THEN
        $NEW_SETTINGS_DATA &= CHR (0X22)&"Enabled"& CHR (0X22)&":"&$BOOL&","
    ELSE
        $NEW_SETTINGS_DATA &= $SETTINGS_DATA_SPLITED[$I]&","
    ENDIF
NEXT
$NEW_SETTINGS_DATA = STRINGTRIMRIGHT ($NEW_SETTINGS_DATA,1)
$H_KEYSCRAMBLER_SETTING = FILEOPEN (@APPDATADIR&"\QFX SOFTWARE\KEYSCRAMBLER\SETTINGS.INI",2)
FILEWRITE ($H_KEYSCRAMBLER_SETTING,$NEW_SETTINGS_DATA)
FILECLOSE ($H_KEYSCRAMBLER_SETTING)
ENDFUNC