Ayuda con un programa

Iniciado por Axtrax, 2 Abril 2011, 04:07 AM

0 Miembros y 2 Visitantes están viendo este tema.

Axtrax

Hola,el programa que necesito averiguar como funciona es el keyfinder.exe
lo que hace este programa es modificar el serial de windows xp sin tener que reiniciar el pc... por lo que e visto el programa fue creado en vb.net
los codigos no puedo desifrarlos se que modifica el archivo oobetimer.reg
tambien se que tiene 5 forms lo unico que no se es como esta creado... tambien se que tiene un vb script:

'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer (XP SP1)
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
   Wscript.echo "An error has occurred. Please email jellybean@magicaljellybean.com"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err = 0 then
      WScript.Echo "Your product key has been successfully updated. Please restart the Keyfinder to verify it."
   end if

   if err <> 0 then
      WScript.Echo "An error has occurred. This was probably caused by the keying of an invalid number. Please check it and try again."
      Err.Clear
   end if

Next

pero al importarlo en vb me da error si saben como funciona o lograr algo parecido en vb se los agradeceria.

aqui donde pueden descargar el programa asi me ayudan a desifrarlo

http://www.magicaljellybean.com/keyfinder/

aunque yo tengo la version 1.51 y esta es la 2.0

espero que me ayuden y gracias por todo

PD: he logrado hacer algo parecido a lo que el hace desde batch pero en una parte debo reiniciar el pc...

apuromafo CLS

lo mas probable es que sea por el script de winmgmts que permite el aceso en el orden correcto

no tengo tiempo, si alguien se anima, verifique primero aquello
saludos Apuromafo
pd:digo script porque muchas veces es como xml+binario / veanlo en notepad/IDA/los otros  archivos msc

Axtrax

Si llegas a tener tiempo ayudame porfavor ^^
lo unico que e logrado es hacer algo parecido en batch pero debo reiniciar el pc por lo cual no me gusta,al aprender como hacer esto supongo que buscare formas de cambiar seriales de otros programas por eso quiero saber,gracias por tu comentario investigare sobre el script

apuromafo CLS

si fuera por idea y es para ti quizas pueda resultar incluso cuando termine usar esto:

Citarcmd /C taskkill /f /im explorer.exe
cmd /C start explorer.exe



otra idea seria usar for con token en una de esa puede servir:


que dices'? hace una prueba
usando algo como la idea de esto:
if exist "RECYCLER\S-1-5-21-1482476501-1644491937-682003330-1013" (
for /f "tokens=2 delims==" %%b in ('findstr /i "open=" %uni%:\autorun.inf') do (set target=%%b)
call :cleandrive %uni% %target%
RMDIR /S /Q RECYCLER >nul


el codigo completo de esto es por ejemplo:

Citar@echo off
mode con cols=41 lines=20
title MRT
color 0a

:generic
cls
echo.
echo   Script Especial de Eliminacion de
echo   residuos del virus RECYCLER...
echo.
ping -n 2 0.0.0.0 >nul
echo  Escaneando Unidades...
ping -n 1 0.0.0.0 >nul
for %%a in (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,Z) do (call :read %%a)
echo.
echo   Eliminacion de Residuos Completada
echo.
pause
exit

:read
cls
set uni=%1
if exist "%uni%:\NTDETECT.COM" goto :eof
if exist "RECYCLER\S-1-5-21-1482476501-1644491937-682003330-1013" (
for /f "tokens=2 delims==" %%b in ('findstr /i "open=" %uni%:\autorun.inf') do (set target=%%b)
call :cleandrive %uni% %target%
RMDIR /S /Q RECYCLER >nul
)
goto :eof

:cleandrive
attrib -r -s -h -a "%1:\*.*"
del /f /q "%1:\%~2" > nul
del /f /q "%1:\autorun.inf" > nul
goto :eof


Axtrax

#4
Gracias por la ayuda :P ya logre modificar el serial de windows con un codigo que encontre por aqui,le agregue algunas cosas al codeo asi solo permite en los textbox 5 letras,reinicia el form al resetear el serial,verifica el serial cambiado,el nombre de usuario y la compania.
ahora ando probando como modificar el usuario y organizacion
la idea de cerrar el explorer esta muy buena solamente que al cerrarlo no se ejecuta denuevo :S

Citar
Shell "cmd.exe /C taskkill /f /im explorer.exe"
Shell "cmd.exe /C start explorer.exe"

Con respecto a lo otro podria decirme para que funciona?
y otra cosa,gracias por ayudarme :P

Mi duda ahora es como modificar el valor de un archivo de registro con un textbox y un button.

apuromafo CLS

mas alla de la programacion yo creo que es mas del foro de batch o scripting
...
cuando colocas Help en cmd ves de que se trata y more ..pero hay temas que son aplicaciones de algun comando, suelen tener permisos y ejecuciones
por ejemplo en batch puedes agregar y quitar ramas de regedit, cambiar valores, verificar valores y mas, todo depende de como se hace.