Help In Scan Profiles And Underage

TOP_die · January 16, 2010

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 (Age isin $1-) {

var %x = $mid($1-,$pos($1-,Age ,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 ( isin $1-) {

echo %currprofchan 4[12Nickname4]:12 $mid($mid($1-,$calc($pos($1-,,1) + $len()),$len($1-)),1,$calc($pos($mid($1-,$calc($pos($1-,,1) + $len()),$len($1-)),,1) - 1))

}

if (Name isin $1-) {

var %x = $mid($1-,$pos($1-,Name ,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 (Age isin $1-) {

var %x = $mid($1-,$pos($1-,Age ,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 (Location isin $1-) {

var %x = $mid($1-,$pos($1-,Location ,1),$len($1-)),1,$len($1-))

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

}

TOP_die · January 16, 2010

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

**err0r** · January 17, 2010

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
}

TOP_die · January 17, 2010

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

Edited January 17, 2010 by TOP_die

**err0r** · January 17, 2010

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

Sign In

Help In Scan Profiles And Underage

Recommended Posts

TOP_die

Link to comment

Share on other sites

TOP_die

Link to comment

Share on other sites

err0r

Link to comment

Share on other sites

TOP_die

Link to comment

Share on other sites

err0r

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

Activity