De nuevo al ataque, en la décima entrega vamos a volver con los keygenerators, esta vez para un programa bastante útil, el TelePort Pro v1.29. Este programa es de gran utilidad para bajarse sitios web enteros y luego navegar off-line.

Como siempre pondremos en marcha el SoftIce antes de ejecutar el programa luego ejecutamos el programa.Iremos al Menú/Help/Register, nos aparecerá un cuadro de diálogo donde se nos solicitan los siguientes datos: Nombre, Compañia y código de registro.

Introduciremos lo siguiente:

Your Name: Black Fenix
Company: reversed
Registration Code: 1234567

Seguidamente pulsaremos en OK, y como era de esperar nos aparecerá un mensaje de error informandonos que el código de registro no es válido. El mensaje dice lo siguiente:

Salimos del programa y nos vamos al W32DAsm, desensamblamos el ejecutable (pro.exe) y hacemos click en el botón de referencias a cadenas. Buscaremos la cadena que aparece en el cuadro de mensaje "We're sorry! The ...." cuando la encontremos haremos doble click sobre esta. Veremos que el W32DAsm nos muestra el siguiente código:

Como podemos comprobar si examinamos el código, en la línea 42570d se hace referencia a la cadena que estamos buscando, ahora, vamos a buscar el salto que nos envia a este lugar. Vemos que hay un salto en 4256d7 que hace referencia a la línea que hay por encima de 42570d, por lo que vamos a ver que es lo que hace que se nos envie aquí. nos desplazaremos por la ventana de código hasta llegar a la línea 4256d7 y veremos lo siguiente:

Parece que la llamada en 4256CA, condiciona bastante el salto que nos envia al mensaje de error, por lo que vamos a comprobar que es lo que se le pasa a esta función poniendole un BPX en el Soft-Ice. Ejecutamos el programa, vamos a Menu/Help/Register, rellenamos los datos igual que antes y antes de pulsar Enter activamos el Soft-Ice y ponemos un BPX MessageBoxA, salimos del Soft-Ice (Ctrl+D) y pulsamos OK, el BPX habrá surtido efecto y estaremos de nuevo en el Soft-Ice. Pulsamos F12 para ir al código que llamó al cuadro de mensaje, y ahora ya podremos poner un BPX en 4256CA. Salimos del Soft-Ice y volvemos a pulsar el botón OK. Ahora se activará el Soft-Ice antes de que aparezca el cuadro de diálogo y estaremos en la línea 4256CA, vamos a ver a que apunta EDI con:

>d edi

En la ventana de datos veremos que aparece nuestro nombre (Black Fenix para el ejemplo), ya sabemos que ha esta función se le pasa la dirección de nuestro nombre, por lo que es posible que esta sea nuestra función.Pulsaremos F10 para que se ejecute la llamada. Hechando un vistazo a los registros que se han modificado, veremos que EAX contiene el siguiente valor: 51FAE285, vamos a ver el valor decimal de este número con:

> ? eax

Veremos que EAX tiene el valor decimal 1375396485 mmm..., parece un número válido. Probemosló. Salimos del Soft-Ice (Ctrl+D) y cambiamos el número 1234567 por 1375396485, pulsamos OK y sorpresa, el programa se ha registrado. Bueno ya sabemos que función se encarga de realizar el cálculo del número y ademas sabemos que lo devuelve en EAX, si examinamos el código anterior veremos que lo que se comprueba, es que ese número no sea 0. Volveremos a desensamblar el EXE y iremos a la posición de código 4256CA, luego iremos a la llamada que se hace en esta línea (call 00425fd8) con Goto/Code Location (introduce 425fd8 y pulsa OK). Allí veremos el siguiente código,(recuerda que EDI apuntaba al nombre antes de entrar a la función).

Bueno, examinando el código, ya podemos asegurar que aquí se calcula el número válido, si analizamos el algoritmo de cálculo veremos que es bastante sencillo. Primero se comprueba que el nombre apunte a una cadena válida, luego que tenga una longitud => que 5 caracteres, luego se carga un valor constante en ESI (5DFEE4A4), se inicializa un contador a 0 (EBX), se vuelve a calcular la longitud del nombre (cosa innecesaria) y se va haciendo un XOR con los cuatro carácteres del nombre que son apuntados por EDI+EBX sobre ESI dentro de un bucle que se procesa longitud(nombre)-4 veces. Tambien se comprueba que el contador de carácteres EBX no sea superior que 64, en caso de que esto sea así se incrementa el contador doblemente. Una vez computado el número, se copia a EAX y se retorna de la función.

Bueno es hora de implementar un algoritmo en Pascal que realize este cálculo, esta vez he usado el compilador gratuito Free Pascal de 32 bits en su versión windows.

Program TelePort_Pro_v1_29_KeyGen;

Uses Crt;

Const Seed=$5DFEE4A4;

Var Name:string[80];
    Nlength,contador:integer;
    regnum:dword;
    dptr:^dword;    
    

Begin
	textcolor(10);
	Writeln('Teleport Pro v1.29. Key Generator By Black Fenix 15/01/2000');
	textcolor(15);
	Writeln('-----------------------------------------------------------');
	textcolor(7);
	Writeln;
	Write('Enter your name (min 5 characters):');
	readln(Name);	
	Nlength:=length(Name);
	
	if (Nlength<5) then
	Begin
		Writeln('Sorry, the length of the name must be greater than 5 characters.');
		Halt(0);
	End;
	
	// copia puntero al primer caracter 
	
	regnum:=seed;
	Nlength:=Nlength+$fffffc; { es lo mismo que restarle 4, pero así lo hacemos igual que el original :-) }
	contador:=1;
	
	while (contador<=Nlength) do
	Begin
		dptr:=@Name[contador];
		regnum:=regnum xor dptr^;
		if (contador=$40) then 
		Begin
			writeln('hola');
			inc(contador);
		End;
		inc(contador);	
	End;
	writeln;		
	Write('Your registration number is:');
	textcolor(15);
	write(regnum);
	textcolor(7);
	writeln;
End.