Temas

Buenas hace años que no escribo en el foro, tengo un problema con un program aescrito en Delphi y estoy falto de practica. Tengo dos tutoriales de punto magico en delphi lo es leido pero el problema es el siguiente, (tengo el oolydbg sadow) cuando abro el prorama y le doy a f9 para correrlo no se ejecuta no arranca el tema es que en el Rpg detector me dice que puede tener un detector de debuger pero el olly sadow en principio tiene plugins para saltarse eso. Mi duda es esa si puede ser que necesite otro plugin o directamente tengo algo mal en mi pc. si alguien lo puede probar y me dice algo se lo agradecería.  

https://drive.google.com/folderview?id=0B1fcHxl5Dah7MnJueHN0cGdtUVk&usp=sharing

Un saludo y gracias de antemano!

Buenas!

Mi duda es como puedo reproducir un archivo midi en delphi/lazarus, me e bajado una libreria midi.pas pero no se como usarla, la misma viene sin un archivo info.

A ver si alguien sabe como reproducir un midi y me lo puede explicar.

Gracias y un saludo

Buenas!

Mi duda seguro que es sencilla, tengo un código en delphi pero  no se hacer que algo se ejecute de forma indefinida sin que pase un evento concreto.
Me explico:

Código [Seleccionar] Expandir

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
 StdCtrls, windows;

type

 { TForm1 }

 TForm1 = class(TForm)
   Image1: TImage;
   Timer1: TTimer;
   Timer2: TTimer;
   procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
     );
   procedure Timer1Timer(Sender: TObject);
   procedure Timer2Timer(Sender: TObject);
   procedure main();
   procedure movimiento ();

 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation


{$R *.lfm}

{ TForm1 }      
procedure TForm1.movimiento ();
begin
if Image1.Left >= 280 then
  begin
    Timer1.Enabled:=true;
    timer2.Enabled:=false;
  end
   else if Image1.Left <= 0 then
   begin
     Timer1.Enabled:=false;
     Timer2.Enabled:=true;
   end;
end;

movimiento(); // no compila, quiero que esto se ejecute solo sin que pase ningun evento.

end.    

Como puedo hacer un procedimiento o donde tengo que poner la linea movimiento(); para que se ejecute de forma indefinida (como un loop) en el programa, como si fuera el el main de pascal o c ¿O hay un equivalente a "void main" en Delphi/Lazarus?

un saludo y gracias de antemano

Buenas!

Llevo trasteado y leido y no encuentro lo que necesito para poder compilar con lazarus x64 una aplicacion de 32 leí algo de cros compiler pero ni lo encuentro para descargar ni nada a ver si alguien me puede decir como hacerlo.

Un saludo y gracias de antemano!

Buenas!!

Traigo una duda de novato total no se si es el sueño o que...

Bueno ahi va, el caso es que e analizado un programa y conseguí el serial valido para el mismo, atacando a la API "GetWindowTextA" y traceando, tambien e visto las modificaciones que hace en el registro, y e sacado parche del mismo para registrarlo.

Os preguntareis cual es el problema, pues es que analice el codigo con el serial bueno y con uno malo, y no se en que parte del codigo tengo que parchear el salto para hacerlo de la forma "fea" es simple curiosidad pero es que no lo encuentro   .

Os dejo un enlace con el soft, dentro va una carpeta con el serial bueno y el parche por registro que e hecho.

https://docs.google.com/open?id=0B1fcHxl5Dah7NEZNWG96ZUhiQVk

A ver si alguien puede decirme donde tengo que invertir salto o nopear

Un saludo y gracias de antemano!!

PD: A ver si alguien se anima a hacer un tute para saltar el laserlock SPEEnc ya que los que me habeis pasado no son de la version SPEEnc (son de la 5.x) y no los soy capaz de seguir  

[instalarlo]

Buenas a todos y un saludo cuanto tiempo!

