Şifre Üretici Yardım

[nightmare3519]

Edited September 2, 2014 by nightmare3519

[KintaRo]

Küçük bir örnek hazırladım, harf veya sayılardan oluşan şifre üretebilirsiniz. Seçenekleri çoğaltmak hayalgücünüze kalmış. harf ve sayıları karıştırarak ya da özel karakterler ekleyerek daha güçlü şifreler yapabilirsiniz.

[img]http://i.imgur.com/Mg4PP.png[/img]

[codebox]
tHarfTablosu = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","X","W","Q"}
tUzunlukTablosu = {9, 99, 999, 9999, 99999, 999999, 9999999, 99999999, 999999999}

nSecilen = ComboBox.GetSelected("uzunluk") -- seçilen uzunluğu bul
if nSecilen ~= 1 then -- eğer uzunluk seçilmişse
nUzunluk = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk = String.ToNumber(nUzunluk) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
nUzunluk = tUzunlukTablosu[nUzunluk] -- tablodaki uzunluk karşılığını al
if RadioButton.GetChecked("RadioButton1") then -- eğer 1. seçenek seçilmişse
nRandom = Math.Random(1, nUzunluk)
Dialog.Input("Şifre Üret", "Üretilen Şifre: (Hafızaya Kopyalandı!)", nRandom, MB_ICONINFORMATION)
Clipboard.CopyText(nRandom) -- üretilen şifreyi hafızaya kopyala
elseif RadioButton.GetChecked("RadioButton2") then -- eğer 2. seçenek seçilmişse
nUzunluk2 = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk2 = String.ToNumber(nUzunluk2) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
tGeciciTablo = {} -- bos tablo olustur
for i=1,nUzunluk2 do
nRandom2 = Math.Random(1, 26) -- tHarfTablosu'ndaki harf adedi arasından rast gele harf çekmek için önce rastgele sayıyı bul
nRandomHarf = tHarfTablosu[nRandom2] -- rastgele harfi al
Table.Insert(tGeciciTablo, Table.Count(tGeciciTablo)+1, nRandomHarf) -- tabloya yerleştir.
end

-- geçici tablodaki harfleri yanyana yerleştir
sHarfler = ""; -- boş bir değişken oluştur
for i,v in pairs(tGeciciTablo) do
sHarfler = sHarfler .. v;
end
Dialog.Input("Şifre Üret", "Üretilen Şifre: (Hafızaya Kopyalandı!)", sHarfler, MB_ICONINFORMATION)
Clipboard.CopyText(sHarfler) -- üretilen şifreyi hafızaya kopyala
end
else -- eğer uzunluk seçilmemişse
Dialog.Message("Hata", "Lütfen önce uzunluk seçin") -- uzunluk seçilmemişse uyarı ver.
end
[/codebox]

Proje:

[code]http://www.mediafire.com/?3c629o2sb09ch69[/code]

[nightmare3519]

[img]http://i.imgur.com/wquaU.png[/img]

[CODE]

tHarfTablosu = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","X","W","Q","a","b","c","d","e","f","g","h","i","q","r","s","t","u","v","w","x","y","z"}
tYabanciHarfTablosu = {"ö","ä","ü","Ö","Ä","Ü","ß","é"}
tOzelKarakterTablosu = {"@","€","µ","²","³","°","[","]","^","!","§","$","{","%","&","/","(",")","}","=","<",">","|",",",".","-",";",":","_","+","*","~","?"}
tKarisk = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","X","W","Q","a","b","c","d","e","f","g","h","i","q","r","s","t","u","v","w","x","y","z","ö","ä","ü","Ö","Ä","Ü","ß","é","@","€","µ","²","³","°","[","]","^","!","§","$","{","%","&","/","(",")","}","=","<",">","|",",",".","-",";",":","_","+","*","~","?"}
tUzunlukTablosu = {9, 99, 999, 9999, 99999, 999999, 9999999, 99999999, 999999999}

nSecilen = ComboBox.GetSelected("uzunluk") -- seçilen uzunluğu bul
if nSecilen ~= 1 then -- eğer uzunluk seçilmişse
nUzunluk = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk = String.ToNumber(nUzunluk) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
nUzunluk = tUzunlukTablosu[nUzunluk] -- tablodaki uzunluk karşılığını al
if RadioButton.GetChecked("RadioButton1") then -- eğer 1. seçenek seçilmişse
nRandom = Math.Random(1, nUzunluk)




