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.
RAR dosyasını açıp, auth.mrc dosyasını mIRC’nize load etmeniz yeterlidir.
/load -rs auth\auth.mrc
; Authcode görüntüleyici v1.0
; 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),$+(
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)
}
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 *
var %i 1
while %i <= $pos($1-,<,0) {
%s = $pos($1-,<,%i)
if $mid($1-,%s,4) ==
%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
}
}
}
www.kelebek.gen.tr
www.ticarichat.net
Hiç yorum yok:
Yorum Gönder