IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Özel WordList oluştur ma? (https://www.ircforumlari.net/mirc-scripting-sorunlari/48416-ozel-wordlist-olustur-ma.html)

Özel WordList oluştur ma?

Merhaba arkadaşlar wordlist oluşturmam lazim. Kendi yazdığım kod verimli olmadı.

a1 a1 a1
a1 a1 a2
a1 a1 a3
a1 a2 a1
a1 a2 a3
a1 a3 a1
a1 a3 a2

Yani her satırdaki bir rakam değişip diğerleri sabit kalacak. Benim yazdığım kodda kırmızı yerin işlemi bitince diğer kısıma geçmek için kodda değişilik yapmam gerekiyor. Bu kısım bittikten sonra diğer kısıma otomatik nasıl geçirebilirim. Yardımlarınızı bekliyorum.

Saygılar.

Cevap: Özel WordList oluştur ma?

Hiçbir şey anlamadım, amacın nedir? Bu harf-rakamlar nedir? Ne yapmak istiyorsun? Yazdığın kod ne?

Biraz açarsan yardımcı olmaya çalışacağım.

Cevap: Özel WordList oluştur ma?

Alıntı:

RaideR Nickli Üyeden Alıntı (Mesaj 333704)

yazdığın Kodu paylaşırsan yardımcı olmaya çalışırız?

Cevap: Özel WordList oluştur ma?

Wordlist derken neyi yapmayı planlıyorsun,Biraz daha net Anlatırsan yardımcı olabiliriz belki

Yanıt: Özel WordList oluştur ma?

Şifre kırmak için hazırlanır wordlistler , tabi arkadaşın ne niyetle hazırlamak istediğini bilemem. Belli anahtar kelimeleri yazarsınız türetmeye başlar her olasılığı, genelde a yada 0 ile taramaya başladıklarından şifrelerinizin z harfi ile başlaması şifrenizin bu tarz tarama yollarıyla kırılmasını zorlaştıracaktır.

Yanıt: Özel WordList oluştur ma?

Elimde 100 e yakın sayı var, bunları 6 lı 7 li kombinasyonlar halinde toplamak için lazım bu kod. Her sayı için a1=1 a2=2 a3= 8 a4=21 ... gibi devam ediyor.

Alıntı:

alias F12 {
set %karakter $gettok(%deneme,%son,32)
set %karaktersayi $len(%karakter)
if (%karaktersayi == 3) { k3 }
if (%karaktersayi == 4) { k4 }
if (%karaktersayi == 5) { k5 }
}
else {
.halt
}
;::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::
alias k3 {
set %degistir $gettok(%deneme,%son,32)
set %karaktersayi $len(%degistir)
set %artir $right(%degistir,1)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,17,32)
write 1.txt %deneme
.F12
}
;::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::
alias k4 {
set %degistir $gettok(%deneme,%son,32)
set %artir $right(%degistir,2)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,17,32)
write 1.txt %deneme
.F12
}
alias k5 {
if (%artir < 111) {
set %degistir $gettok(%deneme,%son,32)
set %artir $right(%degistir,3)
inc %artir +1
set %yeniveri % $+ a $+ %artir
set %deneme $puttok(%deneme,%yeniveri,%son,32)
write 1.txt %deneme
.F12

}
}
%deneme a1 + a2 + a3 + a4 + a5
%son 9

Bu yazdiğım kodla %deneme verisindeki a6 kısmı a111 e kadar değişiyor. Sonra işlem bitiyor. Benim istediğim bu işlem bittikten sonra %deneme verisindeki a5 verisinin değişmesini sağlamak diğerleri sabit kalacak a6 ya yaptığım işlemin aynısını yani. Böyle böyle a1 e kadar değişimleri otomatik olarak yapmak.