Serial Dosyası Keygen

[kaan_karabey]

Elimde Kendi Oluşturduğum 10 Tane XXXX-XXXX-XXXX-XXXX Şeklinde Bir Seriallerim Var.



Burdaki Gibi Kopyala Kodunu Yaptım Ama Tekrar Üret Kodu Çalışmıyor???Bana Yardımcı Olabilirmisiniz???

[tayipk]

merhaba çözüme ulaşabilmek için

soru : bu serialler nerde barınıyor bir veritabanımı yoksa değişkenlerdemi

[kaan_karabey]

merhaba çözüme ulaşabilmek için

soru : bu serialler nerde barınıyor bir veritabanımı yoksa değişkenlerdemi

Bu Serialler Veri Tabanında Barınmıyor. Setup Factory ile Oluşturuldu.Serialler İçin Video Hazırladım...

http://www.youtube.com/watch?v=wRUr3CoxUE0

[AliZairov]

İyi akşamlar. Tam olarak bu keygen olayı ne için? Yapmakta maksadınız ne?

[kaan_karabey]

İyi akşamlar. Tam olarak bu keygen olayı ne için? Yapmakta maksadınız ne?

Şöyle söyleyim o keygen bende kalacak biri lisans istediği zaman onu çalıştırıp verecem.

[barisatalay]

merhaba çözüme ulaşabilmek için

soru : bu serialler nerde barınıyor bir veritabanımı yoksa değişkenlerdemi

Bu Serialler Veri Tabanında Barınmıyor. Setup Factory ile Oluşturuldu.Serialler İçin Video Hazırladım...

http://www.youtube.com/watch?v=wRUr3CoxUE0

Tamamda sen bu Tekrar üret butonu için seriali nereden çekiyorsun ?

[kaan_karabey]

Butonun içine yazarsak bastığımızda göstermez mi???

[barisatalay]

Böyle birşey mi demeye calısıyorsun ?

http://www.mangakafe.com/upload/SerialOrnek.rar

[kaan_karabey]

Böyle birşey mi demeye calısıyorsun ?

http://www.mangakafe.com/upload/SerialOrnek.rar

aynen öyle

Bunun Kaynak Kodunu Paylaşırmısın???

Bu Seriailleri Kendin Yazdın Değil mi Yoksa Otomatik mi Oluşturuyor????

[barisatalay]

Size sorduğumda içeriye yazılacak demiştiniz.
Mantığını anlatayım size yol göstersin.
Bir tane Array tanımlayın içerisine serialleriniz kaç tane ise tanımlayın.

Butona basıldığında "RandomRange" komutu ile sıfır ile arrayın Length arasında bir index üretsin rastgele her basıldığında buda değişir.

Biraz basit bir yöntem oldu ama aklıma ilk bu geldi. toplamda butonun içerisinde 1 satır kod ile işinizi görebilirsiniz.

[kaan_karabey]

Ben Şu Şekilde Kodluyorum Biraz Uzun Olacak Ama

Kod: Tümünü seç

begin
if (Edit1.Text='') Then
begin
Edit1.Text:='1111-1111-1111-1111';
End
else
if (Edit1.Text='1111-1111-1111-1111') Then
begin
Edit1.Text:='2222-2222-2222-2222'
end
else
if (Edit1.Text='2222-2222-2222-2222') Then
begin
Edit1.Text:='3333-3333-3333-3333'
end
else
if (Edit1.Text='3333-3333-3333-3333') Then
begin
Edit1.Text:='4444-4444-4444-4444'
end
else
if (Edit1.Text='4444-4444-4444-4444') Then
begin
Edit1.Text:='5555-5555-5555-5555'
end
else
if (Edit1.Text='5555-5555-5555-5555') Then
begin
Edit1.Text:='1111-1111-1111-1111'
end

end;

[barisatalay]

Var Bloğunun hemen üstüne

Kod: Tümünü seç

Const
  Keys : Array[0..5] of String = ('1234-5678-9012-3456','9685-2354-7896-3215','1426-9874-1236-5932','1254-7854-1236-9852','9326-7102-5564-6446','9996-8520-8568-7859');

İçerisine seriallerinizi tanımlayın.

Aşağıdaki kodude butona tanımlayıp bir dener misiniz.

Kod: Tümünü seç

var
  R: Integer;
begin
  R := RandomRange(0,Length(Keys));
  Edit1.Text := Keys[R];

[kaan_karabey]

Var Bloğunun hemen üstüne

Kod: Tümünü seç

Const
  Keys : Array[0..5] of String = ('1234-5678-9012-3456','9685-2354-7896-3215','1426-9874-1236-5932','1254-7854-1236-9852','9326-7102-5564-6446','9996-8520-8568-7859');

İçerisine seriallerinizi tanımlayın.

Aşağıdaki kodude butona tanımlayıp bir dener misiniz.

Kod: Tümünü seç

var
  R: Integer;
begin
  R := RandomRange(0,Length(Keys));
  Edit1.Text := Keys[R];

RandomRange de Hata Veriyor???

[barisatalay]

Hata veriyor cümlesinin ne kadar geniş bir tanım olduğunu sizde biliyorsunuz.

[kaan_karabey]

Hata veriyor cümlesinin ne kadar geniş bir tanım olduğunu sizde biliyorsunuz.

Undeclared İdintifier: 'RandomRange'