[Руководство] Oнлaйн вepификaция + yлyчшeннaя пpивязкa к жeлeзy

[Skrillex3]

Цитата: Сообщение от victor20011 for i :=0 to -1 do? а дальше что ?)))) если не трудно обьясните тогда что нужно сделать. Скачать в мемо и там уже проверять? 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:=('Неверный ключ!'); вот так правильно да?)

с кодом скачивания не помогу ,а с проверкой могу , гдето там ты как бы скачиваешь файлик с ключами ну и дальше загрузаешь в стринглист и обрабатываешь , всё просто

Цитата: Var Data:tstringlist; begin Data:=tstringlist.create; Data.loadFromFile('blabla.txt'); For i := 0 to Data.count -1 do begin if Edit1.text= Data[i] then begin Showmessage('Ключ найден!'); Break; end; end;

[victor20011]

да но так нужно скачивать фаил
а потом прийдеться удалять

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:=('Неверный ключ!');

вот этот код мне тоже помго но
он только сверяеться с последним)))

[Relli]

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],это например первый пас и тд.

[victor20011]

Цитата: Сообщение от Ramsteins 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],это например первый пас и тд.

Он читает все строчки?
У меня устроено так пользователь скидывает ключь который я прописываю в свой тхт фаил и мне нужно к примеру
1 пользователь
2 ид
3 ид
4 ид

Этот код поможет?
Не могу проверить не дома сори за флуд

[Relli]

victor20011, да,он считывает вообще все строчки в 1 строку и без пробелов ^^
потому просто запомни кол-во знаков в иде и по циклу сравнивай.

[by_Ghoster]

Хм.. А вы не забыли про реверсеров? легко же узнать где файл находиться.

[victor20011]

Цитата: Сообщение от Skrillex3 Var Data:tstringlist; begin Data:=tstringlist.create; Data.loadFromFile('blabla.txt'); For i := 0 to Data.count -1 do begin if Edit1.text= Data[i] then begin Showmessage('Ключ найден!'); Break; end; end;

я сдела по примеру скрилекса
он скачивает после проверки удаляет фаил

[D.E.Z.E.R.T.I.R]

Цитата: procedure TForm1.FormCreate(Sender: TObject); var b,s:string; begin b:=getserial; httpgettext('http://for-activate.ucoz.ru/yagrabber.txt',Memo3.Lines); s:=Memo3.Text; if Pos(b,s) =0 then begin Showmessage('Зарегестрируйте программу'); Application.Terminate; end; end;

Собственно все ключи загоняю в 1 файл, как он выглядит можете посмотреть и все

[[Na`Vi]DendI]

Цитата: Сообщение от FarmHitman1 Пример на ucoz, если кому интересно procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Clear; Edit1.Text := (GetSerial); Button2.click; end; procedure TForm1.Button2Click(Sender: TObject); var HTTP:TIdHTTP; Response:TFileStream; s:string; Version:TStringList; begin HTTP:=TIdHTTP.Create(nil); Version:=TStringList.Create; try s:=HTTP.Get('http://Ваш сайт.ucoz.ru/Name.txt'); if Pos(s,Edit1.Text)<>0 then //Проверка ключа полученный в Edit1 и написанный в Name.txt begin ShowMessage('Все ок') end else begin ShowMessage('Не верный ключ.'); end; finally HTTP.Free; Version.Free; end; end; В принципе все, мб у кого то еще на что то фантазии хватит. PS: Проверку ключа переделал с помощью этой темы http://zhyk.ru/forum/showthread.php?t=303815

о спасибо большое)
переделал чучуть и вышло прям айс)

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)

[DKENT]

Данный метод не есть хорошо!
Так как софт можно обмануть с помошью подмены адресов в файле хост!
И уже прописать свой серийник в него!
Лучше стандартная привязка!

[TeedI]

Цитата: Сообщение от DKENT Данный метод не есть хорошо! Так как софт можно обмануть с помошью подмены адресов в файле хост! И уже прописать свой серийник в него! Лучше стандартная привязка!

Это хранение ключа проверки и ключа регистрации ?.Совершенно не надежно , ибо их можно вытащит с помощью ce

[Роспотребнадзор]

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

Цитата: function GetSystemInfoAll: String; var siSysInfo: TSystemInfo; begin GetSystemInfo(siSysInfo); with siSysInfo do begin Result := IntToStr(dwActiveProcessorMask) + IntToStr(dwPageSize) + IntToStr(dwNumberOfProcessors) + IntToStr(dwProcessorType) + IntToStr(dwAllocationGranularity) + IntToStr(wProcessorArchitecture) + IntToStr(wProcessorLevel) + IntToStr(wProcessorRevision); end; end; function StringToHex(str1,Separator:String):String; var buf:String; i:Integer; begin buf:=''; for i:=1 to Length(str1) do begin buf:=buf+IntToHex(Byte(str1[i]),2)+Separator; end; Result:=buf; end; //Генерируем серийник function getSerial:string; begin Result := StringToHex(( GetSystemInfoAll),''); end; //Генерируем ключ function getKey(Serial: string):string; begin Result := MD5DigestToStr(MD5String(Serial)); Result := MD5DigestToStr(MD5String(Result)); end; procedure TForm2.FormCreate(Sender: TObject); var s : TStringList; begin sedit1.Text:= (getSerial); s := TStringList.Create; s.LoadFromFile('license.txt'); sedit2.text := s.Text; end; procedure TForm2.sButton1Click(Sender: TObject); begin if sEdit2.Text = getKey(getSerial) then ShowMessage('Программа успешно активирована'); form2.close; form1.slabelfx12.Caption:= ('Активация прошла успешно!'); form1.sButton3.enabled:=false; form1.sButton5.enabled:=true; end;

Укажите где именно ошибка

[[Na`Vi]DendI]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР procedure TForm2.sButton1Click(Sender: TObject); begin if sEdit2.Text = getKey(getSerial) then ShowMessage('Программа успешно активирована'); form2.close; form1.slabelfx12.Caption:= ('Активация прошла успешно!'); form1.sButton3.enabled:=false; form1.sButton5.enabled:=true; end;

Прочитай что ты написал: если в эдит2 твой серийник то прогу пропускаем, то есть тут нет проверки) Напиши к примеру проверку на сайте,если на таком-то сайте есть серийник то пропускаем или же нет.

[Doverito]

Не увидел сохранение ключа вообще.
Так вот подскажите как сохранять ключ в какой нить файл(я сохраняю в ини) и как потом сделать если программа уже активирована то не проходить регу проги...

[Роспотребнадзор]

Цитата: Сообщение от Doverito Не увидел сохранение ключа вообще.

Сохраняем ключ в файл:

Цитата: procedure TForm1.Button1Click(Sender: TObject); var s: TStringList; begin s := TStringList.Create; s.Add(edit1.Text); s.SaveToFile('key.ini'); s.Free; end;

Цитата: Сообщение от Doverito потом сделать если программа уже активирована то не проходить регу проги

В событии On Show у формы:

Цитата: if FileExist('Key.ini')// если нашли этот файл, то делаем то, что между begin и end then begin ... end