Начинаю изучать делфи

[Mertvii-Listopad]

Я начинаю изучать делфи! Я очень мало что знаю. Пока что нме удалось написать програмку котораяя открывает и закрывает сд ром.. Я хочу продолжить дальше сам всякие проги писать но у меня ничего не получаеться или что то с кодом или еще что то.
И еще у меня мечта написать свой майл бомбер на делфи... Хоть маленький но все равно свой.. кто может киньте код плизз
Я считаю что лучше своей прогой флудить чем чужими бомберами херачить

[nerezus]

Давай по-русски. Еще раз скажи, что ты хочешь.

кто может киньте код плизз
мечта написать свой

Так ты сам хочешь написать, или тебе надо готовый?

[[Zarakul]]

кто может киньте код плиззЕсли тебе дадут код, то это уже будет НЕ ТВОЯ заслуга.

[TaNkist]

Для начала прийдется научиться работать с сокетами (как вариант, можно юзать компонеты, но это ИМХО не по-хакерски). Потом прочитай RFC по SMTP. Разобравшийсь, ты запросто исполнишь свою мечту.
Описание протокола и пример простенького SMTP-движка ты всегда найдешь на http://delphiworld.narod.ru.

[GreenBear]

http://forum.antichat.ru/thread14096.html
там есть сборник статей по делфи.

[Mertvii-Listopad]

Да мне надо код только и все и вообще что бы мне помогли с делфями...
И прога это будет не совсем моя.. Ну дайте код у кого есть:) и прибавте репы ато у меня в минус ушла

[A110ut]

Я начинаю изучать делфи!
епт.. ну так изучай дальше
и прибавте репы ато у меня в минус ушла
не ставлю еще один - исключительно из жалости..

[Mertvii-Listopad]

аааа репы минус 2 уже:(( ну за что мне такое наказание??
и люди ну помогите с делфи и потом я буду хорошим обещаю

[KEZ]

Для начала прийдется научиться работать с сокетами (как вариант, можно юзать компонеты, но это ИМХО не по-хакерски


хахахахаха надо в сборник) скоро увидите мой сборник веселых фраз и высказываний)

[Mertvii-Listopad]

Кез если ты в делфях кодишь то помоги мыл бомбер написать

[W!z@rD]

А ты вообще какой-нить ЯП знаешь?

Собственно алгоритм прост...
юзер вводит STMP, Port, адрес бедняги... и количество писем.
запускаешь цикл типа
for i:=0 to SpinEdit1.Value-1 do begin
здесь код отправки писем...
end;

Тут мона и TProgressBar и TGauge прилепить...
Короче фантазия...
При надобности добавляешь аттач.

Кстати где-то пример отправки писем на WinSocket`ах было....
Ах вот =)
function mail(smtp:string;port:integer;from,dest,subject,bo dy:string):bool;
const
cl=#13#10;
var
WSAData:TWSAData;
Host:TSockAddrIn;
Sock:TSocket;
res:Integer;

procedure senddata(str:string);
var
i:integer;
begin
for i:=1 to Length(str)do
if send(Sock,str[i],1,0)=SOCKET_ERROR then
exit;
end;
{ получаем ответ от команды }
function recvdata(accept:string):bool;
var
buff:array[1..255] of Char;
begin
res:=recv(Sock,buff,SizeOf(buff),0);
Result:=(Res=SOCKET_ERROR)or(Copy(buff,1,3)=accept );
end;

begin
try
result:=false;
{ инициализация сокета }
WSAStartUp(257,WSAData);
Sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
if Sock=INVALID_SOCKET then exit;
{ устанавливаем хост и порт сервера }
res:=inet_addr(PChar(smtp));
if res<=0 then exit;
Host.sin_family:=AF_INET;
Host.sin_port:=htons(port);
Host.sin_addr.S_addr:=res;
{ подключаемся к серверу }
if connect(Sock,Host,SizeOf(Host))>0 then exit;
{ приветствие сервера }
if not recvdata('220') then exit;
{ EHLO }
senddata('EHLO'+cl);
if not recvdata('250') then exit;
{ MAIL FROM: }
senddata('MAIL FROM:'+from+cl);
if not recvdata('250') then exit;
{ RCPT TO: }
senddata('RCPT TO:'+dest+cl);
if not recvdata('250') then exit;
{ DATA }
senddata('DATA'+cl);
if not recvdata('354') then exit;
{ отправляем текст сообщения }
senddata('Subject:'+subject+cl+cl+body+cl+'.');
if not recvdata('250') then exit;
{ отключаемся от сервера }
senddata('QUIT'+cl);
result:=true;
finally
{ убиваем сокет }
closesocket(sock);
WSACleanup;
end;
end;

В принципе сам разберешься...