Bueno, al tema tengo un exe de un juego, que al intentar instalarlo me arroja el mensaje de que "introduzca el cd original" en un msgBox y ahí se queda. Y no es para hacer un Nocd que a eso no me atrevo. Solo es a la hora de instalarlo no me deja ejecutar el instalador.

Le paso el RDG y no me da ningún empaquetado solo me dice que esta escrito en Delphi.

Lo que llevo hecho es intentar decompilarlo con DEDE no hace nada. E buscado con ollydbg y nada mas abrirlo me dice que esta empaquetado, por lo que e investigado por dentro del ejecutable creo que con el aspack (y el RDG no me lo detecta).

Pues mi duda es esa a ver si alguien me puede verificar si esta empacado o que pasa ya que no consigo hacer nada con este exe.

https://docs.google.com/open?id=0B1fcHxl5Dah7NkVqTEllSDZqNnM

Muchas gracias y un saludo!!!

Buenas!!

Mi duda es la sigueinte. Tengo un pc con 512 de ram 1,7 Ghz , e empezado a programar java y e probado varios ide entre ellos netbeams, eclipse, intellijent etc. El tema es que quiero un ide que tenga un diseñador de Gui' s, Los que e probado me van asquerosamente lentos, también e visto que se puede crear código en un editor y después usar un creador de guis aparte ejemplo glade, pero no encuentro información de como hacerlo.

La pregunta en si es un ide con creador de guis que corra bien en un pc con 512 RAM 1,7Ghz?

PD: Uso Linux, pero si no hay algo liviano para es SO también puedo instalar windows sin problema

Un saludo y gracias de antemano.

Buenas!!

Mi duda des bien sencilla como puedo imprimir en pantalla en modo consola acentos y Ñ´s en Free Pascal???? los pongo y me muestra caracteres raros. hay alguna librería o algo que re lo permita hacer directamente o tengo que poner en cada letra "char (123)" (el número que sea)

Edito: Otra duda es como puedo cargar una imagen en free pascal? en modo graph o consola un bmp o jpg ¿y música un midi o algo asi?

Gracias un saludo!!!!

[OBJETIVO:]

Buenas, os comento me descarge una utilidad TRIAL de tiempo

OBJETIVO: http://software-files-l.cnet.com/s/software/11/28/79/17/naturademo.exe?e=1284516119&h=45432351e85e95c554f2ab3ff8c00c3e&lop=link&ptype=1901&ontid=2129&siteId=4&edId=3&spi=24108a551ab3af4f27462cc588e0d3b5&pid=11287917&psid=10068715&fileName=naturademo.exe


Os cuento

Lo desenpaque (UPX), busque en la references en la Apis lo decompile con DEDE, lo analicé con Reshack, y no encuentro ninguna referencia a la venta de validar la clave, ni el botón ni el mensaje malo. Lo único que mire furon timer pero por lo quevi se refieren a tiempos de carga y fadeout de ventanas.  Me arte a poner BP en las Apis y lo único interesante que encontré es una Api que coge la hora del sistema, pero me quede atascado ahí. También probé el método del tute de Rincar (num 17)  VIEW-MEMORY pero tampoco aparece lo que yo escribo en el recuadro del serial. A ver si me podéis echar un cable.


Un saludo a todos!!!

Hola, aquí os traigo otro crackme para que os entrentegáis.

Lo de siempre, voy avanzando poco a poco y poniendo en práctica en estos crackmes lo que voy aprendiendo, por eso, es de nivel newbie.

Nivel 2-3

Keygen + Tutorial: ORO Blanco
Høl¥

Descarga de keygen y tutorial: http://www.mediafire.com/?k5hdgobwanny4gy

Serial: PLATA
Zacko

Parche: BRONCE

http://www.mediafire.com/?3qre7rkfpegg1fz

PD: A poder ser los que lo parchen que hagan el parche con dup2 o similar y lo suban.

Un saludo!!

Buenas!!

Protección:

RDG(Modo normal): Asprotect 2.x.x (Detección heuristica) Comprimido con motor Aspack

