Duda compilar aplicación de comunicaciones TCP/IP

[Virgilio1100]

Hola soy nuevo en este foro, y buscando, buscando dí con él.
Yo no soy experto ni estoy muy puesto en Delphi, conozco VB, VB.net algo me defiendo...
Pero he visto un código fuente en Delphi, o pone Turbo Delphi..,que me interesa por estudiar las comunicaiones tcp/ip, con soctkes, en fín he intentado compilarlo y no veo la forma ya que no se como saber la versión.
El código fuente incluye el exe, y todos los fuentes y es un código libre-abierto por lo que dice el autor, he intenado contactar con él pero no puedo.
Agradecería mucho me pudieras decir como compilar y que version.
Lo he subido al FTP, se llama "Crypto Speak.rar" y lo he puesto en Proyectos.

Muchas gracias de antemano.

[Ñuño Martínez]

Hola Virgilio100. ¿Has leído la Guía de estilo?

No das muchos datos sobre el problema que tienes. Por ejemplo, ¿la versión de qué no logras saber?

[Virgilio1100]

Gracias hombre por contestar.
Bueno con lo de la versión me refiero a que yo tengo el "Turbo delphi 2006" he intentado cargar el proyecto este y me da muchos fallos, y la verdad me vuelvo loco al no estar muy puesto en Delphi, entonces es un lío para mí, sin emgargo si compila el programa bien pues podré estudiarlo mejor el código.
He visto que el autor dice que está en Turbo Delphi y por eso de mis dudas.
He buscado algo parecido en VB6, VB.net pero los ejemplos no son muy parecidos, no sé si tú sabes algo al respecto...

El código fuente este trae también el archivo "compilado exe", se ejecuta y va bién.
El programa es de comunicaciones a traves de sockes encriptados utilizando AES y RSA.
El código fuente está subido en el FTP de este portal.
Muchas gracias por todo y un saludo.

[Casimiro Notevi]

En lugar de subir "cualquier cosa" al servidor, mejor anótanos la web del proyecto y nosotros la visitaremos y haremos lo que creamos oportuno.
Gracias.

[Virgilio1100]

Hola, tengo duda si te he contestado bien a tu respuesta...
La pagina web del proyecto está en :
h_t_t_p://wuul.host22_com/cryptospeak/readme
Gracias otra vez.

[Casimiro Notevi]

Hola, para compilarlo tienes que abrir el fichero de proyecto, el que termina en .dpr
Aunque antes debes tener instalado unos componentes que, por lo visto, usa para cifrar/descifrar, creo que se llama DCPcrypt o algo así, no recuerdo su nombre exacto, según el archivo de proyecto:

Código Delphi [-]
program cryptospeak; 
 
uses 
  Forms, 
  Unit1 in 'Unit1.pas' {Form1}, 
  idwisaacasm in '..\common\isaac\idwisaacasm.pas', 
  BigMath in '..\common\rsa\BigMath.pas', 
  privatekey in '..\common\rsa\privatekey.pas', 
  publickey in '..\common\rsa\publickey.pas', 
  DCPrijndael in '..\common\dcpcrypt2\Ciphers\DCPrijndael.pas', 
  DCPsha256 in '..\common\dcpcrypt2\Hashes\DCPsha256.pas', 
  DCPcrypt2 in '..\common\dcpcrypt2\DCPcrypt2.pas', 
  DCPconst in '..\common\dcpcrypt2\DCPconst.pas', 
  DCPbase64 in '..\common\dcpcrypt2\DCPbase64.pas', 
  DCPblockciphers in '..\common\dcpcrypt2\DCPblockciphers.pas', 
  antikeyloggeredit in '..\antikeylogger\antikeyloggeredit.pas', 
  antikeyloggercommon in '..\antikeylogger\antikeyloggercommon.pas', 
  AudioIO in '..\common\audioio\AudioIO.pas', 
  SenderThread in 'SenderThread.pas', 
  ReceiverThread in 'ReceiverThread.pas', 
  launchthreads in 'launchthreads.pas', 
  cyclicBuffer in 'cyclicBuffer.pas', 
  DecompressionThread in 'DecompressionThread.pas', 
  Generic in 'Generic.pas'; 
 
{$R *.res} 
 
begin 
  Application.Initialize; 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
end.

De todas formas, me ha parecido ver un readme.html y es posible que ahí explique lo que necesitas.

[Virgilio1100]

Gracias por tu respuesta.
Si, ya lo hice abrí el archivo *.dpr, todo correcto, intente compilar con Turbo
delphi 2006 y nada, luego con delphi 7 2ªedic. y nada de nada.
Cuando abro con Delphi 7 2ªedic. el código salen los siguientes errores:
1º Class TAntiKeyLoggerEdit: not found...
2º Class TClientSocket: not found...
3º Class TServerSocket: not found...
4º Class TClientSocket: not found...
---> estos a lo mejor modificando en el *.dpr se soluciona cambiando la ruta de common

