63 replies to this topic

[fleming]

quedo en las mismas, puedo incluir el unit, pero luego como le digo epa codigo, "desciframe esto" con X clave para que luego lo leas y lo metas en la funcion <.< eso es lo que debo aprender, ya que con el md5 es lo mismo debo hacer tal cual la misma operacion pero con otra funcion. asi mismo la funcion de leer la web y el contenido ponerlo en el array de la lista

[lezamablr]

Ya Probaste con los componentes Indy?
http://delphi.about....hi-md5-hash.htm

[fleming]

Yo use fue el hashes que me mencionaron en los primeros temas lo que no se es como hacer la funcion desde el codigo, como decirle que revise el hash de prueba.txt y compararlo con el que tenga definido actualmente en el dll, cosa que tampoco tengo, revisa el proyecto lo adjunte en respuestas anteriores.

[egostar]

Yo use fue el hashes que me mencionaron en los primeros temas lo que no se es como hacer la funcion desde el codigo, como decirle que revise el hash de prueba.txt y compararlo con el que tenga definido actualmente en el dll, cosa que tampoco tengo, revisa el proyecto lo adjunte en respuestas anteriores.

No entiendo muy bien, pero creo que tienes un problema de concepto, la cadena del archivo txt que estás cifrando tendrás que hacer el paso inverso para que te muestre la cadena original, realmente no veo el problema, en la página de seoane hay un ejemplo de eso, olvidate del archivo, concentrate en la cadena que tiene dentro.

Salud OS

[fleming]

Str:= Cifrar("Hola mundo",'1234567890'); en hola mundo iria prueba.txt?

[egostar]

Str:= Cifrar("Hola mundo",'1234567890'); en hola mundo iria prueba.txt?

Asi es, la cadena resultante en Str es la que debes grabar en el archivo de texto y cuando lo necesites lo lees con la dll y lo 'decifras'

Str := decifrar(cadena,'1234567890');

En cadena tendrás los caracteres cifrados

cadena = '/(543549879hs87w6442365fg=' y en Str ya verás el 'Hola Mundo'

Salud OS

[fleming]

Ok voy a probar cualquier cosa pego un grito!

[fleming]

Veo que esto esto de codigo:

cpp

procedure TForm1.WinNameTimer(Sender: TObject);
begin
   AssignFile (f,'prueba.txt');
   try
      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
       h := FindWindow(nil, PCHAR(s));
        if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
      end;
    finally
      CloseFile(f);
   end;
end;

donde PCHAR(s) es lo que saca del archivo de texto ahora como haria? asi?

cpp

procedure TForm1.WinNameTimer(Sender: TObject);
begin
   AssignFile (f,'prueba.txt');
   try
      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
       Str := decifrar(PCHAR(s),'1234567890'); // asi iria?? para "descrifar" antes de que lo lea el FindWindow? aparte en donde defino la clave de descifrado? la clave seria 1234567890?
       h := FindWindow(nil, PCHAR(s));
        if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
      end;
    finally
      CloseFile(f);
   end;
end;

[egostar]

Ah vaya, pues te estás complicando

delphi

procedure TForm1.WinNameTimer(Sender: TObject);
begin
   AssignFile (f,'prueba.txt');
   Reset(f);
   ReadLn(f,Str);
   Cadena := decifrar(Str,'1234567890');
   CloseFile(f);
end;

Salud OS

[fleming]

Build
  [Error] Unit1.pas(44): '(' expected but ')' found
  [Error] Unit1.pas(45): Undeclared identifier: 'Cadena'
  [Error] Unit1.pas(45): '(' expected but ',' found
  [Error] Unit1.pas(45): Incompatible types
  [Fatal Error] Project2.dpr(12): Could not compile used unit 'Unit1.pas'

cpp

procedure TForm1.WinNameTimer(Sender: TObject);
begin
   AssignFile (f,'prueba.txt');
   Reset(f);
   ReadLn(f,Str);
   Cadena := decifrar(Str,'1234567890');
   CloseFile(f);
   try
      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
       h := FindWindow(nil, PCHAR(s));
        if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
      end;
    finally
      CloseFile(f);
   end;
end;

soy tapado y lo demas es cuento

