Search the Community

Bu fonksiyon 740+ karakter uzunluğunda birbirinden farklı anahtarlar oluşturur. Üzerinde çalıştığım bir proje için 2 ayrı tablodan karşılaştırmalı veri çekmem gerekiyordu ve bunun için bu yola başvurdum. Çeşitli ihtiyaçlara göre düzenlenip kullanılabilir. Fonksiyona ekleme yaparak daha uzun/kısa keyler üretebilirsiniz. (özel karakterler, 1 harf yerine çoklu harf kullanarak, 1 tablo daha ekleyip sadece küçük harfler kullanıp onuda döngüye sokarak vb.) Global Functions: [CODE] function ayrintiKey() harfTablo = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","W","X","Q",} --26 sayiTablo = {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26} aKey = ""; for i=1,26 do nRandom = Math.Random(1, 26) sRandomHarf = harfTablo[nRandom] nRandom = Math.Random(1, 26) sRandomSayi = sayiTablo[nRandom] aKey = aKey .. sRandomHarf .. Math.Random(123456, 987564) .. sRandomSayi .. Math.Random(123456, 987564) .. System.GetDate(DATE_FMT_YEAR) .. System.GetDate(DATE_FMT_MONTH) .. System.GetDate(DATE_FMT_DAY) .. System.GetTime(TIME_FMT_HOUR) .. System.GetTime(TIME_FMT_MIN) .. System.GetTime(TIME_FMT_SEC); end return aKey; end [/CODE] Kullanım: [CODE] Dialog.Message("Üretilen Key:", ayrintiKey()) [/CODE] Aşağıdaki üretilen keylerden bir örnek görebilirsiniz: [CODE] T837116T67759620121121161235B509189B38532320121121161235C937116C73558720121121161235Y351304Y15995320121121161235C172664C75744820121121161235Q495713Q78147320121121161235E191335E92113520121121161235C467628C20744820121121161235L790202L15117220121121161235V691177V72000120121121161235T688725T71267020121121161235S291784S82801820121121161235K138197K38350320121121161235N191704N67121420121121161235X182343X72097720121121161235S264226S18732720121121161235B297981B31414720121121161235J917048J41166820121121161235I464094I67414120121121161235J462512J13200020121121161235V746715V56657320121121161235M373456M86061320121121161235O127596O38972720121121161235R277253R24877220121121161235Y625697Y17941520121121161235M835112M73136720121121161235 [/CODE]

Yöntemin özellikle Qem veya bios modlu bilgisayarlarda büyük avantajı var, son satırları dikkatli okuyun.   Microsoft office 2013 lisans aktivasyon yedekleme w7 için C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform folder\tokens.dat, w8 için C:\Windows\system32\spp folder\store\tokens.dat  dosyasını yedekleyin geri yüklerken aynı yerdeki tokens.dat ı önce silin Cache klasörünü boşaltın, önceden yedeklenen tokens.dat i koyun key gerekirse: cscript "%PROGRAMFILES%\Microsoft Office\Office14\ospp.vbs" /inpkey:(Any Key). şeklinde ürün anahtarı girin. Key program ekle kaldırdan değiştir seçeneği ile de girilebilir. (denenmiştir, yalnız ben key i kurulumda tanımlamıştım) !!! Not: ofis 2013 ve windows 8 lisansları aynı tokens.dat dosyasına kaydedilmektedir. !!!      verilecek komutları cmd den yönetici olarak çalıştırılmalıdır. Microsoft office 2010 lisans yedekleme, w7 ve w8 üzerinde C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dat dosyasını yedekleyin geri yüklerken aynı yerdeki tokens.dat ı silin Cache klasörünü boşaltın, aktif tokens.dat i koyun key gerekirse: ofis ten girilebilir. ------------Windows 7 ve 8 lisans aktivasyon yedekleme için----------- aşağıdaki adreslerde bulunan tokens.dat ve xrm.ms uzantılı iki dosyayı yedekleyin (xrm-ms dosyası yalnız QEM bilgisayarlarda bulunur, diğerleri bu dosyayı aramasınlar, ürün orjinal ise onlara lazım olmaz) w7 için "C:\windows\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\tokens.dat" w8 için "C:\Windows\system32\spp folder\store\tokens.dat" C:\windows\system32\OEM\acer.2.1.XRM-MS geri yüklerken aynı adresteki tokens.dat i silin, yanındaki cache klasörünü silin ve önceden yedeklediğin tokens.dat ı oraya koyun. (sırayla yazdım çünkü önce cache silinirse, tokens.dat silinmiyor, bu durumda bilgisayarı yeniden başlatmanız kafi) xrm-ms dosyasını aldığınız adrese koyun yedeklediğiniz dosyalara göre "MARKA ismini ve XXXXX-XXXXX-XXXXX-XXXXX-XXXXX şeklinde ifade ettiğim Key i" düzeltmek üzere şu komutları yönetici olarak çalıştırdığınız CMD den girin. slmgr.vbs -ilc "C:\windows\system32\OEM\MARKA.XRM-MS" slmgr -ipk XXXXX-XXXXX-XXXXX-XXXXX-XXXXX !!! Not: bu şekilde yedeklediğiniz lisanslar geri yüklendiğinde geçersiz oluyor ise, ya kurduğunuz ofis veya windows farklı, ya donanımı değiştirdiniz, ya da orjinal ürün kullanmıyorsunuz. En önemlisi Qem kullandığınız bilgisayar zaten bios modludur, Farklı bir işletim sistemi kurduysanız yukarıdaki geri yükleme işlemini kullanarak, sertifikayı komutta verilen yere koymak şartı ile girdiğiniz bir Qem key ile sisteminizi yeniden etkinleştirebilirsiniz, burada xrm-ms dosyası olarak fabrika ayarları ile gelen sertifika işinizi görür. Kaybetmişseniz mühim değil internetten markanıza ait sertifikayı da bulabilirsiniz.  

Revo Uninstaller Pro - 1 PC Ömür Boyu Lisans Çekiliş Konusu Kurallar - Kura çekimi " http://kuracek.sitekutusu.com/ " üzerinden yapılacaktır. - Herkesin tek katılma hakkı vardır. - Çekiliş başlangıç tarihinden sonra Üye olan kişiler çekilişe dahil edilmeyecektir. - Katılmak isteyenler konu altına mesaj yazarak dahil olacaklardır, PM ler ve Konuyu beğenenler dikkate alınmayacaktır. - Çekilişe katılım 14.05.2017 - 31.05.2017 - Sonuçlar 01.06.2017 tarihinde kazanan kişiye PM ve konu altında bildirilecektir. Katılacak Herkese Bol Şans.

Orjinal Windows 8.1 Pro lisansım var. Ama windows 10 Pro kurarken kullanamıyorum. Bi çözüm var mı? Teşekkür ederim.

Arkadaşlar kamera programı olan WS5200 programı bilgisayarımda lisanslı olarak kurulu.Ancak bilgisayara format atmam lazım ve lisans keyi elimde mevcut değil.Bilgisayarda kurulu bu programdan lisansı nasıl alabilirim.Product key finder denedim bulmadı malesef...