Help In Scan Profiles And Underage

note: i made script for buzzen and just need some help for other some thing if u can help mr err0r thnx

---------------------------------------------------------------------------------------------------------

alias scan.profile {

set %scanning on

set %achannel $active

sockwrite -n $sockfind(%achannel) prop $1 PUID

}

alias scany {

set %scanning on

set %achannel $active

sockwrite -n $sockfind($active) prop $1 PUID

timerloca 1 5 unset %scanning

timerloce 1 5 unset %achannel

}

alias scan {

var %snickz = 1

while ($nick($active,%snickz)) {

if ($nick(#,%snickz) != $me) {

timer 1 2 scan.profile $nick(#,%snickz)

}

inc %snickz

}

}

raw 818:*:{

if (%scanning == on) {

writeini PUID.ini PUID $2 $4

sockopen agekicker. $+ $2 $+ . $+ %achannel members.msn.com 80

halt

}

}

on *:sockopen:agekicker.*:{

sockwrite -n $sockname GET /?mpp=2260~ $+ $readini(PUID.ini,PUID,$gettok($sockname,2,46)) $+ &mid=2260&kpp=3 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: en-us

sockwrite -n $sockname Host: members.msn.com $+ $crlf $+ $crlf

}

on *:sockread:agekicker.*:{

var %temp

sockread %temp

if ($len(%temp) < 500) {

if (HTTP/1.1 302 Object moved isin %temp) { echo $gettok($sockname,3,46) 4,8/!\ $msn.decode($gettok($sockname,2,46)) $text.effects(15have adult profile!) | sockclose $sockname }

if (HTTP/1.1 302 Moved isin %temp) { echo $gettok($sockname,3,46) 4,9/!\11,1 $msn.decode($gettok($sockname,2,46)) $text.effects(15have no profile!) | sockclose $sockname }

tokenize 13 %temp

wmsnlog $sockname %temp

if (<B>Age</B></nobr><br> isin $1-) {

var %x = $mid($1-,$pos($1-,<B>Age</B></nobr><br>,1),$len($1-)),1,$len($1-))

if ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) < 18) && ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) != 0) {

if ($ial($gettok($gettok($sockname,2,46),2,32)) != $null) && ($me isop $gettok($sockname,3,46)) {

sockwrite -n $sockfind($gettok($sockname,3,46)) access $gettok($sockname,3,46) add deny $ial($gettok($sockname,2,46)).addr 0 :4[1Underage User4]

}

elseif ($ial($gettok($gettok($sockname,2,46),2,32)) == $null) {

sockwrite -n $sockfind($gettok($sockname,3,46)) access $gettok($sockname,3,46) add deny $ial($gettok($sockname,2,46)).addr 0 :4[1Underage User4]

}

sockwrite -n $sockfind($gettok($sockname,3,46)) kick $gettok($sockname,3,46) $gettok($sockname,2,46) : $+ Underage .. 4( $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) 4)

echo $gettok($sockname,3,46) 14 $+ *7 $msn.decode($gettok($sockname,2,46)) $text.effects(0age was) $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) ...

}

elseif ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) > 18) {

echo $gettok($sockname,3,46) 14 $+ *7 $msn.decode($gettok($sockname,2,46)) $text.effects(0age is) $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," "))

}

if ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) == 0) {

echo $gettok($sockname,3,46) 14 $+ *7 $msn.decode($gettok($sockname,2,46)) $text.effects(0age is Undisclosed)

}

}

}

}

-------------------------------------------------------------------

#checkprofile on

on *:JOIN:#:{

