Говнокод #5639 — Pascal — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Pascal / Говнокод #5639

+96

procedure tnew.execute;
var
cod:utf8string;
id:byte;

captcha,sim,idc:string;
ss:TStringStream;
s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,
s11,s12,s13,s14,s15,s16,s17,s18,
s19,s20,s21,s22,s23,s24,s25,s26,
s27,s28,s29,s30,s31,s32,s33:utf8string;
FS:TFileStream;
Antigate: TAntigate;
begin
form3.IdHTTP1.Request.Referer :='http://www.aboutlive.ru/phpBB2/profile.php?mode=register';

cod:=form3.IdHTTP1.get('http://www.aboutlive.ru/phpBB2/profile.php?mode=register&agreed=true');

function Pars (T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos (T_, ForS);
if a = 0 then
Exit
else
a := a + Length (T_);
ForS := Copy (ForS, a, Length (ForS) - a + 1);
b := Pos (_T, ForS);
if b > 0 then
Result := Copy (ForS, 1, b - 1);
end;


idc:= pars('confirm_id" value="',cod,'" />');
sim:= pars('sid" value="',cod,'" />');

FS:=TFileStream.Create('captcha.png',FMCreate);
form3.IdHTTP1.Get('http://www.aboutlive.ru/phpBB2/profile.php?mode=confirm&id='+idc, FS);
FS.free;
form3.Image1.Picture.LoadFromFile('captcha.png');

Antigate := TAntigate.Create; // это разгадка капчи
antigate.Calc:=1;
antigate.MaxRetry:=3;
Antigate.Key := '';
Antigate.ImageFile := 'captcha.png';
captcha:=Antigate.Recognize;
Antigate.free;

form3.RichEdit1.Lines.Add('Капча: '+AnsiUpperCase(captcha));

form3.IdHTTP1.Request.Referer :='http://www.aboutlive.ru/phpBB2/profile.php?mode=register&agreed=true';
ss := TStringStream.Create;

s1:='username=sadsaddfsa12342';
s2:='[email protected]';
s3:='new_pasword=1234567';
s4:='pasword_confirm=1234567';
s5:='confirm_code='+captcha;
s6:='icq=';
s7:='aim=';
s8:='msn=';
s9:='yim=';
s10:='website=';
s11:='location=';
s12:='occupation=';
s13:='interests=';
s14:='signature=';
s15:='viewemail=0';
s16:='hideonline=0';
s17:='notifyreply=0';
s18:='notifypm=1';
s19:='popup_pm=1';
s20:='attachsig=1';
s21:='allowbbcode=1';
s22:='allowhtml=1';
s23:='allowsmilies=1';
s24:='language=russian';
s25:='style=1';
s26:='timezone=4';
s27:='dateformat=D M d, Y g:i a';
s28:='mode=register';
s29:='agreed=true';
s30:='coppa=0';
s31:='sid='+sim;
s32:='confirm_id='+idc;
s33:='submit=Отправить';
ss.WriteString (s1+'&'+s2+'&'+s3+'&'+s4+'&'+s5+'&'+s6+'&'+s7+'&'+s8+'&'+s9+'&'+s10+'&'+s11+'&'+s12+'&'+s13+'&'+s14+'&'+s15+'&'+s16+'&'+s17+'&'+s18+'&'+s19+'&'+s20+'&'+s21+'&'+s22+'&'+s23+'&'+s24+'&'+s25+'&'+s26+'&'+s27+'&'+s28+'&'+s29+'&'+s30+'&'+s31+'&'+s32+'&'+s33);

Что уж тут напишешь....

Запостил:

Irdis, 11 Февраля 2011

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

guest 20.09.2011 04:37 # 0

Fuuuu
Ответить
guest 25.04.2017 01:42 # 0

Совершена удачная покупка, приобретена мебель в детскую комнату. Москва благодаря огромному выбору производителей и продавцов мебели дает возможность купить мебель в собранном виде, пригласить на дом мастера для сборки. Но что же делать, если приходится самостоятельно собирать мебель? Ведь очень часто, купив мебель для детской недорого, мы имеем возможность сэкономить и на ее сборке, что будет хорошим плюсом к нашему бюджету.
Собирая детскую мебель, нужно позаботиться о том, чтобы все ее части плотно прилегали друг к другу, между ними не было таких щелей, в которые ребенок мог бы засунуть пальцы. Ответственно подходят к навешиванию шкафчиков и полок, проверяя качество их крепления под нагрузкой. Обычно детская мебель изготавливается без острых углов, но если вдруг вы где-то обнаружили опасный выступ, нужно не полениться и закрыть его мягкой накладкой. Это позволит сохранить здоровье вашему малышу при внезапном падении.
Если в мебели присутствует зеркало, его оклеивают с обратной стороны защитной пленкой: если вдруг оно разобьется, пленка защитит комнату от разлетающихся осколков.
Удачно купленная недорогая мебель для детской и самостоятельная ее сборка позволят сэкономить семейный бюджет.

Официальный сайт: [url=http://imp-mebeli.ru/]Мебель[/url]
Ответить
guest 25.04.2017 17:05 # 0

Tinedol – эффективное средство от грибка стопы, неприятного запаха и зуда.
Перейти на сайт: http://tinedol.1stbest.info/

[url=http://www.dasglas.nl/guestbook/index.php]Tinedol[/url]
[url=http://domn.96.lt/forums/topic/%d0%be%d1%82%d1%87%d0%b5%d1%82-%d0%b7%d0%b0-2014-%d0%b3%d0%be%d0%b4/#post-825]Tinedol[/url]
[url=http://xn--e1aaajcor2b8al.xn--p1ai/wp-content/plugins/phpBB3/viewtopic.php?f=31&t=1506]Tinedol[/url]
Ответить
guest 25.04.2017 17:32 # 0

Tinedol – эффективное средство от грибка стопы, неприятного запаха и зуда.
Перейти на сайт: http://tinedol.1stbest.info/

[url=http://www.knep.or.kr/bbs/view.php?id=news_data&page=3&page_num=20 &select_arrange=reg_date&desc=&sn=off&ss =on&sc=on&keyword=&no=51&category=]Tinedol[/url]
[url=http://gipsol.sk/kontakty-3#comment-7]Tinedol[/url]
[url=http://formandbuild.com/product/advance-forms/#comment-20024]Tinedol[/url]
Ответить
guest 25.04.2017 17:32 # 0

Tinedol – эффективное средство от грибка стопы, неприятного запаха и зуда.
Перейти на сайт: http://tinedol.1stbest.info/

[url=http://diagnostica.su/forum/topic.php?forum=22&topic=5]Tinedol[/url]
[url=http://xn--e1aaajcor2b8al.xn--p1ai/wp-content/plugins/phpBB3/viewtopic.php?f=31&t=1506]Tinedol[/url]
[url=http://gipsol.sk/kontakty-3#comment-7]Tinedol[/url]
Ответить
guest 25.04.2017 17:33 # 0

Tinedol – эффективное средство от грибка стопы, неприятного запаха и зуда.
Перейти на сайт: http://tinedol.1stbest.info/

[url=http://xn--80ahcj2acgl9a.xn--p1ai/?topic=download-block-au-all-stars/#post-64429]Tinedol[/url]
[url=http://xmissy.nl/item/33641/stella]Tinedol[/url]
[url=http://formandbuild.com/product/advance-forms/#comment-20024]Tinedol[/url]
Ответить
guest 02.06.2017 20:23 # 0

Кровать должна быть уютной, вместительной, давать полноценный отдых для позвоночника, идеально вписываться в интерьер. Предоставляя возможность такую кровать купить, Москва предлагает широчайший выбор мебельных магазинов, нужно лишь правильно выбрать подходящую модель кровати. На ее удобство влияют несколько факторов. Это размер, вид конструкции рамы, вид матраса.
Особенно пристальное внимание следует уделить выбору подходящего матраса, если у владельца существуют проблемы с позвоночником. Купить дешевую кровать в Москве с ортопедическим матрасом можно в интернет-магазине или обычном мебельном салоне.
Матрасы бывают с пружинами и без них. Количество пружин на квадратный метр влияет на жесткость матраса, а также вес человека, который он может выдержать. Беспружинные варианты имеют несколько слоев наполнителя, который может быть искусственным и натуральным. В качестве наполнителя используют кокосовую койру, латекс, пенополиуретан, морские водоросли, овечью шерсть. Эти материалы позволяют правильно распределять вес человека, снять напряжение с позвоночника. Купить кровать недорого и подобрать к ней пружинный или беспружинный матрас предлагаем в нашем магазине.

Официальный сайт: http://pronews24.ru/
Ответить
guest 03.06.2017 11:12 # 0

АлкоБарьер – эффективное средство, которое выводит токсины из организма и устраняет тягу к спиртному. Янтарная кислота и фибрегам в составе АлкоБарьера выводят токсины из организма после приема алкогольных напитков и оказывают общеукпрепляющее действие. Уникальный растительный компонент - экстракт артишока – снимает психологическую зависимость от алкоголя.
Официальный сайт: http://alko.1stbest.info/

http://www.koukasportsacademy.com/index.php?option=com_k2&view=itemlist&ta sk=user&id=90383
http://elivk.com/index.php?option=com_k2&view=itemlist&ta sk=user&id=603407
http://www.vinamericas.com/index.php?option=com_k2&view=itemlist&ta sk=user&id=706203
http://bellasandrabeautique.com/index.php?option=com_k2&view=itemlist&ta sk=user&id=558148
http://www.other.rasmeinews.com/index.php?option=com_k2&view=itemlist&ta sk=user&id=515301
Ответить

Говнокод: по колено в коде.

Pascal / Говнокод #5639

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

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