Power OnGuard Compenetini Kullanmak

[AliRiza]

Arkadaşlar şifreleme için power onguard compenetini nasıl kullanabilirim.
Compeneti ekledim.
onmakekeys,onmakecode diye bileşenler var.Bunu programıma nasıl ekleyebilirim.Program dosyalarımı resimleri,database dosyalarını poweron guard ile nasıl şifrelerim

[mege]

hafta sonu konu ile ilgili makaleyi yayınlamayı düşünüyorum. bekleyin

[mege]

işin aceleysse
C:\Program Files\Borland\Delphi7\tponguard_1_13\examples\Delphi\RegDemo

bu klasördeki 3 örneği incele. esas fonksiyon sadece şu

Kod: Tümünü seç

  if not IsReleaseCodeValid ('seninverdiğinözelkod keyin yani', 'müşteriye paketle verdiğin özel no veya herhangibi sayı işte') then
    Label1.Caption := 'Unregistered Demo!'
  else
    Label1.Caption := 'Hello World!';

Kod: Tümünü seç

function IsReleaseCodeValid (ReleaseCodeString: string; const SerialNumber : longint) : boolean;
var
  CalculatedReleaseCode : TCode;
begin

  InitSerialNumberCode(MachineKey, SerialNumber, Expires, CalculatedReleaseCode);

  // Compare the two release codes
  result := AnsiUpperCase(ReleaseCodeString) = AnsiUpperCase(BufferToHex(CalculatedReleaseCode, sizeof(CalculatedReleaseCode)));
end;

[AliRiza]

Öncelikle yardımlarınız için çok teşekkür ederim.Ben poweronguard'ı inceledim.Yanlız tam olarak çözemedim.
Yani
Rcg.exe file isimli dosyada release key genarator ile key oluşturuyorum.
key ini dosyasında tutuluyor.Ben add deyip istediğim gibi key ekleyebiliyorum.Key'in $'lı olan uniregcommon unitinin içindeki aşağıdaki const kısmına kopyalıyorum(tahminen pointer adresini alıyor.)

Kod: Tümünü seç

procedure GetRegistrationInformation (var ReleaseCodeString: string; var SerialNumber : longint);
begin
  // Save the information for the application
  if FileExists(RegistrationFile) then begin
    RegistrationInfo := TStringList.Create;
    RegistrationInfo.LoadFromFile(RegistrationFile);
    SerialNumber := StrToInt(RegistrationInfo[0]);
    ReleaseCodeString := RegistrationInfo[1];
    RegistrationInfo.Free;
  end else begin
    SerialNumber := 0;
    ReleaseCodeString := '';
  end;
end;

const
  Key : TKey = ($FB,$0F,$F3,$90,$CB,$16,$E2,$FD,$8E,$09,$6F,$3E,$AE,$8A,$55,$8E);
initialization
  Expires := 0;
  MachineKey := Key;
  MachineModifier := ABS(CreateMachineID([midUser, midSystem, {midNetwork,} midDrives]));
  ApplyModifierToKeyPrim(MachineModifier,MachineKey,sizeof(MachineKey));
end.

Uniti kaydedip denedim.Registaration .exe dosyası ilede rcg ile oluşturduğum serial number ve releasecode (müşteriye vereceğim sistem tarafından bizim verdiğimiz serial'a göre otomatik oluşturan kod) giriyorum.

Save diyorum
Yalnız sistem registration tools'da mutlak değere göre makine numarası oluşturuyor.
MachineModifier := ABS(CreateMachineID([midUser, midSystem, {midNetwork,} midDrives]));
Buradaki numarayı alıp rcg.exe 'de key'den sonra applı a machine modifier bölümüne girdikten sonra müşteri numarasını oluşturduktan sonra(release code) registration toolsda kaydı yapıyorum.
[/code]
Benim anlamadığım hello word'de kaydı yapmama rağmen unregistered demo ifadesinin gelmesi..
Olayı ben anladım.rcg ile kendi key ve serial numaranı oluşturuyorsun.
Key ini dosyada tutuluyor.Makine kodu otomatik oluşuyor.
Registration ve hello world projelerinde uni_reg_common uniti ortak olarak kullanılıyor.
Yani sisteme kayıt olmasına rağmen niye fonksiyon değer döndermiyor.Yardımızı bekliyorum..

[AliRiza]

Yardımlarınız için teşekkür ederim.Sorunu hallettim.Yukarıda dediklerimi tekrar denedim.Sorun şimdi düzeldi.

[mege]

ya kusura bakmayın, bende bu hafta sonu makaleyi bitiricem dedim ama yoğunluktan bitiremedim. eve epey geç gidiyorum.
inşallah bu hafta biticek