if ($nick != $me) && (%profile1 != $true) && ($me isop #) && ($nick != %botnick) {

if (%pcheck == on) { sockwrite -n $sockfind(#) PROP $nick MSNPROFILE }

sockwrite -n $sockfind(#) prop $nick PUID | set %currprofchan # | set %profile.ticks $ticks }

set -u6 %profile1 $true

}

#checkprofile end

raw 818:*:{

if (%scanning != on) {

if ($group(#checkprofile) == on) {

if ($3 == PUID) {

getprofile $2 %currprofchan $4

halt

}

}

}

}

alias getprofile {

var %ext = $rand(11111,99999)

set %profilekick. [ $+ [ %ext ] ] $2 $1

sockopen profile. $+ %ext members.msn.com 80

sockmark profile. $+ %ext $sock($sockname).mark

set %profile. [ $+ [ %ext ] ] /default.msnw?mpp= $+ $3-

}

on *:sockopen:profile.?????:{

var %prof = GET %profile. [ $+ [ $right($sockname,5) ] ] HTTP/1.1 $crlf

%prof = %prof $+ Accept: */* $+ $crlf

%prof = %prof $+ Accept-Language: en-us $lf Accept-Encoding: gzip, deflate $+ $crlf

%prof = %prof $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322) $+ $crlf

%prof = %prof $+ Host: members.msn.com $+ $crlf

%prof = %prof $+ Connection: close $+ $crlf

%prof = %prof $+ Cookie: $sock($sockname).mark $+ $crlf

sockwrite $sockname %prof $+ $crlf

}

on *:sockread:profile.?????:{

var %data

sockread %data

if ($len(%data) < 500) {

if (HTTP/1.1 302 Object moved isin %data) { echo %currprofchan 4[12 $+ $msn.decode($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)) $+ 4]:8 Have Adult Profile }

if (HTTP/1.1 302 Moved isin %data) { echo %currprofchan 4[12 $+ $msn.decode($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)) $+ 4]:8 Have Adult Profile }

tokenize 13 %data

if (<font class=viewName> isin $1-) {

echo %currprofchan 4[12Nickname4]:12 $mid($mid($1-,$calc($pos($1-,<font class=viewName>,1) + $len(<font class=viewName>)),$len($1-)),1,$calc($pos($mid($1-,$calc($pos($1-,<font class=viewName>,1) + $len(<font class=viewName>)),$len($1-)),</font>,1) - 1))

}

if (<B>Name</B><br> isin $1-) {

var %x = $mid($1-,$pos($1-,<B>Name</B><br>,1),$len($1-)),1,$len($1-))

echo %currprofchan 4[12RealName4]:12 $remove($mid($right(%x,-15),1,$calc($pos($right(%x,-15),</td>,1) - 1)), )

}

if (<B>Age</B></nobr><br> isin $1-) {

var %x = $mid($1-,$pos($1-,<B>Age</B></nobr><br>,1),$len($1-)),1,$len($1-))

if ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) < 18) && ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) != 0) {

if ($ial($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)) != $null) {

sockwrite -n $sockfind(%currprofchan) access %currprofchan add deny $ial($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)).addr 0 :4[12Underage User4]

}

elseif ($ial($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)) == $null) {

sockwrite -n $sockfind(%currprofchan) access %currprofchan add deny $ial($gettok(%profilekick. [ $+ [ $right($sockname,5) ] ],2,32)).addr 0 :4[12Underage User4]

}

sockwrite -n $sockfind(%currprofchan) kick %profilekick. [ $+ [ $right($sockname,5) ] ] : $+ Underage .. 4( $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) 4)

echo %currprofchan 4[12Age4]:12 $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," "))

}

elseif ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) > 18) {

echo %currprofchan 4[12Age4]:12 $int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," "))

}

elseif ($int($remove($remove($mid($right(%x,-21),1,$calc($pos($right(%x,-21),</td>,1) - 1)), )," ")) != 0) {

echo %currprofchan 4[12Age4]:12 Undisclosed

}

}

if (<B>Location</B><br> isin $1-) {

var %x = $mid($1-,$pos($1-,<B>Location</B><br>,1),$len($1-)),1,$len($1-))

echo %currprofchan 4[12Location4]:12 $remove($mid($right(%x,-19),1,$calc($pos($right(%x,-19),<br>,1) - 1)), )

}

}

}

on *:sockclose:profile.?????:{

echo %currprofchan 4[12Ticks4]:12 $calc($calc($ticks - %profile.ticks) / 1000) Sec

unset %profile1

unset %currprofchan

unset %profilekick. [ $+ [ $right($sockname,5) ] ]

unset %profile. [ $+ [ $right($sockname,5) ] ]

unset %profile.ticks

}

i just want thes codes work on buzzen i scripting all my script for buzzen but just need help in thes code to make thes code work on buzzen server thnx

This is thrown together to handle under 18 and undisclosed age.. i didn't do a whole lot of testing but it worked.. feel free to refine it.

note depending on your connection you may have to change the raw data/pid

alias bprofa { var %profsock $+(bprofa,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsock www.buzzen.com 80 | sockmark %profsock $1 $2 $3 }
on *:sockopen:bprofa*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /chat/redirect.php?mid= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:bprofa*: {
  if ($sockerr > 0) return | var %bprofa | sockread %bprofa 
  if ($regex(%bprofa,/Location: (.*)/)) { gprof $regml(1) $sock($sockname).mark | sockclose $sockname }
}
alias gprof { var %profsockb $+(gprof,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsockb www.buzzen.com 80 | sockmark %profsockb $1 $2 $3 $4 }
on *:sockopen:gprof*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:gprof*: {
  if ($sockerr > 0) return | var %gprof | sockread %gprof 
  if (%p. [ $+ [ $sockname ] ] == 1) && ($regex(%gprof,/(.*)/)) { 
    unset %p. [ $+ [ $sockname ] ] 
    if ($gettok($regml(1),1,32) < 18) { 
      if ($sock($sockname).mark,2,32) ison $gettok($sock($sockname).mark,4,32)) {
        access $gettok($sock($sockname).mark,4,32) ADD DENY $ial($gettok($sock($sockname).mark,2,32)).addr 15 : under 18
        kick $gettok($sock($sockname).mark,4,32) $gettok($sock($sockname).mark,2,32) Room is 18+ 
      }
    }
    if ($gettok($regml(1),1,32) !isnum) { 
      if ($sock($sockname).mark,2,32) ison $gettok($sock($sockname).mark,4,32)) {
        access $gettok($sock($sockname).mark,4,32) ADD DENY $ial($gettok($sock($sockname).mark,2,32)).addr 15 : Unknown age
        kick $gettok($sock($sockname).mark,4,32) $gettok($sock($sockname).mark,2,32) Room is 18+ Please set your age in your profile
      }
    }
    sockclose $sockname 
  }
  if ($regex(%gprof,/<strong>Age<\/strong><br>/)) { set -e %p. [ $+ [ $sockname ] ] 1 }
}

menu channel {
  Profile Scanner
  .$iif($istok(%Prof.scan,$chan,44),$style(1)) Scan $chan : $iif($istok(%Prof.scan,$chan,44),set %Prof.scan $remtok(%Prof.scan,$chan,1,44),set %Prof.scan $addtok(%Prof.scan,$chan,44))
  -
}
on !*:JOIN:#:{ 
  if ($me isop $chan) {
    if ((!$istok(%Prof.scan,$chan,44)) || (%Profileflood > 2) || ($left($nick,1) == ^) || ($left($nick,1) == >)) { halt }
    inc -u2 %Profileflood
    set %prof.ck. [ $+ [ $nick ] ] $chan
    .raw PID $nick
  }
}
raw data:*: { 
  if ($2 == PID) { 
    if (%prof.ck. [ $+ [ $3 ] ]) {  bprofa $3 $4 %prof.ck. [ $+ [ $3 ] ]  | unset %prof.ck. [ $+ [ $3 ] ] }
  } 
  halt
}

thnx so much for your help Mr err0r i will try with thes code and hope wen i finish VaX Script

all like my work i work on thes script from long time maybe 2 years Script Loaded 80%

Thanks so much

good luck, if u have any problems let me know.. i didn't have a lot of time to really test it thoroughly as i'm working on another project atm.. but i'm sure if u have problems someone here will help if i'm not around