RDG(Modo avanzado):Asprotect SKE v2.2

Peid:ASProtect 2.1x SKE -> Alexey Solodovnikov

Bien pues e probado con striper, que es con el que generalmente quito este packer y empieza bien pero al rato queda pillado, le doy a "kill" y me crea un exe que no funciona. Probé con Peid me puse en el OEP dumpee con plugin olly arregle la IAT y me crea un exe basura. También e probado con unos plugins que trae el olly sadow que busca el OEP,  lo  mismo reconstrullo la iAT y saco un exe basura. Los tutos que encontré sobre este packer no me lo dejaron muy claro. Alguien me hecha un cable?

Este esta es la aplicación en cuestión:

http://www.megaupload.com/?d=ERUC481H
Tamaño del archivo: 495.98 KB

Un saludo!! y como siempre gracias de antemano

Buenas!!

DUP2 Generador de parches y Cargadores (Loaders) Imprescindible

No se cuantos usáis este programa (que por cierto esta muy bien) el caso es que me lo descargue y no traía el lenguaje español entonces a ratos me lo traduje. Pues eso espero que os sirva de utilidad,  y si ves algo mal traducido pegar un toque

http://www.mediafire.com/?9w9ollyydr8oc81

Un saludo!!

PD:me quedan un par de detalles que pulir (textos largos) y los errores que me reporteis

Buenas!!

Os pido ayuda para obtener información acerca de esta protección ya que no encuentro nada por la red. La aplicación en si, esta hecha en Delphi.

Con Olly me tira error de detección de debugeer uso olly shadow.

A ver si a alguien le a tocado, que me pueda dar algo de información.

Otra pregunta de novato: Si un programa es demo, pero no da información de la limitación que trae. Osea que no te dice si es de tiempo, o de usos, y la licencia se pide online. ¿Por donde empiezo a buscar? ¿registro de windows?




Un Saludo!!!

Gracias de antemano!!

[ORO]

Bueno aquí os traigo otro Crackme. No muy difícil, pero si  diferente con respecto a los anteriores.

Espero que les guste.

1º Keygen - Oro
2º Serial - Plata
3º Parche - Bronce

Enviar por MP

http://www.megaupload.com/?d=WOCCYYJO

http://rapidshare.com/files/401527339/Crackme5.rar.html

http://www.mediafire.com/?gzn1yyqgztj

Tamaño del archivo: 103.52 KB

Resulltados:

ctlon ---- ORO

tincopasan ---Plata (por que quiere XD)

ganstarflowconsul ---- Bronce

Saludos!!!

Hola a todos!!

A medida que aprendo cosas nuevas las voy poniendo en practica en Crackmes.  Espero que os guste, ya es un poco mas difícil, o eso espero  

1º Oro = Keygen
2º Plata = Serial
3º Bronce = Parchear

Rapidshare: http://rapidshare.com/files/399514842/Crackme4.rar.html

Megaupload: http://www.megaupload.com/?d=UAE0FTDZ
Tamaño del archivo: 104.63 KB

Un saludo!!

Mi problema es que e creado dos círculos que rebotan por la pantalla y ahora querría que rebotaran entre ellos(cuando un circulo toque contra el otro) e probado de varias maneras pero no doy se que e de comparar la posición de uno con el otro pero no encuentro una manera lógica de hacerlo si alguien me puede echar un cable. Esta hecho en FreePascal (Lazarus).

Código (pascal) [Seleccionar] Expandir

Program circulo;

uses Graph,Crt;

var
 Driver, Modo: Smallint;
 x1,y1,r1,x2,y2,r2: Integer;
 arriba, derecha, izquierda, abajo:   boolean;


Procedure bola (color1,color2: integer);
    begin
      Setcolor(color1);  //1º bola
      Circle(x1,y1,r1);
      Setcolor(color2);  // 2º bola
      Circle(x2,y2,r2);
    end;

    {$IFDEF WINDOWS}{$R circulo.rc}{$ENDIF}

