Authcode Görüntüleyici

; 22 Temmuz 2006

; DefauLt tarafından yazılmıştır. (ozcank@gmail.com)

; Güvenlik amacıyla authcode sistemini kullanan sunuculara,

; kullanıcıların girişlerini kolaylaştırmak amacıyla üretilmiştir.

;

; İsteyenler, scriptlerine, yazar notu düşmeksizin koyabilirler, değiştirebilirler.

;

; Authcode’un mIRC’den hiçbir şekilde okunmasını istemeyen, çeşitli güvenlik

; önlemleriyle bunu engellemeye çalışan sunucularda çalışmaz.

; Bu amacı güden sunucuların hakları düşünülerek, bu sunucuların

; güvenlikleri aşılmamıştır.

;

; TTNet gibi, çoklu image kullanan sunucularda hatasız bir şekilde çalışmaktadır.

;

; Authcode girmek için kullanılan komutu, image linkinin bulunduğu sayfadan

; otomatik olarak okumakta ve kullanıcıya sunmaktadır.

; /auth, /authcode, /giris, /login

; bunlar için herhangi bir eklenti yapmanıza gerek yoktur.

;

;

alias _auth {

if $dialog(auth) {

dialog -x auth

}

dialog -mo auth auth

}

dialog auth {

title “Authcode”

size -1 -1 85 104

option dbu

edit “”, 8, 1 68 82 12

text “”, 3, 6 14 71 19

button “Giriş yap”, 5, 2 86 38 12, default

text “Sohbet edebilmek için, yukarıda görmüş olduğunuz kodun aynısını aşağıdaki kutucuğa giriniz:”, 4, 2 42 80 24

box “Güvenlik kodu:”, 6, 2 4 81 35

}

on *:dialog:auth:*:*: {

if $devent == init {

var %i 1

while $hget(auth,$+(code,%i)) {

write -l11 $shortfn($scriptdirauth2.html) $+($read($shortfn($scriptdirauth2.html),11),$+(<img src=”,$hget(auth,$+(code,%i)),”>))

inc %i

}

var %s $dll($nh,item,$dialog($dname).hwnd id:3)

dll $nh select %s

dll $nh attach %s

dll $nh navigate $scriptdirauth.html

var %i 1

while %i <= $len($hget(auth,command)) {

.timer -m 1 $calc(%i * 100) did -a $dname 8 $mid($hget(auth,command),%i,1)

inc %i

}

.timer -m 1 $calc(%i * 100) did -a $dname 8 $chr(160)

}

if $devent == sclick {

if $did == 5 {

$replace($did($dname,8),$chr(160),$chr(32))

dialog -x $dname

}

}

}

alias -l nh {

return $shortfn($scriptdirnHTMLn_2.95.dll)

}

alias authsock {

sockclose auth

sockopen auth $hget(auth,host) 80

if $hget(auth,t) {

hdel auth t

}

var %i 1

while $hget(auth,$+(code,%i)) {

hdel auth $+(code,%i)

inc %i

}

write -l11 $shortfn($scriptdirauth2.html) <by default>

}

on *:sockopen:auth: {

var %s sockwrite -nt $sockname

%s GET $+(/,$hget(auth,get)) HTTP/1.1

%s Host: $hget(auth,host)

%s User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1

%s Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5

%s Accept-Language: en-us,en;q=0.5

%s Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

%s Keep-Alive: 300

%s Connection: keep-alive

%s

}

on *:sockread:auth: {

sockread %x

tokenize 32 %x

if / isin $1- {

var %i 1

while %i <= $numtok($1-,32) {

%s = $gettok($1-,%i,32)

if / isin %s {

if $right($mid(%s,$pos(%s,/,1),$len(%s)),-1) isalpha {

hadd -m auth command $mid(%s,$pos(%s,/,1),$len(%s))

}

}

inc %i

}

}

if *<img src=* iswm $1- {

var %i 1

while %i <= $pos($1-,<,0) {

%s = $pos($1-,<,%i)

if $mid($1-,%s,4) == <img {

%w = $mid($1-,%s,$len($right($1-,$calc(%s – 1))))

hinc -m auth t

hadd -m auth $+(code,$hget(auth,t)) $+(http://,$hget(auth,host),$hget(auth,dir),$gettok($mid($+($mid($1-,%s,-1),$right($1-,1)),1,$pos(%w,>,1)),2,34))

}

inc %i

}

}

if $1 == 0 {

_auth

}

}

on *:snotice:*: {

if (*auth* iswm $strip($1-) || *giri?* iswm $strip($1-) || *tan?t?m* iswm $strip($1-) || *t?klay?n* iswm $strip($1-)) && *http* iswm $strip($1-) {

var %i 1

while %i <= $numtok($strip($1-),32) {

%s = $gettok($strip($1-),%i,32)

if *http* iswm %s {

hadd -m auth host $gettok($gettok(%s,2-,47),1,47)

hadd -m auth get $gettok($gettok(%s,2-,47),2-,47)

hadd -m auth dir $remove(%s,http://,$gettok(%s,-1,47),$hget(auth,host))

authsock

break

}

inc %i

}

}

}