- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 - 15
 - 16
 - 17
 - 18
 - 19
 - 20
 - 21
 - 22
 - 23
 - 24
 - 25
 - 26
 - 27
 - 28
 - 29
 - 30
 - 31
 - 32
 
                        procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Transparent:=true;
Image1.Picture.LoadFromFile('ab.bmp');
inbot:='1';
wkbot:='1';
Memo1.Text:='';
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
statusbar1.Panels.Items[0].Text:='Клиент подключон'; 
si:='log.txt';
assignfile(fi,si);
reset(fi);
for i:=0 to 1590 do begin
Readln(fi, a);
b:=b+a;
end;
Memo1.Lines.Add(b);
CloseFile(fi);
statusbar1.Panels.Items[0].Text:='Ожидание подключения клиента';
Button2.Enabled:=false;
end;
                                 
        
            Ещё один говнокод от ВебКилла. MOAR!!!!111: http://3.webkill.ru/socket_messager.html
        
        
http://old.webkill.ru/m2.jpg
http://webkill.org/img/webkill_na_vershine.JPG
Альзо: Адидас детектед.
Fixed.
"Сегодня гуляя по городскому пляжу увидел орла – большая птица, с величественным размахом крыльев. Все голуби и сороки кружили, улетали от него, но одного голубя орел задел, и тот повалился в воду. Его сразу схватила собака, и стала играть, а потом сьела. Да, такие голодные, дикие собаки бегают по нашему пляжу. И перья с останками голубя остались по всему пляжу"
(0 д 0);
Да ладно, шучу. Я просто собираю инфу для статьи на лурке.
http://webkill.org/mustdie#more-1093
Надо срочно проверить остальные признаки, что я не вебкилл ))))
Суровый таджик-хакер http://m-unit.ru
К сожалению он не дружит с opensource и его великие исходники простой смертный не увидит ((
школяра завидуй молча, и не обсуждай человека сзади.
...возможности огранивались... клиент подключОн... газон засеян, меседжер-messager... массажер, мля:) Не говоря уже о потоке сознания, не ограниченном запятыми и прочими излишними знаками препинания:)
Лучше уж честный таджик, насяльника!:)