- 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... массажер, мля:) Не говоря уже о потоке сознания, не ограниченном запятыми и прочими излишними знаками препинания:)
Лучше уж честный таджик, насяльника!:)