• Crackmes

 #302651  por p0is0n-123
 
Bueno... saqué un poco de tiempo para programar este simple crackme basándome en ideas de posts anteriores...

Imagen

Se admite parchearlo... sin embargo se pide como objetivo la obtención del serial ...

Descarga

Pass: Indetectables.net


Saludos ...
 #302661  por linkgl
 
Estuvo bien, no tan dificil de deducir y menos con una tabla ascii a la mano xD, pero comparado con los demas crackmes que hacen una comparación con la string directa estuvo mucho mas dificil este :P

Imagen
 #303002  por k0ws
 
Bueno,las pass se donde esta y tal,pero preferi parcharlo:


Imagen

-Saludos-
 #304237  por RoLyxRoLy
 
Lo estoy queriendo descargar pero no me va la página.
Puede ser en otro servidor? :p
 #308816  por RoLyxRoLy
 
Gracias comico por subirlo a ese servidor
...
Yo lo estuve viendo y no puedo solucionarlo correctamente, hasta donde ví, toma la pass y la desencrypta por ejemplo la a pasa a ser la h y la s la z, después le resta una letra y compara y luego sigue...
Me da un poco de verguenza pero hasta ahora solo puedo presentar un parche que es de lo más facil hacer.

Imagen

Después voy a ir avanzando más y espero poder sacarlo como es debido.
 #310066  por Invitado
 
Listo te paso la solucion por Mp
Un saludo
 #310114  por linkgl
 
k0ws escribió:Bueno,las pass se donde esta y tal,pero preferi parcharlo:


Imagen

-Saludos-
Si sabes cual es la pass intenta desencryptarla bro xP queda mejor sacando la pass a un crackme que haciendole un parche

@RoLyxRoly: Pista...
 #310411  por Invitado
 
linkgl escribió:
k0ws escribió:Bueno,las pass se donde esta y tal,pero preferi parcharlo:


Imagen

-Saludos-
Si sabes cual es la pass intenta desencryptarla bro xP queda mejor sacando la pass a un crackme que haciendole un parche

@RoLyxRoly: Pista...

Jeje menuda pista yo te dejo otra, hay cierta string que aplicando esta función puede hacer cosas intereseantes.
Código: Seleccionar todo
function Pass (Clave :string):string;
var
 i,ascii:Integer;
 sChar : string;
 myChar : AnsiChar ;
begin
   for i:=1 to Length (Clave) do
     begin
        sChar:=Copy(Clave,i,1);
        ascii:=Ord(sChar[1])-7;
        myChar :=Char(ascii);
        Result :=Result+mychar;
     end;
end;