[Fenareth]

Amigo, intenta así:

delphi

procedure TForm1.WinNameTimer(Sender: TObject);
var
  Cadena: String;  // Falta declarar la variable Cadena
begin
   AssignFile (f,'prueba.txt');
   Reset(f);
   ReadLn(f,Str);
   Cadena := decifrar(Str,'1234567890');
   CloseFile(f);
   try
      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
       h := FindWindow(nil, PCHAR(s));
        if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
      end;
    finally
      CloseFile(f);
   end;
end;

Saludox !

[fleming]

Build
  [Error] Unit1.pas(47): '(' expected but ')' found
  [Error] Unit1.pas(48): Undeclared identifier: 'decifrar'
  [Error] Unit1.pas(48): '(' expected but ',' found
  [Error] Unit1.pas(48): Incompatible types
  [Fatal Error] Project2.dpr(12): Could not compile used unit 'Unit1.pas'

[egostar]

Build
  [Error] Unit1.pas(47): '(' expected but ')' found
  [Error] Unit1.pas(48): Undeclared identifier: 'decifrar'
  [Error] Unit1.pas(48): '(' expected but ',' found
  [Error] Unit1.pas(48): Incompatible types
  [Fatal Error] Project2.dpr(12): Could not compile used unit 'Unit1.pas'

Cuando te aparezcan estos errores dale clic a cada uno y muestranos la linea donde se localiza el error.

Salud OS

[fleming]

Adjunto el proyecto:

http://rapidshare.co...47/Proyect1.rar

[egostar]

Una pregunta

Cual es el objetivo esto

delphi

      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
       h := FindWindow(nil, PCHAR(s));
        if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
      end;

Salud OS

[Wilson]

Adjunto el proyecto:

http://rapidshare.co...47/Proyect1.rar

El link de descarga murió amigo, ya alcanzó las 10 descargas.

[fleming]

que mediante lo que este en prueba.txt se bloquee eso que esta alli mediante el nombre de la ventana, abajo de eso veras que tambien esta la funcion de ClassName que es para cerrar ventanas que contengan esos datos como clase por eso prueba.txt es como la base de datos de eso por eso es necesario cifrarlo para que nadie lo cambie, y verificar el md5 por si editan una linea ya que si editan 1 linea o caracter ya el sistema no lee el cifrado y.. por supuesto la funcion no sirve y abririan todos los programas que estoy prohibiendo ¿me entiendes?

lo subo de nuevo.:

http://www.descargar...om/Proyect1.rar

[fleming]

Yo creo que este proyecto es mision imposible jejeje

[egostar]

Yo creo que este proyecto es mision imposible jejeje

Ok, veo que tienes el archivo legible, así cualquiera lo va a entender y va a agregar, borrar el contenido para que haga lo que desea, por eso es que necesitas que el contenido del archivo esté encriptado y no necesitas que sea txt, puedes idearte una extensión propia.

De esta forma resuelves tu problema de compilación, sin embargo sigo insistiendo que tienes un problema de concepto, quieres decifrar un contenido que no está cifrado y despues no haces nada con el.

Prueba con esto

delphi

function Descifrar(Str,Clave: String): String;
var
  Src: TMemoryStream;
  Dst: TStringStream;
  Size: Integer;
  Key: TAESKey;
  ExpandedKey: TAESExpandedKey;
begin
  Result:= EmptyStr;
  Src:= TMemoryStream.Create;
  try
    Dst:= TStringStream.Create(Str);
    try
      StrToStream(Str,Src);
      Src.Position:= 0;
      FillChar(Key,Sizeof(Key),#0);
      if Length(Clave) > Sizeof(Key) then
        move(PChar(Clave)^,Key,Sizeof(key))
      else
        move(PChar(Clave)^,Key,Length(Clave));
      AESExpandKey(ExpandedKey,Key);
      // Leemos el tamaño del texto
      Src.ReadBuffer(Size,Sizeof(Size));
      AESDecryptStreamECB(Src,Dst,ExpandedKey);
      Dst.Size:= Size;
      Result:= Dst.DataString;
    finally
      Dst.Free;
    end;
  finally
    Src.Free;
  end;
end;
 
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;

Salud OS

[fleming]

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