| immortaL | 30 Haziran 2016 15:09 |
mIRC'e Açılış Şifresi Addonu.
PHP- Kodu:
On *:Start: {
if (%reaLcoder == $null) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :1 mIRC Korumasi Su Anda Kapali. Bilgi Icin, F1 Tusuna Basmaniz Yeterlidir. }
if (%reaLcoder == OFF) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :1 mIRC Korumasi Su Anda Kapali. Bilgi Icin, F1 Tusuna Basmaniz Yeterlidir. }
if (%reaLcoder == ON) {
unset %pass1 | unset %newpass | unset %exit
set %pass1 $?*"Parola Korumasi, Lutfen Sifre Girin!" | set %pass1 $encode(%pass1 $+ ,m) | $Kontrol
}
}
Alias Kontrol {
if ($decode(%pass1 $+ ,m) == $decode(%pass $+ ,m)) { echo -a Hosgeldiniz }
if ($decode(%pass1 $+ ,m) !== $decode(%pass $+ ,m)) {
if (%exit == $null) {
if ($decode(%pass1 $+ ,m) == $decode(%pass $+ ,m)) { halt | echo -a Hosgeldiniz }
if ($decode(%pass1 $+ ,m) !== $decode(%pass $+ ,m)) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :1 Sifre Gecersiz! Sifreyi Denemek Icin 3 Sansiniz Kaldi! | $Sor }
}
if (%exit == 1) {
if ($decode(%pass1 $+ ,m) == $decode(%pass $+ ,m)) { halt | echo -a Hosgeldiniz }
if ($decode(%pass1 $+ ,m) !== $decode(%pass $+ ,m)) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :1 Sifre Gecersiz! Sifreyi Denemek Icin 2 Sansiniz Kaldi! | $Sor }
}
if (%exit == 2) {
if ($decode(%pass1 $+ ,m) == $decode(%pass $+ ,m)) { halt | echo -a Hosgeldiniz }
if ($decode(%pass1 $+ ,m) !== $decode(%pass $+ ,m)) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :1 Sifre Gecersiz! Sifreyi Denemek Icin 1 Sansiniz Kaldi! | $Sor }
}
if (%exit == 3) {
if ($decode(%pass1 $+ ,m) == $decode(%pass $+ ,m)) { halt | echo -a Hosgeldiniz }
if ($decode(%pass1 $+ ,m) !== $decode(%pass $+ ,m)) { echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] : Bye bye! | echo -a 4,1mIRC Otomatik Olarak Kapatiliyor!!! | echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] : Loglar Alinmistir! | set %yabanci $date - $time - $day | set %off 1 | .exit }
}
}
}
Alias Sor { set %pass1 $?*"Parola Koruması, Lutfen Sifre Girin!" | set %pass1 $encode(%pass1 $+ ,m) | inc %exit | $Kontrol }
Alias Sifredegis {
set %pass5 $?*"Eski Sifreyi Yaziniz." | set %pass5 $encode( $+ %pass5 $+ ,m) | if ( %pass5 == $null ) { unset %pass5 | halt } | if (%pass5 !== %pass) { unset %pass5 | halt } | else if ( %pass5 == %pass) { set %pass4 $?*" Sifreyi Yazin " | set %pass4 $encode( $+ %pass4 $+ ,m) | set %pass7 $?*"Sifrenizi Tekrar Girin" | set %pass7 $encode( $+ %pass7 $+ ,m) }
if ( $decode( $+ %pass4 $+ ,m) = $decode( $+ %pass7 $+ ,m) ) { inc %z | if (%z == 1) { off } | set %reaLcoder ON | .echo 14,1[4,1 12-4 UYARI 12-4 14,1] : Parola Korumasi Etkin! | set %pass $decode( $+ %pass4 $+ ,m) | set %pass %pass4 | set %off 2 | halt }
else goto h3
:h3
{ echo 14,1[4,1 12-4 UYARI 12-4 14,1] : Parola Korumasi Etkin Degil! | .unset %pass* | set %reaLcoder OFF | halt }
}
On *:exit: { unset %exit | unset %newpass | unset %passonayla | unset %z | unset %pass7 | unset %passy | unset %pass5 | set %off 31 }
Alias confirm {
set %pass $?*"Sifreniz Ne Olsun?" | set %pass $encode( $+ %pass $+ ,m) | if ( %pass == $null ) { unset %pass* | set %off 3 | halt } | else set %passonayla $?*"Sifrenizi Tekrar Girin" | set %passonayla $encode( $+ %passonayla $+ ,m)
if ( $decode( $+ %pass $+ ,m) = $decode( $+ %passonayla $+ ,m) ) { inc %z | if (%z == 1) { off } | set %reaLcoder ON | .echo 14,1[4,1 12-4 UYARI 12-4 14,1] : Parola Korumasi Etkin! | set %off 2 | halt }
else goto h3
:h3
{ echo 14,1[4,1 12-4 UYARI 12-4 14,1] : Parola Korumasi Etkin Degil! | .unset %pass* | set %reaLcoder OFF | halt }
}
Alias setpass {
if $?!="mIRC'inizi Sizden Baskasinin Kullanmasini Istemiyorsaniz, Devam Ediniz [[NOT]] Eger Sifrenizi Unutursaniz Sifre Encrypt Edildiginden Dolayi Sifrenizi Bulamayacaksiniz. mIRC'inizi Sifrelemek Istediginize Eminmisiniz" { confirm | halt }
else { echo 14,1[4,1 12-4 UYARI 12-4 14,1] : Sifre Korumasi. Artik Etkin Degil ! | set %reaLcoder off | halt }
}
Alias ps { setpass }
Alias Off {
inc %off
}
Alias F1 {
echo -a 4m12IRC'a 4S12ifre 4K12oymak 4I12cin F2 4T12usuna 4B12asiniz.
echo -a 4Y12azdiginiz 4S12ifreyi 4D12egistirmek 4I12cin F3 4T12usuna 4B12asiniz.
echo -a 4S12ifreleme 4I12slemini 4I12ptal 4E12tmek 4I12cin, F4 4T12usuna 4B12asiniz.
}
Alias F2 { .confirm }
Alias F3 { .Sifredegis }
Alias F4 { $Nurayim }
Alias Nurayim {
set %passiptal $?*" Eski Sifreyi Giriniz. " | set %passiptal $encode( $+ %passiptal $+ ,m) | if ( %passiptal == $null ) { unset %passipt* | halt } | else if (%passiptal == %pass) { unset %pass* | unset %reaLcoder | unset %Nurayim* | unset %newpa* | unset %exit | unset %off | unset %z | echo -a 14,1[4,1 12-4 UYARI 12-4 14,1] :mIRC Korumasi Kapali! }
}
;#### By Cem !
|