begin

 
 Driver := Vga;                                   { Para pantalla VGA }
 Modo := VgaHi;                            { Modo 640x480, 16 colores }
 InitGraph(Driver, Modo, 'c:\tp\bgi');                { Inicializamos }

      x1:=160;
      y1:=240;   //1º bola
      r1:=30;

      x2:=480;
      y2:=240;   //2º bola
      r2:=30;
      //x1:=-4;
      //x2:=x2+4;
      //y1:=y1+4;
      //y2:=y2+4;

arriba:=true;
derecha:=false;
izquierda:=true;
abajo:=false;

while true do

   begin
      bola(random(16),random(16));  // Pinta bola 1 y bola 2
      delay(60);  // Espera
      bola(black,black); // Pinta bola 1 y dos de negro

      if derecha=false then
        begin
        x1:=x1-9;
        end
       else                             // X izquierda derecha
        begin
        x1:=x1+9;
        end;
       if arriba=true then            // BOLA 1
        begin
        y1:=y1-6;
        end
       else                             // Y arriba abajo
        begin
        y1:=y1+6;
        end;

        if izquierda=false then
        begin
        x2:=x2-10;
        end
       else                       // X izquierda derecha
        begin
        x2:=x2+10;
        end;
       if abajo=true then                             // BOLA 2
        begin
        y2:=y2-5;
        end
       else                       // Y arriba abajo
        begin
        y2:=y2+5;
        end;

////////////////////////////////////

       if x1<= 0+30 then
        begin
        derecha:=true;
        //x1:=0+30;
        end                             // X izquierda derecha
       else if x1>=640-30 then
         begin
         derecha:=false;
         //x1:=640-30;
         end;                                               // BOLA 1

       if y1<= 0+30 then
        begin
        arriba:=false;
        //y1:=0+30;
        end
       else if y1>=480-30 then            // Y arriba abajo
        begin
        arriba:=true;
        //y1:=480-30;
        end;

       if x2<= 0+30 then
        begin
        izquierda:=true;
        //x2:=0+30;                          // X izquierda derecha
        end
       else if x2>=640-30 then
        begin
        izquierda:=false;
        //x2:=640-30;
        end;                                              // BOLA 2

       if y2<= 0+30 then
        begin
        abajo:=false;
        //y2:=0+30;
        end
       else if y2>=480-30 then               // Y arriba abajo
        begin
        abajo:=true;
        //y2:=480-30;
        end;


   end;





 Readln;                                                  { Esperamos }
 CloseGraph                                              { Y se acabó }
end.              

Gracias de antemano

Un saludo!!

Hola a todos!!

Aquí les traigo otro Crackme a ver si tardan mas de un minuto en sacarlo 

Objetivo:

Entretenerse un poco.

Explicación de como se saco su cutre algoritmo.

También estaría bien hacer un Keygen y mandármelo.

http://www.megaupload.com/?d=X08AJJDA
Tamaño del archivo: 105.32 KB


Saludos!!

Bueno e encontrado esto que a mi juicio es interesante para complementar la lectura son completamente en Español

http://www.youtube.com/user/jnsrz#p/u/5/D8mDqEYJjRs


Un saludo!!

Buenas, alguien me puede dar un poco de infomación acerca de esta protección
no encuentro nada entendible de como desempacarla. ni tutos ni nada

SafeDisc 3.00.000 -> Macrovision


un saludo!

Bueno pues aquí otro crackme que varía un poco respecto al anterior..

Objetivos

1º  Sacar el serial

2º Hacer un keygen (opcional)

3º Tutorial de como se cazo el serial y de como hizo el Keygen (opcional)






http://www.megaupload.com/?d=YZEEK687
Tamaño del archivo: 2.08 MB

http://rapidshare.com/files/394225977/Crackme2.rar.html
Tamaño del archivo: 2.08 MB


Un saludo a todos!!!

