63 respuestas en este tema

[egostar]

Excelente muchas gracias me funciono encripte el codigo primero con un tool que baje de la web de AjpdSoft y me funciono de maravilla, ahora como hago para que no se modifique dicho texto, me explico que tenga comprobacion de md5 para que cuando modifiquen el programa de error, o cuando no exista el archivo lo borren pues.. o pongan uno vacio cabe destacar que ahora le puse, list.dat a prueba.txt si embarbo buscare algun otro nombre porcia pero ya con el md5 seria todo de maravilla

Huy, esa es la pregunta de los 64,000 pesos, no hay una una solución 100% fiable, por eso es que te comenté anteriormente que el archivo que hagas no lo asignes como txt ya que como es una extensión conocida a cualquiera se le antojará abrirlo y ver que tiene, ya te han comentado otras formas de protección, como el registro de windows, un archivo oculto, etc... en concreto, no dejes las cosas a la vista porque no hay defensa ante los curiosos.

Salud OS

[fleming]

es que sea el archivo que sea, ya todos los que juegan el juego (los expertos que usan cheats, bots etc...) saben cuales son los archivos del juego jeje. decia md5 ya que el DLL va dentro del .exe donde esta por eso seria inmodificable ese md5 no puedo dejar esa lista dentro tambien del .exe ya que en windows vista no lo lee a menos que este en el directorio del .exe es algo que nunca entendí.

[fleming]

tengo un problema esto me funciona:

cpp

procedure TForm1.WinNameTimer(Sender: TObject);
var
  Cadena: TStringList;  // Falta declarar la variable Cadena
  Lista: TStringList;
  I: Integer;
begin
   Cadena := TStringList.Create;
   Lista := TStringList.Create;
   Cadena.LoadFromFile('prueba.txt');
   Lista.Text := Descifrar(Cadena.Text,'1234567890');
   for I := 0 to Lista.Count - 1 do
   begin
     h := FindWindow(nil, PCHAR(Lista.Strings[I]));
     if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
   end;
end;

pero este ultimo no es el de las clases:

cpp

procedure TForm1.clasesTimer(Sender: TObject);
var
  Cadena: TStringList;  // Falta declarar la variable Cadena
  Lista: TStringList;
  I: Integer;
begin
   Cadena := TStringList.Create;
   Lista := TStringList.Create;
   Cadena.LoadFromFile('prueba.txt');
   Lista.Text := Descifrar(Cadena.Text,'1234567890');
   for I := 0 to Lista.Count - 1 do
   begin
     winhandle := findwindow(PCHAR(Lista.Strings[I]),nil);
     sendmessage(winhandle,WM_CLOSE,0,0);
   end;
end;

[fleming]

Por ultimo en ves de tener eso en prueba.txt se puede hacer una conexion a base de datos mysql? jalar la data desde alguna tabla?.. es posible?