Primer KeyGen en Batch con Mouse [Incompleto]

ProcessKill · Febrero 24, 2010, 05:13:30 PM

Hola, que tal, tenía tiempo que no posteaba aca en Batch, esta vez les traigo una super idea que no he visto en ningún lado.
Se trata de un KeyGen en Batch [Suena totalmente estupido pero lleva su tiempo hacerlo], estuve trabajando en esto pero me enrede sinceramente así que les suelto el source de lo que hice para que ustedes terminen.

Lo diferente de todo esto es que como es un KeyGen pues utilizarémos el Mouse, ejemplo daremos click en Generar y saldra el Serial etc. aca esta:

Código: text

@Echo off
(
echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3
echo g116
echo q
)>Zmouse.txt
::
:: by 3D1
:: moded by xassiz
::
Mode Con Cols=80 lines=25
SetLocal ENABLEDELAYEDEXPANSION
:portada
cls
Echo                                                                          [Salir]
Echo.
Echo.
Echo.
Echo                         Escoje el programa:
Echo.
Echo.
Echo               +---------------+        +---------------+
Echo               + Dreamweaver 8 +        +    Flash 8    +
Echo               +---------------+        +---------------+
:g
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (goto dreamweaver)
Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. Usted escogio Flash 8!!!&echo.&pause>nul&goto flash)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)
goto dreamweaver
:dreamweaver
cls
Echo                                                                          [Salir]
Echo.
Echo.
Echo.
Echo                         Escoje el programa:
Echo.
Echo.
Echo               +---------------+        +---------------+
Echo               +    Generar    +        +    Cancelar   +
Echo               +---------------+        +---------------+
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0019 0020 0021 0022 0023 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. WPD800-55539-73132-87733!!!)
Call:mous "0029 0030 0031 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (exit)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)
goto 2

:2
pause
cls
Echo                                                                          [Salir]
Echo.
Echo.
Echo.
Echo                         Escoje el programa:
Echo.
Echo.
Echo               +---------------+        +---------------+
Echo               +    Generar    +        +    Cancelar   +
Echo               +---------------+        +---------------+
del /q/a/s/f ZDats>nul 2>&1
debug< Zmouse.txt |find /i "x">ZDats
call:x
call:y
call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (echo. WPD800-52234-85132-68504!!!)
Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
if %state% EQU OK (exit)
Call:mous "004E" "%CX%" "0000" "%DX%"
if %state% EQU OK (Exit)
)


:X
Set /p LineCode=<ZDats
for /f "Tokens=3" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
 
:Y
Set /p LineCode=<ZDats
for /f "Tokens=4" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
 

:mous
Set DMous=%2
Set DMous=!DMous!%4
for %%m in (%~1) do (
   for %%n in (%~3) do (
      if !DMous! EQU "%%m""%%n" (
         Set state=OK
         Set CX=0000
         Set DX=0000
         Goto:eof
      ) ELSE (
         Set state=NO
      )
   )
)
Goto:eof

Algunas partes estan mal pero un KeyGen en Batch pasaría a la historia, denle una checadita y traten de terminarlo ya que realmente a mi me dio pereza y me puse a crear otras cosas en PHP.

Saludos y suerte.

Xt3mP

Primer KeyGen en Batch con Mouse [Incompleto]

ProcessKill

Febrero 24, 2010, 05:13:30 PM Ultima modificación: Febrero 22, 2015, 09:21:08 PM por Expermicid