NKeygenMe by CronuX

Hola bueno este crackme es mas que todo practicando el gfx de estos jeje asi que no tendra mucha dificultad en si la programacion aunque tiene lo suyo asi que aca les dejo este "bonito" keygenme a ver que tal les parece les puedo recibir cualquier clase de critica con mayor razon del gfx saludos y cualquier cosa me comentan...

Reglas:
* No parchear
* No modificar nada del programa
* No self-Keygen
* Programar un Keygen
* Realizar un tutorial de como lo resolvieron
(Sea en pdf, word, video, txt) Como les sea mas facil con el fin de que todos podamos aprender de ustedes y de cada uno saludos...
* Enviarlo por mp para dejar tiempo que varios lo resuelvan
* Tiempo limite Viernes 30 Abril (Este dia sera ublicado todos los tutoriales y keygens...)





You are not allowed to view links. Register or Login

CronuX

Bueno gracias igual ya esta solo falta que le hagan el keygen jeje eso se los dejo a ustedes y como mencionas si te equivocas tienes que volver a abrirlo pues solo se puede un intento saludos y espero seguir haciendo mas con diferentes gfx que es lo que estoy practicando ahora un poco

saludos

edito: pff jaaja esto se lo dejo a alguien que ya sepa, muy bravo

animo que no esta bravo
Deberias volver a intentarlo si no probar con este You are not allowed to view links. Register or Login que es mas facil

Reglas:
* No parchear
* No modificar nada del programa
* No self-Keygen
* Programar un Keygen
* Realizar un tutorial de como lo resolvieron
(Sea en pdf, word, video, txt) Como les sea mas facil con el fin de que todos podamos aprender de ustedes y de cada uno saludos...
* Enviarlo por mp para dejar tiempo que varios lo resuelvan
* Tiempo limite Viernes 30 Abril (Este dia sera ublicado todos los tutoriales y keygens...)

cumplo y a tiempo!!

le hice un keygen ! en VBS  de momento solo tengo notepad a la mano asi que no di para mas! asi se quedara XD
el mini tuto ya escribi algo en notepad pero voy a ampliarlo a un documento con capturas para que lo sigan facilmente
lo entregare antes de la fecha limite aun me quedan 2 dias asi que lo dejare para ultimo momento como todo jeje

con respecto al GFX creo que te quedo de puta madre 

me gusto bastante .... lo unico que critico pues ya que estas pidiendo criticas je
es el textBox lo ubieses puesto sin borde y pintas unos como los bordes de las fuentes o nose algo personalizado
asi creo que se veria mejor 

PD: vere si me pongo al dia con el otro mini tuto que debo 

hola !

he vuelto a aparecer! hice el tuto tarde pero lo hice! mejor tarde que nunka  jaja

pasa que tengo poco tiempo libre y sumado a eso soy vago xDDD

aqui lo pueden ver You are not allowed to view links. Register or Login

espero que le sirva a alguien

este es el keygen en VBS que hice el dia que lo resolvi copien y guarden como keygen.vbs en el tuto esta uno hta basado en este
Option Explicit
Dim userName, userSerial, strTotal, valNum, valNum2, valNum3, i, copyInput, ebx, edx

edx = ""
ebx = ""
valNum3 = ""
valNum = ""
strTotal = "0"
userSerial = ""

Function myKeyGenFunction()

Do

userName=InputBox("Ingrese el Nombre "& chr(13) & chr(13) &  "Debe contener mas de 4 caracteres y menos de 7","KeyGen by DYB for NKeygenMe  of CronuX","DyBKill")



if userName <> "" And Len(userName) >= 4  And Len(userName) <= 7 then

For i = 1 To Len(userName)
strTotal = strTotal + Cint(Asc(Mid(userName,i,1)))
Next

valNum = Mid(strTotal,1,2)

if  valNum <= 32 then
valNum = valNum + 32
end if


valNum2 = Mid(strTotal,2,2)
if  valNum2 <= 32 then
valNum2 = valNum2 + 32
end if


For i=1 To Len(userName)

ebx = (Asc(Mid(userName,i,1)) + 6) - ( i * 3 )
edx = (i + 2) * 5
valNum3 = valNum3 & chr(ebx xor edx)

Next

userSerial = chr(valNum) & StrReverse(userName) & valNum3 & chr(valNum2)

MsgBox "Datos de Licencia: " & chr(13) & chr(13) & "Nombre: " & userName & chr(13) & "Serial: " & userSerial & chr(13) & chr(13) & "Enjoy!!! XD",64,"KeyGen by DYB for NKeygenMe  of CronuX"



copyInput=InputBox("Copia el Serial: "& chr(13) &  chr(13) & "Valido Para " & userName ,"KeyGen by DYB for NKeygenMe  of CronuX",userSerial)


else

MsgBox "Error #00001h: Generate Falied!! " & chr(13) & chr(13) & "Zorry but!! Debe Volver a intentar XD",16,"KeyGen by DYB for NKeygenMe  of CronuX"



end if

Loop Until (userName <> "" And Len(userName) >= 4 And Len(userName) <= 7)

End Function

myKeyGenFunction()'start :)

Saludos