TOP_die Posted January 16, 2010 Report Share Posted 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 (<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 } Link to comment Share on other sites More sharing options...
TOP_die Posted January 16, 2010 Author Report Share Posted 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 Link to comment Share on other sites More sharing options...
err0r Posted January 17, 2010 Report Share Posted 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 } Link to comment Share on other sites More sharing options...
TOP_die Posted January 17, 2010 Author Report Share Posted January 17, 2010 (edited) 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 Link to comment Share on other sites More sharing options...
err0r Posted January 17, 2010 Report Share Posted 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now