elseif RadioButton.GetChecked("RadioButton2") then -- eğer 2. seçenek seçilmişse
nUzunluk2 = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk2 = String.ToNumber(nUzunluk2) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
tGeciciTablo = {} -- bos tablo olustur
for i=1,nUzunluk2 do
nRandom2 = Math.Random(1, 52) -- f'ndaki harf adedi arasından rast gele harf çekmek için önce rastgele sayıyı bul
nRandomHarf = tHarfTablosu[nRandom2] -- rastgele harfi al
Table.Insert(tGeciciTablo, Table.Count(tGeciciTablo)+1, nRandomHarf) -- tabloya yerleştir.
end

-- geçici tablodaki harfleri yanyana yerleştir
sHarfler = ""; -- boş bir değişken oluştur
for i,v in pairs(tGeciciTablo) do
sHarfler = sHarfler .. v;
end



elseif RadioButton.GetChecked("RadioButton3") then
nUzunluk3 = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk3 = String.ToNumber(nUzunluk3) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
tGeciciTablo = {} -- bos tablo olustur
for i=1,nUzunluk3 do
nRandom2 = Math.Random(1, -- tHarfTablosu'ndaki harf adedi arasından rast gele harf çekmek için önce rastgele sayıyı bul
nRandomHarf = tYabanciHarfTablosu[nRandom2] -- rastgele harfi al
Table.Insert(tGeciciTablo, Table.Count(tGeciciTablo)+1, nRandomHarf) -- tabloya yerleştir.
end

-- geçici tablodaki harfleri yanyana yerleştir
sHarfler = ""; -- boş bir değişken oluştur
for i,v in pairs(tGeciciTablo) do
sHarfler = sHarfler .. v;
end





elseif RadioButton.GetChecked("RadioButton4") then
nUzunluk3 = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk3 = String.ToNumber(nUzunluk3) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
tGeciciTablo = {} -- bos tablo olustur
for i=1,nUzunluk3 do
nRandom2 = Math.Random(1, 37) -- tHarfTablosu'ndaki harf adedi arasından rast gele harf çekmek için önce rastgele sayıyı bul
nRandomHarf = tOzelKarakterTablosu[nRandom2] -- rastgele harfi al
Table.Insert(tGeciciTablo, Table.Count(tGeciciTablo)+1, nRandomHarf) -- tabloya yerleştir.
end

-- geçici tablodaki harfleri yanyana yerleştir
sHarfler = ""; -- boş bir değişken oluştur
for i,v in pairs(tGeciciTablo) do
sHarfler = sHarfler .. v;
end








elseif RadioButton.GetChecked("RadioButton5") then
nUzunluk3 = ComboBox.GetItemText("uzunluk", nSecilen) -- seçilen uzunluk değerini al
nUzunluk3 = String.ToNumber(nUzunluk3) -- alınan uzunluğu sayıya çevir (matematiksel işlemlerde hata vermemesi için)
tGeciciTablo = {} -- bos tablo olustur
for i=1,nUzunluk3 do
nRandom2 = Math.Random(1, 96) -- tHarfTablosu'ndaki harf adedi arasından rast gele harf çekmek için önce rastgele sayıyı bul
nRandomHarf = tKarisk[nRandom2] -- rastgele harfi al
Table.Insert(tGeciciTablo, Table.Count(tGeciciTablo)+1, nRandomHarf) -- tabloya yerleştir.
end

-- geçici tablodaki harfleri yanyana yerleştir
sHarfler = ""; -- boş bir değişken oluştur
for i,v in pairs(tGeciciTablo) do
sHarfler = sHarfler .. v;
end
end
if RadioButton.GetChecked("RadioButton1") then
Input.SetText("Input1", nRandom)
else
Input.SetText("Input1", sHarfler)
end
else -- eğer uzunluk seçilmemişse
Dialog.Message("Hata", "Lütfen önce uzunluk seçin") -- uzunluk seçilmemişse uyarı ver.
end


[/CODE]

Tamamdır abi ayarladım yabancı karakter ve özel karakterleride yaptım.

Proje Dosyası:

http://www.mediafire.com/?hc6v1gog5dc4f23

Edited October 6, 2012 by nightmare3519

[superhalit]

bende bir örnek proje hazırlamıştım da yanlışlıkla silindi