Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Diciembre 02, 2008, 03:37:05
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Como crear un keygen?? 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Como crear un keygen??  (Leído 1023 veces)
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« en: Agosto 20, 2005, 06:34:23 »
juegos gratis
mi problema es el siguiente, quiero hacer un keygen de un programa hecho por mi que pide una clave, lo que quiero es q genere claves aleatorias y seria mucho mejor q hiciera una especie de fuerza bruta (tal como los simuladores hacker, como el bs hacker o el hacker 2004)... seria bueno que el q supiera como hacerlo pues lo posteara...
En línea
Prosutch
Visitante
« Respuesta #1 en: Agosto 21, 2005, 09:45:16 »
Hola, depende del algoritmo de programacion.Si por lo menos del programa sabes cuantos caracteres lleva, y son numeros, o letras, o combinacion, pos, usa el Random.Lee sobre Random osea, es para generar palabras, numeros, y demas aleatoriamente.
En línea
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« Respuesta #2 en: Agosto 21, 2005, 10:52:25 »
bien, uso el random... el problema es q no se usarlo bn. investigare

el programa tiene 4 numeros...
En línea
On[C]raF
Visitante
« Respuesta #3 en: Agosto 21, 2005, 12:15:24 »
En línea
Prosutch
Visitante
« Respuesta #4 en: Agosto 21, 2005, 01:15:58 »
cierto, hay q especifikarse un poco mejor :S

Al saber que son 4 num. la cosa ya se torn facil...
En línea
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« Respuesta #5 en: Agosto 21, 2005, 04:30:25 »
si, pero lo q yo quiero es q los introduzca el keygen en el programa
En línea
On[C]raF
Visitante
« Respuesta #6 en: Agosto 21, 2005, 07:29:23 »
En línea
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« Respuesta #7 en: Agosto 21, 2005, 07:48:19 »
de nuevo:

mira, quiero saber como hacer un keygen que introduzca los datos en el form que me los pide (en este caso la clave)... no se si sera posible, pero me gustaria q me respondieran
En línea
On[C]raF
Visitante
« Respuesta #8 en: Agosto 21, 2005, 09:08:14 »
...Yo Puedo Ayudarte El Otro Fin De Semana...
...Esque Soy Muy Principiante Todavia...
...Wink...
En línea
Xpeed
Visitante
« Respuesta #9 en: Agosto 22, 2005, 12:00:54 »
En línea
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« Respuesta #10 en: Agosto 22, 2005, 03:06:56 »
pues podrias dar algun ejemplo?
En línea
la caca
Miembro
*****
Desconectado Desconectado

Mensajes: 72


Ver Perfil Email
« Respuesta #11 en: Å¿eptiembre 05, 2005, 09:56:36 »
aca te dejo un codigo fuente de un programa que hice yo en vb 5.0

me voy a dormir asi que investigalo vos
ni te lo explico por hoy
si tenes duda consulatame en este mismo foro

un sauldo y aca va el codigo (che soy de argentina carajo):

Private Sub Timer1_Timer()
serie.Text = nombre.Text + apellido.Text
End Sub

Private Sub Timer2_Timer()
If serie.Text = nombre.Text + apellido.Text Then
Timer1.Interval = 0
Else
Timer1.Interval = 1
End If
End Sub

Private Sub Timer3_Timer()
      Dim TextoAux As String, Texto As String
    Dim I As Integer
    Texto = ""
    TextoAux1 = serie.Text
    For I = 1 To Len(TextoAux1)
        serie.SelStart = I - 1
        serie.SelLength = 1
        TextoAux = serie.SelText
        Texto = Texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
    serie2.Text = Texto
    End Sub

Private Sub Timer4_Timer()
If serie2 = serial3 Then
noreg.Visible = False
sireg.Visible = True
nombre.Enabled = False
apellido.Enabled = False
serial3.Enabled = False
serial3.Visible = False
Else
noreg.Visible = True
sireg.Visible = False
nombre.Enabled = True
apellido.Enabled = True
serial3.Enabled = True
End If
End Sub

Private Sub Timer5_Timer()
If cuenta.Caption = 0 Then
Unload Me
frmSplash.Visible = True
Else
cuenta.Caption = cuenta.Caption - 1
End If
End Sub





y su keygennnnnnnn:




Private Sub Timer1_Timer()
serie.Text = nombre.Text + apellido.Text
End Sub

Private Sub Timer2_Timer()
If serie.Text = nombre.Text + apellido.Text Then
Timer1.Interval = 0
Else
Timer1.Interval = 1
End If
End Sub

