Ошибки то ясное дело. Потому как сайтик умер (точнее php-обвязка)
Сейчас гляну где там по коду защита стоит и расскажу чего добиться надо.
Ну по большому счету добиться надо того что бы бот заработал, правда для этого нужно иметь клиент фрипвп Perfect World
Вот, надо было сбросить пакер и убрать три проверки
Код:
if l[5]=s[5] then
if s[2]=l[2] then
if l=s then
begin
Application.CreateForm(TForm1, Form1);
Это оказалась не та защита, которую я имел ввиду.
Ту шикарную с сервером и разными функциями я писал, не помню уже для чего, что-то приватное, бот для Jade Dynasty помоему.
Вообще если есть желание еще что-то поломать http://zhyk.ru/forum/showthread.php?t=110667
Нужно добиться появления основного окна (оно на скрине) и предотвратить креш программы в течение 10 минут.
________________
Ни одно доброе дело не остается безнаказанным.
Пакер снял быстро. А добился появления как Form1 так и Form2 и еще какой-то основной формы.
Цитата:
Сообщение от Dinmaite
Вообще если есть желание еще что-то поломать http://zhyk.ru/forum/showthread.php?t=110667
Нужно добиться появления основного окна (оно на скрине) и предотвратить креш программы в течение 10 минут.
Так его же покупать надо? Вышли хоть ссылку в ЛС - попробую ломать так.
Последний раз редактировалось Dr. MefistO; 05.06.2011 в 11:21.
защита winApi считается самой легкой по взлому и защита работает только для тех кто только пользуется программами сам же в них не разбираясь. вот от нефиг делать страдал фигней делал разные защиты. вот такого типа в WinApi считается наиболее защищенными
procedure TForm3.btn1Click(Sender: TObject);
begin
if (edt2.Text='') or (edt2.Text=' ') or (edt2.Text=' ') or (edt2.Text=' ') or (edt2.Text=' ') or (edt2.Text=' ') or (edt2.Text=' ') then
MessageDlg('Заполните поле: Пароль',mtWarning,[mbok],0)
else
begin
MessageDlg('Если пароль верен вы'+#13+'сможете войти в программу',mtinformation,[mbok],0);
d:='rFh#b$dj^$q';
tmr2.Enabled:=True;
end;
end;
procedure TForm3.tmr1Timer(Sender: TObject);
begin
if edt2.Text=edt3.Text then
begin
gmenu.Show;
Form3.Hide;
tmr1.Enabled:=False;
form1.skin1.SkinName:='';
end;
tmr1.Enabled:=False;
end;
procedure TForm3.tmr2Timer(Sender: TObject);
begin
if d='rFh#b$dj^$q' then
begin
d:='adgaa';
tmr2.Enabled:=False;
tmr1.Enabled:=True;
end
else
tmr1.Enabled:=False;
end;
и шифрация и математические действия и выдерания кусков из кода и новая их шифрация, и то эта защита нормальным хакерам в 15 секунд
и шифрация и математические действия и выдерания кусков из кода и новая их шифрация, и то эта защита нормальным хакерам в 15 секунд
-_-
Достаточно обычной защиты,ибо крякинг программ заключается не в разгадывание ключа,а в его выдерании,уже готовым,или убийство проверок -_-
Так что,ты хоть упишись,но крякать будут
Надо сделать так, чтобы хакеру было влом возится со всем, вот и весь секрет.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
-_-
Достаточно обычной защиты,ибо крякинг программ заключается не в разгадывание ключа,а в его выдерании,уже готовым,или убийство проверок -_-
Так что,ты хоть упишись,но крякать будут
Угу:-) теперь я это понял на примере своего бота...:-) ради интереса выложил в открытый доступ программу с новой защитой... Посмотрим сколько протянет (программа востребована)... Но уже поболее будет чем бот