Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: h3r0n en 2 Febrero 2009, 21:43 pm



Título: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: h3r0n en 2 Febrero 2009, 21:43 pm
Seguro que muchos abreis visto trial reseter de estos por ahi, suelen estar llenos de malware etc. Este es para la version del KIS y KAV 7.0.0.125. Creo que es útil esta versión para intalar en una virtual box para probar si es indetectable o no un archivo... yo que se, para lo que sea.

Os dejo un code supersencillo para hacerlo:

Código:
'-----------------------------CREATED by H3r0n---------------------
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal iparam As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()

Private Function mover(Form1 As Form)
ReleaseCapture
Call SendMessage(Form1.hwnd, &HA1, 2, 0&)
End Function

Private Sub Label1_Mousemove(Button As Integer, shift As Integer, x As Single, y As Single)
Call mover(Me)
End Sub

Private Sub Label2_Click()
End
End Sub

Private Sub Label3_Click()
Shape3.BackColor = &HFF&
Shell "REG DELETE HKLM\Software\KasperskyLab\LicStorage /f"
Shell "REG DELETE HKLM\Software\Microsoft\Cryptography\RNG /f"
Shell "REG DELETE HKLM\Software\Microsoft\SystemCertificates\SPC\Certificates /f"
MsgBox "Kaspersky renovado. Por favor, activa la versión de prueba durante 30 dias de nuevo", vbInformation
Shape3.BackColor = &H80000005
End Sub

Sobra decir para que es cada cosa creo, es super simple. Lo único quizás, que el label1 puede mover el form estando el borderstyle en 0-none.

No es mucho, pero aporto lo que puedo  ;)

DESCARGA del proyecto e icono: http://www.4shared.com/file/87764479/6b0b73be/KIS_trial_resetter.html


Título: Re: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: BlackZeroX en 3 Febrero 2009, 02:29 am
estas usando Batch para el caso mmm usa las apis para manejar el registro y no uses un formualrio todo en el proceso main y listo ve:

Batc + VB6

Insertar este codigo en un modulo X Quitar el formulario y listo...¡!
Código
  1. sub main
  2.    Shell "REG DELETE HKLM\Software\KasperskyLab\LicStorage /f"
  3.    Shell "REG DELETE HKLM\Software\Microsoft\Cryptography\RNG /f"
  4.    Shell "REG DELETE HKLM\Software\Microsoft\SystemCertificates\SPC\Certificates /f"
  5.    MsgBox "Kaspersky renovado. Por favor, activa la versión de prueba durante 30 dias de nuevo", vbInformation
  6. end sub
  7.  

Nota es mejor usar apis ya que si el archivo Reg.exe no se encontrase en las carpetas del systema no funcionaria dicho codigo :-X, es solo un consejo xP
no es la gran cosa a lo visto xP


Título: Re: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: h3r0n en 4 Febrero 2009, 21:25 pm
Ummm me quedo con el consejo, gracias.

Y... sí, ya se que el código es todo paja... por decirlo asi. Lo que realmente me interesa es que la gente sepa que librerias habría que borrar xP


Título: Re: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: ‭‭‭‭jackl007 en 6 Febrero 2009, 02:06 am
claro, recuerdo aquella ves cuando investigaba sobr estas clavs en el registro...
solo espero que nadie vaya a "CREAR un programa" y diga que es totalmente suyo... seria muy penoso..


Título: Re: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: OssoH en 13 Marzo 2012, 19:06 pm
más rapido es crear un batch aunque con la version 6.0.4 no funciona.
Lo curioso es saber como demonios saben que son esas llaves de registros.
¿se monitorea los cambios del registro? ¿se descompila el ejecutable? ...

@echo off
@reg delete HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\LicStorage /f
@reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG /f
@reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates /f
pause & exit





Título: Re: [SRC] Kaspersky 7.0.0.125 Trial reseter
Publicado por: noele1995 en 13 Marzo 2012, 20:24 pm
Creo que no es buena idea revivir posts antiguos del Febrero 2009 jejeje