|
24.05.2012, 11:14
|
#16
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
|
|
Пользователь сказал cпасибо:
|
|
24.05.2012, 11:44
|
#17
|
|
|
|
Разведчик
|
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
да но так нужно скачивать фаил
а потом прийдеться удалять
st:=idhttp1.get('url')
memo1.lines.text:=st;
for i := 0 to memo1.Lines.Count -1 do
if memo1.Lines[i]=edit1.Text
then label1.caption:='Ключ верный, Вы вошли в аккаунт'
else label1.Caption:=('Неверный ключ!');
вот этот код мне тоже помго но
он только сверяеться с последним)))
|
|
|
24.05.2012, 13:41
|
#18
|
|
|
|
Сержант
|
Регистрация: 19.01.2011
Сообщений: 168
Популярность: 485
Сказал(а) спасибо: 123
Поблагодарили 67 раз(а) в 48 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Код:
var
HTTP:TIdHTTP;
Response:TFileStream;
s,a:string;
Version:TStringList;
begin
a := getSerial; //ключик
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
try
s:=HTTP.Get('http://******.ucoz.ru/****.txt');
if a = s then //если текст в файле совпадает,то нас пускает
begin
ShowMessage('Ключ действителен.');
Form1.Show;
Form2.Hide;
end
else
begin
ShowMessage('Ключ не действителен.');
Form1.Hide;
end;
finally
HTTP.Free;
Version.Free;
end;
Это пример получения текстового файла и чтение его.Но он читается полностью.Н-р если у тебя пароли фиксированного значения,то читай каждые N-ые символы.Т.е. если у тебя пас по 5 символов,а в текстовом файле их 5(пасов).То читаешь в переменную какуюнить по циклу с s[1] по s[5],это например первый пас и тд.
Последний раз редактировалось Relli; 24.05.2012 в 13:45.
|
|
|
Пользователь сказал cпасибо:
|
|
24.05.2012, 14:11
|
#19
|
|
|
|
Разведчик
|
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Он читает все строчки?
У меня устроено так пользователь скидывает ключь который я прописываю в свой тхт фаил и мне нужно к примеру
1 пользователь
2 ид
3 ид
4 ид
Этот код поможет?
Не могу проверить не дома сори за флуд
|
|
|
24.05.2012, 14:43
|
#20
|
|
|
|
Сержант
|
Регистрация: 19.01.2011
Сообщений: 168
Популярность: 485
Сказал(а) спасибо: 123
Поблагодарили 67 раз(а) в 48 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
victor20011, да,он считывает вообще все строчки в 1 строку и без пробелов ^^
потому просто запомни кол-во знаков в иде и по циклу сравнивай.
|
|
|
Пользователь сказал cпасибо:
|
|
28.05.2012, 09:48
|
#21
|
|
|
|
Разведчик
|
Регистрация: 28.05.2012
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Хм.. А вы не забыли про реверсеров? легко же узнать где файл находиться.
|
|
|
28.05.2012, 12:05
|
#22
|
|
|
|
Разведчик
|
Регистрация: 17.05.2012
Сообщений: 18
Популярность: 66
Сказал(а) спасибо: 20
Поблагодарили 20 раз(а) в 11 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
|
|
20.06.2012, 23:16
|
#23
|
|
|
|
Сержант
|
Регистрация: 07.05.2012
Сообщений: 117
Популярность: 1781
Сказал(а) спасибо: 16
Поблагодарили 82 раз(а) в 44 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
|
|
22.06.2012, 11:29
|
#24
|
|
|
|
Сержант
|
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
Цитата: |
|
|
|
|
|
|
о спасибо большое)
переделал чучуть и вышло прям айс)
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemInfo(siSysInfo);
with siSysInfo do begin
Result := IntToStr(dwActiveProcessorMask) +
IntToStr(dwPageSize) +
IntToStr(dwNumberOfProcessors) +
IntToStr(dwProcessorType) +
IntToStr(dwAllocationGranularity) +
IntToStr(wProcessorArchitecture) +
IntToStr(wProcessorLevel) +
IntToStr(wProcessorRevision);
k:=(result);
edit1.Text:=(k);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
HTTP:=TIdHTTP.Create(nil);
Version:=TStringList.Create;
try
s:=HTTP.Get('http://ваш сайт)/'+k+'.txt');
if Pos(s,k)<>0 then
begin
form2.show;
form1.Hide;
end
else
finally
end;
end;
После просто нам дают свой серийник,мы создаем файлик к примеру 43243r654634563456(ваш серийник ) должно выйти примерно так 43243r654634563456.txt и в самом файле пропишем опять серийник,и заливаем наш файлик на ucoz)
Последний раз редактировалось [Na`Vi]DendI; 22.06.2012 в 11:32.
|
|
|
06.07.2012, 15:54
|
#25
|
|
|
|
Разведчик
|
Регистрация: 08.02.2011
Сообщений: 28
Популярность: 82
Сказал(а) спасибо: 1
Поблагодарили 36 раз(а) в 9 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Данный метод не есть хорошо!
Так как софт можно обмануть с помошью подмены адресов в файле хост!
И уже прописать свой серийник в него!
Лучше стандартная привязка!
|
|
|
06.07.2012, 16:14
|
#26
|
|
|
|
Капитан
|
Регистрация: 11.08.2010
Сообщений: 254
Популярность: 9232
Сказал(а) спасибо: 300
Поблагодарили 334 раз(а) в 223 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
|
|
18.07.2012, 15:10
|
#28
|
|
|
|
Сержант
|
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
|
|
|
09.10.2012, 07:42
|
#29
|
|
|
|
Разведчик
|
Регистрация: 08.10.2012
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Не увидел сохранение ключа вообще.
Так вот подскажите как сохранять ключ в какой нить файл(я сохраняю в ини) и как потом сделать если программа уже активирована то не проходить регу проги...
|
|
|
12.10.2012, 14:42
|
#30
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Re: Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy
Последний раз редактировалось Роспотребнадзор; 12.10.2012 в 16:41.
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 18:07.
|
|