63 respuestas en este tema

[egostar]

......una pregunta fuera de lugar ¿Administrador es un rango por post?.. o cuantos administradores son aca? jeje la mayoria que me responde es administrador o moderador.!

Esto sólo quiere decir que DelphiAccess está abierto a que cualquier miembro se sienta en la posibilidad de alcanzar algún rango mayor de acuerdo a su participación y compromiso con la comunidad, no son titulos de la realeza, simplemente que estamos convencidos que una comunidad con un solo "dueño" no permanece por mucho tiempo, es necesario contar con personas que dedican parte de su valioso tiempo en el día a día del foro con actividades específicas.

Salud OS

[fleming]

aun nada..?

[fleming]

Help Me =(

[Rolphy Reyes]

aun nada..?

Help Me =(

Saludos.

Compañer@ fleming con mensajes como estos no vas a lograr nada; debes de entender que cada miembro en su tiempo libre (si tiene el conocimiento o desea responder)  te ayudara en su momento.

Además debes de recordar el funcionamiento de las comunidades que no todos sus miembros están en línea y sobre todo esperando preguntas para responder.

Espero me sepas interpretar.

[fleming]

aun nada..?

Help Me =(

Saludos.

Compañer@ fleming con mensajes como estos no vas a lograr nada; debes de entender que cada miembro en su tiempo libre (si tiene el conocimiento o desea responder)  te ayudara en su momento.

Además debes de recordar el funcionamiento de las comunidades que no todos sus miembros están en línea y sobre todo esperando preguntas para responder.

Espero me sepas interpretar.

Entiendo xD es que pienso que lo que necesito es complicado jejeje.. sere paciente.. i love this forums!

[egostar]

Checa este enlace de nuestro amigo Seaone, tal vez te aclare un poco las cosas. Puedes cambiar el concepto de contraseña a un numero que te diga lo que tienes que hacer.

http://delphi.jmrds.com/?q=node/41

Salud OS

[fleming]

Checa este enlace de nuestro amigo Seaone, tal vez te aclare un poco las cosas. Puedes cambiar el concepto de contraseña a un numero que te diga lo que tienes que hacer.

http://delphi.jmrds.com/?q=node/41

Salud OS

Pero el problema es que.. debo "abrir el archivo" prueba.txt verificar su md5 para luego compararlo con el que ya tengo definido en el dll para que en caso de ser igual todo trabaje normal, en caso de no ser igual de error.. y asi susesivamente.. ya inclui hashes.pas pero ahora no se hacer la funcion para hacerla trabajar

[escafandra]

Pero el problema es que.. debo "abrir el archivo" prueba.txt verificar su md5 para luego compararlo con el que ya tengo definido en el dll para que en caso de ser igual todo trabaje normal, en caso de no ser igual de error.. y asi susesivamente.. ya inclui hashes.pas pero ahora no se hacer la funcion para hacerla trabajar

delphi

var
  Hash: string;
begin
  Hash = CheckSum('prueba.txt')
  ..............
end;

Saludos.

[fleming]

Pero el problema es que.. debo "abrir el archivo" prueba.txt verificar su md5 para luego compararlo con el que ya tengo definido en el dll para que en caso de ser igual todo trabaje normal, en caso de no ser igual de error.. y asi susesivamente.. ya inclui hashes.pas pero ahora no se hacer la funcion para hacerla trabajar

delphi

var
  Hash: string;
begin
  Hash = CheckSum('prueba.txt')
  ..............
end;

Saludos.

cpp

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    WinName: TTimer;
    Image1: TImage;
    ocultar: TTimer;
    clases: TTimer;
    procedure WinNameTimer(Sender: TObject);
    procedure ocultarTimer(Sender: TObject);
    procedure clasesTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  h: HWND;
    wintext  :array [0..255] of char;
winhandle :hwnd;
   f: TextFile;
   s: string;
   Hash: string;
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm1.WinNameTimer(Sender: TObject);
begin
  Hash = CheckSum('prueba.txt')
end;
   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;
procedure TForm1.ocultarTimer(Sender: TObject);
begin
form1.Hide
 
end;
 
procedure TForm1.clasesTimer(Sender: TObject);
begin
   AssignFile (f,&#39;prueba.txt&#39;);
   try
      Reset(f);
      while (not Eof(f)) do // Mientras no llegue al final
      begin
         ReadLn(f,s);
        winhandle := findwindow(PCHAR(s),nil);
        sendmessage(winhandle,WM_CLOSE,0,0);
         end;
   finally
      CloseFile(f);
   end;
end;

me arroja el siguiente error al compilar:

cpp

Build
  [Error] Unit1.pas(42): ':=' expected but '=' found
  [Error] Unit1.pas(43): Missing operator or semicolon
  [Fatal Error] AD.dpr(13): Could not compile used unit 'Unit1.pas'

proyecto:

http://rapidshare.co...86/Proyecto.zip

[eduarcol]

Puedes hacer esto:

delphi

procedure TForm1.WinNameTimer(Sender: TObject);
begin
   Hash := CheckSum('prueba.txt')
 
   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;

Fijate que hay dos errores, el end; esta luego de llamar el HASH lo que terminaria la funcion, y en delphi las asignacion es ":=" mientras que la comparacion es "=".

Ahora te falta es saber donde guardas el MD5 original del archivo sin modificaciones

[fleming]

quiero poner antes de que compare definir el md5 pero.... ni idea de como

[eduarcol]

A ver quisiera ayudarte, pero tengo una duda que quizas es lo que no logro entender:

Como modificarias el archivo? directamente con el block de notas? de ser asi el MD5 cambiaria sin tu control, o lo haras por medio de alguna aplicacion???

[fleming]

Lo cambiare de forma manual, claro esta que cada actualizacion cambiara el md5 y volveria a cambiar el md5 de la dll, estuve viendo una pagina de uno de los administradores y no se si se pueda implementar esto:

http://delphi.jmrds.com/?q=node/44

me parece que cae anillo al dedo, seria cifrar prueba.txt de forma manual y luego la dll la descifra para leerla ¿es posible?

[eduarcol]

A mi modo de ver las cosas te estas complicando mucho, yo en lo personal lo haria con una BD, si te va bien con el manejo de estas te recomiendo:

http://www.delphiacc...hp?topic=2347.0

[fleming]

Hay manera de jalar la data de prueba.txt desde base de datos mysql?..

[Delphius]

Si yo también sospecho que te estás complicando demasiado al vicio... ¿no te ofende?

Creo que tienes una mezcla de cosas en la cabeza y no sabes por donde y a que apuntar...

No quisiera verme obligado a emitir una molesta pregunta: ¿Que tanto conocimientos tienes sobre Delphi y programación en general?
Esto te lo pregunto puesto que unos post antes haz llegado a preguntar como usar las funciones de la unidad Hashes. ¡Eso ya es por demás básico! Y... la respuesta es como en todo lenguaje:

variable <operador-asignación> NombreFuncion(Parametro)

En el caso de Delphi es algo como esto:

delphi

mivariable := Fucion(miparametro);

Si te fijas, la unidad Hashes en la sección interface tiene declarada tres funciones. Lo único que resta es invocarlas.

Con todo respeto fleming, creo primero te hace falta un poco más de estudio sobre Delphi. Lee el libro La Cara Oculta de Delphi 4 (lo puedes descargar desde muchos sitios)... te ayudará a aclarar algunas cosas.

He visto de pasada tu código y veo trabajas con el archivo a la antigua... ¿en que quedó el uso del TStrings como lo comentabas al comienzo? Hablabas de una dll que estabas creando... no veo ninguna dll en tu código.

Por favor, vamos por partes. Explica objetivamente que tienes hecho, a lo que quieres llegar y en base a ello te guiaremos... a como se está llevando el hilo dejame decirte que nos estás mareando... (no quiero imaginarme lo mareado que debes estar sintiéndote) y eso hará que se pierda total objetividad y terminemos hablando de cosas que no van a caso y no hacen a lo que tu necesitas.

Saludos,

[fleming]

Si yo también sospecho que te estás complicando demasiado al vicio... ¿no te ofende?

Creo que tienes una mezcla de cosas en la cabeza y no sabes por donde y a que apuntar...

No quisiera verme obligado a emitir una molesta pregunta: ¿Que tanto conocimientos tienes sobre Delphi y programación en general?
Esto te lo pregunto puesto que unos post antes haz llegado a preguntar como usar las funciones de la unidad Hashes. ¡Eso ya es por demás básico! Y... la respuesta es como en todo lenguaje:

variable <operador-asignación> NombreFuncion(Parametro)

En el caso de Delphi es algo como esto:

delphi

mivariable := Fucion(miparametro);

Si te fijas, la unidad Hashes en la sección interface tiene declarada tres funciones. Lo único que resta es invocarlas.

Con todo respeto fleming, creo primero te hace falta un poco más de estudio sobre Delphi. Lee el libro La Cara Oculta de Delphi 4 (lo puedes descargar desde muchos sitios)... te ayudará a aclarar algunas cosas.

He visto de pasada tu código y veo trabajas con el archivo a la antigua... ¿en que quedó el uso del TStrings como lo comentabas al comienzo? Hablabas de una dll que estabas creando... no veo ninguna dll en tu código.

Por favor, vamos por partes. Explica objetivamente que tienes hecho, a lo que quieres llegar y en base a ello te guiaremos... a como se está llevando el hilo dejame decirte que nos estás mareando... (no quiero imaginarme lo mareado que debes estar sintiéndote) y eso hará que se pierda total objetividad y terminemos hablando de cosas que no van a caso y no hacen a lo que tu necesitas.

Saludos,

Hola siento que tienes razón jeje bueno te explico el proyecto que adjunte.. al copilarlo genera la dll pero como tiene la funcion de hashes mal por eso no compila, lo del md5 tengo años intentando saber como hacerlo es algo fuera de lo que necesito que me servia en un principio creo que como tu dices me estoy mareando con todo esto, la solucion a todo es "si es posible" jalar todo el contenido de prueba.txt desde una base de datos mysql para asi no tener que actualizar mas el dll sino directamenta la base de datos, ya que esa dll va dentro de un ejecutable, lo cual cada modificacion es cambiar el ejecutable entre otros, como estaba voy bien como dije o prueba.txt es verificada por md5 para que no sea modificada, o prueba.txt esta en una base de datos mysql y esta ultima opcion resuelve todo lo que necesito, con respecto a lo de programar en delphi tengo apenas, cuanto mucho 6 dias, todo inicio por este mismo proyecto ya que estaba en otro foro, pero lo hacian por codigo, cada "variable" de prueba.txt lo repetian en el proyecto, y rellenavan directo la variable.. pero como es algo que siempre se esta actualizando lo mejor es lo de mysql en caso de ser posible me dijiste lo del libro ya he bajado 18 videos los cuales empiezo a verlos esta noche (porque soy de venezuela) aca ahorita son la 1:45pm! de todas maneras bajare el que me indicas para ver si logro entender más el mundo delphi ya que me especializo es en PHP, si bien es parecido pero algo distinto.. muchas gracias por los consejos así es que se aprende.! saludos

[eduarcol]

A ver amigo, tengo una idea, la aplicacion siempre tendra acceso a Internet???

De ser asi, se podria descargar la lista por internet y no hay problemas con las modificaciones.

[fleming]

Si amigo siempre tendra internet ya que es un juego online, pero te comento, si se hace por http, hay muchos vivos que usaran por ejemplo EffeTech HTTP Sniffer y asi veran la lista de objetos bloqueados y buscaran la forma de conseguir otros que no esten bloqueados, a menos... que se pueda hacer lo del cifrado T.T.. y asi si me sirve via Web ya que asi lo vean no lo entenderan!. espero me entiendas..

[eduarcol]

Si te entiendo, puedes pasar una cadena cifrada esa es la parte facil, seguro que en la web de seoane hay mas de uno

http://delphi.jmrds.com/