¡Un error ha ocurrido!
No pudiste ingresar. Favor de revisar la configuración de tus cookies.



hola pues nada que cuando intento entrar a este foro con google chrome me da este error solo con l chrome

ya borre las cockies

desintale e instale el google chrome 

le baje el nivel de seguridad

un saludo gracias

Un buen tutorial de como quitar una protección mochila

DPS_click una mochila menos:


http://www.megaupload.com/?d=PK1GS0P7
Tamaño del archivo: 551.75 KB



saludos

PD: Gracias, Peter

Bueno eso estoy aprendiendo a progrmar poco a poco con pascal y os traigo un crackme facilón.

Nivel 1

Ojectivo: el de siempre sacar un serial valido. (no creo que haga falta parchar pero si alguien quiere...).





http://www.megaupload.com/?d=XK30WE7J
Tamaño del archivo: 88.04 KB

Un saludo!!

Pues eso un generador de parches que es un poquillo difícil de encontrar por si a alguien le interesa:

Permite cambiar icono
poner imagen
hace backup de .exe
descripción
cambiar nombre de la ventana
etc

http://www.megaupload.com/?d=95YBITJN


Un saludo

Hola a todos!!  Vamos a ver como cazar el serial de un programa escrito en Delphi

1º Este Tutorial es de un novato para novatos XD

2º Poner ejecutable en el Peid o similar para ver si tiene alguna protección. En este caso no la tiene

3º Abrir el programa y echarle un vistazo a ver que nos pide, o si podemos sacar alguna información de la ventana de registro del programa.

4º Descargar el programa. XD

http://www.megaupload.com/?d=0RAZ5EE4
Tamaño del archivo: 932.96 KB

En este caso si ponemos un serial no valido no nos salta ninguna ventana, por lo tanto vamos a por el botón, que es la informaciómn que tenemos.

Click derecho y



Una vez nos abra la ventana, "Importante" nos ponemos arriba del todo clicamos en la primera referencia y clic derecho (¿Por que hay que ponerse encima de la primera referencia?. Por que si no olly busca a partir de la referencia en la cual estemos situados, de hay hacia abajo) y buscar la única pista que tenemos, que es el botón OK. Así que buscamos el botón OK y desmarcamos case sensitive, tal que así:



Clickamos OK, y después despacio y uno a uno con search for next o Ctrl.+L buscamos nuestro botón. Aquí esta!! Nos ponemos encima y clicamos con el botón derecho y Set breakpoint on every command. (Poner un breakpoint en todas las funciones que hagan referencia al botón ok)



Cerramos esta ventana y en la ventana principal damos Run F9 y se nos para aki





Bien ahora el método que hice yo, fue ir parando en todos los BP y tracear. Vosotros si queréis, dejar pulsado Run F9 asta que os salga la ventana del programa en la que os pide la clave para registrarse, tal que así:





No ponemos nada y damos OK y se nos para aki:




Una vez ahí empezamos a tracear con F8, y nos fijamos en la ventana register, vamos viendo varias cadenas de números y de letras, ir poco a poco y fijándose en la ventana register y vemos algo sospechoso en la dirección 004C546C




Lo apuntamos, cerramos Olly  probamos y confirmamos nuestra sospecha.

En la parte que os dije que dejéis pulsado Run F9 asta que saliera la ventana de registro del programa, yo fui trazando con Run F9  y mirando a ver que hacia el programa en las partes que me parecía mas interesante. (Aunque aun no entiendo mucho pues como dije soy un novato) pero mire en concreto esto:




El programa busca un archivo llamado "license87.lic" que no lo tiene como podemos ver en el programa sin registrar:





Y justo encima un CALL y MOV después otro CMP un TEX AL,AL y un salto JE

Investigad que pasa si invertís el salto, que es donde testea si el archivo existe o no y la condición que tiene que cumplir dicho archivo. Nos os olvidéis del CALL y el MOV que también están encima, podéis entrar con F7 e ir traceando a ver que veis, eso ya os lo dejo para vosotros investigad.

