k0ws escribió:Bueno,las pass se donde esta y tal,pero preferi parcharlo:


[Enlace externo eliminado para invitados]

-Saludos-

linkgl escribió:

k0ws escribió:Bueno,las pass se donde esta y tal,pero preferi parcharlo:


[Enlace externo eliminado para invitados]

-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...

Mostrar/Ocultar

Cuantos caracteres hay entre "a" y "h" y entre "s" y "z" me pregunto yo que pasara si a cada caracter de la cadena encriptada le resto todos los caracteres que hay entre a y h :P

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;