Sale la ventana interface, doy a play para ejecutar y sale:
Ventana Error
1º Field Form1.AudioClientSocket does not have a corresponding component
2º Field Form1.AudioServerSocket does not have a corresponding component
3º Field Form1.KeyExchangeServerSocket does not have a corresponding component
4º Field Form1.KeyExchangeClientSocket does not have a corresponding component
5º Field Form1.txtRemoteHost does not have a corresponding component
---> estos a lo mejor modificando en el *.dpr se soluciona cambiando la ruta de common

********************************************************************************
A continuación sale ventana de código y queda resaltado:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,inifiles,
Dialogs, StdCtrls, Math, idwisaacasm, bigmath, privatekey, publickey,
ScktComp, shellapi, syncobjs,DCPrijndael, DCPsha256, ExtCtrls, ComCtrls, Buttons,
antikeyloggeredit, ScktComp2, AudioIO, senderthread,receiverthread,
decompressionthread,launchthreads,generic;
type
typesample = smallint; // a PCM sample is a 16 bit unsigned int
psample = ^typesample;
.
.
.

Y abajo en la ventana de depuración pone:
***************************************************************************
[Fatal error]Unit1.pass(9). File not found: "SdktComp2.dcu"
***************************************************************************
Esto es el proceso, la verdad no entiendo, todos los componentes están en orden,
hay un "archivo.zip" que se llama "commom.zip" que está en el proyecto en la web,
hay que descargarlo también a parte y copiarlo en el proyecto, pues de
ahí coge funciones para varias cosas como el RSA, AES, sockets, etc.etc.
Lo que veo raro es "SdktComp2.dcu" pues he visto dentro de la carpeta \common\network
"SdktComp2.pas" y no "SdktComp2.dcu" por lo demas creo que es cuestión de rutas.
Has intentado tú compilarlo ?.
Bueno muchas gracias otra vez y perdona todo este rollo...
Saludos.

[Casimiro Notevi]

Ya, y has instalado lo que te he dicho antes, ¿no?

[Virgilio1100]

Si, está todo instalado.

[Virgilio1100]

Ahora que recuerdo, habeis borrado el archivo.rar que subí al FTP ?, ahí está todo para poder probarlo.

[Virgilio1100]

Si quieres te puedo mandar el codigo en rar por email, ocupa poco, está todo.
Saludos

[Casimiro Notevi]

Empezado por Virgilio1100

Ahora que recuerdo, habeis borrado el archivo.rar que subí al FTP ?, ahí está todo para poder probarlo.

Empezado por Virgilio1100

Si quieres te puedo mandar el codigo en rar por email, ocupa poco, está todo.
Saludos

No hace falta, ya lo descargué de la web.


Si tienes el .pas y te falta el .dcu entonces prueba a abrirlo y compilarlo.

También intenta encontrar algún fichero que explique cómo se instala y de qué otros componentes tiene dependencia, seguramente es eso.

[Virgilio1100]

No entiendo cuando dices:

Si tienes el .pas y te falta el .dcu entonces prueba a abrirlo y compilarlo.

Ya lo hice, el .dcu que es ese archivo tiene que estar ?
Intenta compilarlo tú, no ?, o no puedes... y veras lo que te digo, la verdad no entiendo.
Saludos.

[Casimiro Notevi]

No tengo ningún delphi a mano.
A ver si algún compañero puede echarte una mano.

[Virgilio1100]

Vale.
Bueno despues de unas pocas horas... he logrado compilar !!, sale unos avisos pero no influye a la hora de crear el *.exe, claro de esta forma depurando estudio el codigo que es lo que me interesa.
Los avisos que salen son:

[Pascal Hint] DCPrijndael.pas(42): H2365 Override method TDCP_rijndael.GetID should match case of ancestor
TDCP_cipher.GetId
[Pascal Warning] AudioIO.pas(169): W1045 Property declaration references ancestor private 'TAudioIO.FPaused'
[Pascal Warning] AudioIO.pas(216): W1045 Property declaration references ancestor private 'TAudioIO.FPaused'
[Pascal Hint] AudioIO.pas(145): H2219 Private symbol 'WaveOpen' declared but never used
[Pascal Warning] Unit1.pas(325): W1002 Symbol 'DebugHook' is specific to a platform
[Pascal Warning] Unit1.pas(990): W1002 Symbol 'DebugHook' is specific to a platform

Pero por lo que veo no parece que influya... por que a la hora de compilar sale

hints: 2
Warnings: 4
errors: 0

Cargo proyecto y sale:
Ventana aviso, le doy ignorar, sale:

Class TAntiKeyloggerEdit not found --> ignorar
Class TClientSocket not found --> ignorar
Class TServerSocket not found --> ignorar

Abre todo bien, compilo y listo, eso sí, si vuelvo abrir el proyecto me vuelve a salir los mismos mensajes de errores.

Y si le doy a cancelar al principio dice error creando Form...
Abre interface y todo bién, compila todo.
No sé si estos mensajes por qué... ?

Bueno muchas gracias por tú ayuda.
Saludos.

[Ñuño Martínez]

Empezado por Virgilio1100

(...)
No sé si estos mensajes por qué... ?

Da la sensación de que tienes algo mal instalado, o de que te falta algún paquete o biblioteca, o incluso que hayas usado otra versión diferente que posee elementos que no tiene la que usas ahora.

Creo que me he explicado, ¿no?