Private Sub Timer3_Timer()
      Dim TextoAux As String, Texto As String
    Dim I As Integer
    Texto = ""
    TextoAux1 = serie.Text
    For I = 1 To Len(TextoAux1)
        serie.SelStart = I - 1
        serie.SelLength = 1
        TextoAux = serie.SelText
        Texto = Texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
    serie2.Text = Texto
    End Sub




listo

che si lo entendes bien por vos y si no tambien (no mentira si queres despues te lo explico y si tengo tiempo subo un ejemplo que es el prog que hice para que lo veas como funka)
En línea
çhame£eøn
Visitante
« Respuesta #12 en: Å¿eptiembre 05, 2005, 11:13:21 »
En línea
codelogman
Visitante
« Respuesta #13 en: Å¿eptiembre 05, 2005, 11:22:12 »
Windows 32 bits, assembler, ando de buenas, te lo regalo:



.486
.model flat, stdcall
option casemap :none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\advapi32.inc

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\advapi32.lib

WndProc           PROTO :DWORD,:DWORD,:DWORD,:DWORD

.data
 dialog_namn    db "Generador de Llaves",0
 _flag          db "AzRaEL [NuKE]",0
 __flag        db "NuKE Members",0
 ___flag          db "Barcelona Crackers Group",0
 zformat       db "%d",0
 xrunner       dw 173fh
 sju            dw 7
 tre            dw 3
 tolv           dw 12

.data?
 _Instance      dd ?
 sznamn         dd ?
 szkod          db 20 dup(?)
 
.code
start:

 invoke GetModuleHandle,NULL
 mov _Instance,eax
 invoke DialogBoxParam,_Instance,addr dialog_namn,0,addr WndProc,0
 invoke ExitProcess,eax

WndProc proc hWin:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

.if uMsg == WM_INITDIALOG
 invoke SendMessage,hWin,WM_SETTEXT,0,addr __flag
 invoke SetDlgItemText,hWin,102,offset _flag

.elseif uMsg == WM_CLOSE
 invoke EndDialog,hWin,0

.elseif uMsg == WM_COMMAND
.if wParam == 03000064h
 invoke GetDlgItemInt,hWin,100,0,FALSE
 .if eax == 0
  invoke lstrcpyA,offset szkod,offset ___flag
 .else
  mov sznamn,eax
  call _calc
 .endif
  invoke SetDlgItemText,hWin,101,offset szkod

.elseif wParam == 103
 invoke EndDialog,hWin,0

.endif
.endif
 xor eax,eax
ret

WndProc endp

_calc proc
pushad
fild dword ptr [sznamn]
fild word ptr [sju]
fmulp st(1),st
fild word ptr [tre]
fdivp st(1),st
fild word ptr [tolv]
faddp st(1),st
fldcw word ptr [xrunner]
frndint
fistp dword ptr [sznamn]
invoke wsprintfA,offset szkod,offset zformat,[sznamn]
popad
ret

_calc endp
end start




AzRaEL [NuKE]
En línea
Prosutch
Visitante
« Respuesta #14 en: Å¿eptiembre 06, 2005, 08:28:43 »
 Tongue la gracia era en VB.Jaj ja ja
En línea
..::Zodiac::..
Si, soy un Criminal... Mi crimen Es la curiosidad...
Habitual
*****
Desconectado Desconectado

Mensajes: 354


Hacking Departament


Ver Perfil WWW
« Respuesta #15 en: Å¿eptiembre 06, 2005, 09:10:47 »
muchas gracias!!
En línea
la caca
Miembro
*****
Desconectado Desconectado

Mensajes: 72


Ver Perfil Email
« Respuesta #16 en: Å¿eptiembre 14, 2005, 06:09:56 »
che pero eso no seria una calve valida jaja porque anda a saber si las calves validas son producto del mismo randomize

me explico:

vos tenes un formulario que en ese momento por el randomize la calve fue 1234 y el keygen genero una calve que es 2345 entonces si esas dos claves no concuerdan "CAGASTE" por asi decirlo jeje

te combiene utilizar el codigo XOR para poder hacer una calve por ejemplo con el nombre y  comparaciones


por ejemplo yo pongo en un textbox LA CACA y eso se codifica de una determinada forma, ponele que el codigo que de es E{R$GH[ , eso se guarda en un log y cuando vos abris el programa, este solo lee el log y coloca LA CACA en, por ejemplo, un casillero con un label llamado NOMBRE y lee despues la calve generada y la coloca en otro casillero llamado por ejemplo SERIAL, despues hace una comparacion si el serial es correcto con respecto al nombre, y si lo es que aparezca un mensaje diciendo GRACIAS POR REGISTRAR EL PRODUCTO

bueno eso es todo chau

si queres un programa de ejemplo mandame un mail asi tamos
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Como crear un keygen?? « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC