1. Pascal / Говнокод #13305

    +132

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    procedure TNewThread.Execute;
var Shellapi,  Account, Username, Password:string;
    Pars_1, Pars_2:integer;
begin
Form1.Caption:='E-mail spamer by klychev - Work!'; 
while Work do
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
if Form1.Edit3.Text=Form1.Edit4.Text then
begin
Work:=False;
Form1.Button1.Enabled:=True;
Form1.Button2.Enabled:=False;
Form1.Caption:='E-mail spamer by klychev - Finish!';
end
else
begin
Account:='.'+Form1.Memo1.Lines[strtoint(Form1.Edit1.Text)]+'.';
Pars_1:=Pos('.',Account)+Length('.');
for Pars_2:=Pars_1 to Length(Account) do
if Account[Pars_2]=';' then Break;
Username:=Copy(Account,Pars_1,Pars_2-Pars_1);
Pars_1:=Pos(';',Account)+Length(';');
for Pars_2:=Pars_1 to Length(Account) do

    Попытка посношаться, через открытое окно движущегося поезда.

    Запостил: Stertor, 04 Июля 2013

    Комментарии (2) RSS

    • ava anonimb84a2f6fd141 07.07.2013 22:09 # −2

      минет спроглотом через открытое окно
      Ответить

      • ava Stertor 09.07.2013 09:40 # −2

        Участник, прошу тебя: не поленись, пройди по анкетам и поставь всем минусы.
        Минуисуя участников, ты помогаешш обществу снижать ЧСВ.
        Ответить

    Добавить комментарий