[immortaL]

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 !