Después de registrar el programa vemos esto:





Fijaos hay algo nuevo el archivo "license87.lic" y dentro, el numero 64 ¿Dónde pide la longitud, o lo que pida el programa?

Bueno pues con el serial, o copiando ese archivo al programa queda registrado. También si investigáis hay otro sitio que se puede invertir el salto, te pedirá serial y metas el que le metas lo acepta y crea el archivo "license87.lic",


Un saludo a todos y espero vuestros apuntes    

PD: Ya se que seguramente hay formas mejores de hacerlo y mas rápidas, si no preguntad a PeterPunk77 a tena o a   MCKSys Argentina  SIEMPRE SIN MENOSPRECIAR A NADIE, pero un novato como yo por ahora se busca la vida con lo que sabe que no es mucho.

Pues  eso, en el Peid no me sale nada y en Google tampoco acerca de ello




Saludos

Hola a todos os traigo un crackme que me hizo un colega para ver si yo era capaz de sacar el serial. No es que sea difícil (el ya me lo advirtio). pero para mi lo curioso es que es en java y con ollydbg no hable (o yo no fui capaz de hacerlo).

Es un crackme para newbies como yo. Pero si algun maestro quiere sacarlo y explicar como lo hizo aprendemos todos  

Objetivo:

Sacar serial o parchear y explicar como y Herramientas utilizadas




Descarga:

http://www.megaupload.com/?d=12QSRHJJ

Tamaño del archivo: 225.19 KB

Hola que tal, me pasa una cosa rara cuando salto una proteccion de un programa escrita en Delphi y me registro al cerrar y volver a abrir el programa, me dice que no estoy registrado pero le vuelvo a dar a registrar y se me registra perfectamente hasta que vuelvo a cerrar abrir alguien me puede iluminar. Seguro que pa los fenomenos es facil pero a mi me esta volviendo loco

solo me pasa con programas escritos en Delphi  

aki estan mis dos ejemplos con su original adjunto muchas gracias de antemano

http://www.megaupload.com/?d=BKTF5J67 pesa 3MB

PD: MCKSys Argentina, no es por menospreciar nadie en absoluto pero lei muchas de tus respuestas y se nota que controlas y te gusta ayudar. a ver si me puedes echar una mano, y si no es mucho molestar tambien en mis otros dos post. Gracias de antemano

Antes de nada hola a todos soy nuevo en el foro y estoy iniciandome en esto de la ingeniería inversa os agradezco desde ya toda la ayuda que puedan darme,
mi caso es el siguiente.

 Estoy probando protecciones de check cd el caso es que ya salte algunas de algun juego, pero hay uno que no se como hacer puesto que cuando pongo un bp y corro olly, se pone la pantalla en negro y no puedo ver que hace el codigo. Aparte de eso el las Apis de este juego no no las conozco, tengo una pista pero no se cual es la que llama al cd  os pongo unas capturas a ver si me podeis ayudar muchas gracias.

Estas son las Apis



en este caso yo pongo los bp en CreatefileA

estos son los bp:



aki es el primer call que para y hace una srie de comprovaciones entre ellas f:/ (unidad de cdrom)




2 call:




y un mov:




Ya probe a invertir todos los saltos a la vez luego salto por salto y ejecutando y nada o da error o no inicia o rompe.

    El caso es que cuando lo corro con olly para ver los call por dentro se pone la pantalla negra y no puedo continuar. Según el detector de protecciones no tiene ninguna protección ni esta empacado. En el PeiD no sale lo de SPEC b2 (que por lo que googlee no se que es).




Quizás no estoy en la Api correcta pero es que en ningun tuto mire estas Apis de llamada a cd.  Gracias perdonen por el toston y a ver si alguien me puede iluminar.

aki el cabron que me esta volviendo loko solo pesa 33 mg http://www.megaupload.com/es/?d=3GDI14A2

PD: Y si alguien sabe de manuales acerca de cracker en juegos se lo agradecería