TTNet yeni authcode decryptor scripti.

on *:Snotice:*:{
;;;Bu script sadece bilgi amacıyla yapılmıştır ve public hale getirilmiştir.
;;;Author: nuker 
;;;Contacts ICQ: 10072 MSN/Mail: nukedx@nukedx.com web: www.nukedx.com
if ($nick == irc.ttnet.net.tr) {
if (Tanıtım kodu için tıklayın isin $1-) {
.set %authcodeget $remove($remove($10,http://irc.ttnet.net.tr/authcodes/),.shtml)
.var %ml = $calc($base(%authcodeget,16,10) - $ctime + 894)
.var %codex = $right(%authcodeget,5)
.var %doit = $base(%ml,10,16)
.echo -a Decrypting data.. 
.echo -a %authcodeget $ctime + 894
.echo -a %ml
.echo -a %codex
.echo -a %doit
.echo -a End of data decryption..
.set %doauth %doit
.quote authcode %doit
.haltdef
}
if (Tanıtım kodu yanlış isin $1-) {
.echo -a Hmm hesapta ufak bir hata olmuş ama simdi dogru
.quote authcode $calc(%doauth + 1)
}
if (Tanıtım başarıyla tamamlandı. isin $1-) { .echo -a Kod başarıyla girildi. | .unset %authcodeget | .unset %doauth | .haltdef }
}
}