Jump to content

Spike1506

Members
 View Profile  See their activity

  • Posts

    50

  • Joined

  • Last visited

 Content Type 

Posts posted by Spike1506

    StatBar

    in MSN

    Posted

    How do you beta test something not yet release?

    I checked and microsolf still excepting aplication for beta testing.

     

    Good one tongue.gif but i think we are offtopic.gif

    StatBar

    in MSN

    Posted

    lol_sign.gif this is so flowering funny.. a beta tester who gets money for testing? omg.. well in that case i gonna ask google some money for beta testing gmail and other beta stuff .. rofl

    StatBar

    in MSN

    Posted

    I was using this program on my old computer (pentium 1, 233Mhz, windows 98se) and it was working fine for me too..

    never had any troubles with it.

    Now i'm using it on my pentium 4 (2,4Ghz) and running win. xp sp1 and dont have any problems with it either.. so i guess it's your system who fails with running this program.. and not a problem of the program itselfs.

     

    Connection help needed

    in MSN

    Posted

    this is what i get:

     

    (21:09:26)    —› joined (%#Spike1506)

    (21:09:26)    —› topic: (My own testing room)

    (21:09:27)    —› (%#Spike1506) modes: (+tnlS 38527)

    (21:09:29) !                        .Spike1506[Rewt]: Global owner user Spike1506 'Spike1506[Rewt]'

    (21:09:29)    —› mode: (Spike1506[Rewt]) sets (+q Spike1506)

    (21:10:10)    —› join: (>null) (EF80989D8CDD40AFA13B0B3E6116DB47@GateKeeper)

    (21:10:10) * (( /whois start ))

    (21:10:10) *  —› >null is "" (EF80989D8CDD40AFA13B0B3E6116DB47@GateKeeper)

    (21:10:10)  —› >null halfopped in #Spike1506

    (21:10:10)  —› >null using tk2chatchata06 (MSN Chat Service)

    (21:10:10) * (( /whois end ))

    (21:10:15) !                        .Spike1506[Rewt]: who are you null

    (21:10:16) !                        .Spike1506[Rewt]: ?

    (21:10:23) !                        .Spike1506[Rewt]: ohw

    (21:10:26) !                        .Spike1506[Rewt]: you cant speak

    (21:10:36) !                        .Spike1506[Rewt]: use: /topic text here to speak

    (21:11:13)    —› part: (>null) (EF80989D8CDD40AFA13B0B3E6116DB47@GateKeeper)

    (21:11:13) * Disconnected

    (21:11:14)    —› welcome to the msn chat service network

    (21:11:14)    —› protocols supported by this server: (PREFIX=(qov).@+ CHANMODES=b,k,l,defhimnprsStuwWx NETWORK=MSN Are supported by this server)

     

    (21:10:36) room.HXAU:Spike1506[Rewt]!F273F7B7E89C7A95@GateKeeperPassport PRIVMSG %#Spike1506 :use: /topic text here to speak

    (21:10:39) normale.controle:TK2CHATWBC06 351 Spike1506 :9.02.0503.2301

    (21:10:49) normale.controle:TK2CHATWBC06 351 Spike1506 :9.02.0503.2301

    (21:10:59) normale.controle:TK2CHATWBC06 351 Spike1506 :9.02.0503.2301

    (21:11:09) normale.controle:TK2CHATWBC06 351 Spike1506 :9.02.0503.2301

    (21:11:13) room.HXAU:>null!EF80989D8CDD40AFA13B0B3E6116DB47@GateKeeper PART %#Spike1506

    (21:11:13) MircQUIT :SockBot v0.3 made by Spike1506 http://www.sensiva.net

    (21:11:14) MircNICK Spike1506

    (21:11:14) MircUSER Sockbot "sock.bot" "localhost" :Sockbot

    (21:11:14) normale.controleAUTH GateKeeperPassport S :GKSSP\0¢\0\0\0\0\0\0\0)Pÿõæ¾?±

    (21:11:14) normale.controleAUTH GateKeeperPassport S ohmy.gifK

    (21:11:14) normale.controleAUTH GateKeeperPassport * C615E4A4521ECA6E@GateKeeperPassport 0

    (21:11:14) normale.controle:TK2CHATWBC02 001 Spike1506 :Welcome to the MSN Chat Service Network

    (21:11:14) normale.controle:TK2CHATWBC02 002 Spike1506 :Your host is TK2CHATWBC02 - running version 9.02.0503.2301

    (21:11:14) normale.controle:TK2CHATWBC02 003 Spike1506 :This server was created Mar 23 2005 at 22:10:30 PDT

    (21:11:14) normale.controle:TK2CHATWBC02 004 Spike1506 :TK2CHATWBC02 9.02.0503.2301 -adghmpswx

    (21:11:14) normale.controle:TK2CHATWBC02 375 Spike1506 :- TK2CHATWBC02 Message of the Day -

    (21:11:14) normale.controle:TK2CHATWBC02 372 Spike1506 :-

    (21:11:14) normale.controle:TK2CHATWBC02 372 Spike1506 :- ** Welcome to the MSN.com Chat Service Network **

    (21:11:14) normale.controle:TK2CHATWBC02 372 Spike1506 :-

    (21:11:14) normale.controle:TK2CHATWBC02 376 Spike1506 :End of /MOTD command

    (21:11:14) MircUSERHOST Spike1506

    (21:11:24) normale.controle:TK2CHATWBC02 351 Spike1506 :9.02.0503.2301

    (21:11:35) normale.controle:TK2CHATWBC02 351 Spike1506 :9.02.0503.2301

    (21:11:45) normale.controle:TK2CHATWBC02 351 Spike1506 :9.02.0503.2301

    (21:11:55) normale.controle:TK2CHATWBC02 351 Spike1506 :9.02.0503.2301

    Connection help needed

    in MSN

    Posted

    Ok it works fine now.. but now i get disconnected after a few minutes of idling..

    how to solve that?

     

    (19:05:23) * Disconnected

    -

    * /sockwrite: 'mirc' no such socket (line 116, sensiva.mrc)

    Connection help needed

    in MSN

    Posted

    Ok it's working fine but i dont understand where to put that timer in my connection..

    this is what i have now:

     

    alias debug {
 if (!$window(@Debug)) window -n @Debug
 echo -t @Debug $sockname $+ $1-
}

alias verbindmirc {
 var %port = $rand(1111,9999)
 while (!$portfree(%port)) { var %port $rand(1111,9999) }
 socklisten hermirc %port
 server localhost %port
}

;MSN OCXless Auth Generator - By eXonyte [modded by The Gate Keeper]
alias dc.auth {
 if ($prop == open) return IRCVERS IRC8 MSN-OCX!9.02.0503.2301 $crlf $iif((room* iswm $1) && (%nick),NICK %nick $crlf) AUTH $2 I $+(:GKSSP\0\0\0,$chr(3),\0\0\0,$chr(1),\0\0\0)
 if (*:GKSSP* iswm $1-) { var %x, %re = .*:GKSSP\\0.*\\0\\0.*\\0\\0(.*), %y = $regsub($1-,%re,,%x) | tokenize 32 $regml(1) }
 bset &h1 1 101 100 112 123 125 101 124 119 120 114 100 115 101 125 125 117 $str(54 $+ $chr(32),48) $mh.tobin($1-)
 bset &h2 1 15 14 26 17 23 15 22 29 18 24 14 25 15 23 23 31 $str(92 $+ $chr(32),48) $mh.hex2bin($md5(&h1,1))
 return $+(:GKSSP\0\0\0,$chr(2),\0\0\0,$chr(3),\0\0\0,$mh.unhex($md5(&h2,1)))
}
alias mh.tobin {
 var %l 1, %r, %x $len($1)
 while (%l <= %x) {
   if ($mid($1,%l,1) == \) {
     inc %l
     if ($mid($1,%l,1) == 0) %r = %r 0
     elseif ($mid($1,%l,1) == t) %r = %r 9
     elseif ($mid($1,%l,1) == n) %r = %r 10
     elseif ($mid($1,%l,1) == r) %r = %r 13
     elseif ($mid($1,%l,1) == b) %r = %r 32
     elseif ($mid($1,%l,1) == c) %r = %r 44
     elseif ($mid($1,%l,1) == \) %r = %r 92
   }
   else %r = %r $asc($mid($1,%l,1))
   inc %l
 }
 return %r
}
alias mh.hex2bin {
 var %l 1, %r, %x $len($1)
 while (%l <= %x) {
   %r = %r $base($mid($1,%l,2),16,10)
   inc %l 2
 }
 return %r
}
alias mh.unhex {
 var %l 1, %r, %x $remove($1-,$chr(32)), %y $len(%x)
 while (%l <= %y) {
   if ($mid(%x,%l,2) == 00) %r = %r $+ \0
   elseif ($mid(%x,%l,2) == 0A) %r = %r $+ \n
   elseif ($mid(%x,%l,2) == 0D) %r = %r $+ \r
   elseif ($mid(%x,%l,2) == 2C) %r = %r $+ \c
   elseif ($mid(%x,%l,2) == 09) %r = %r $+ \t
   elseif ($mid(%x,%l,2) == 5C) %r = %r $+ \\
   elseif ($mid(%x,%l,2) == 20) %r = %r $+ \b
   else %r = %r $+ $chr($base($mid(%x,%l,2),16,10))
   inc %l 2
 }
 return %r
}
alias pass sockwrite -tn $hget(sensiva,$chan) mode $me +h $$?*="Password"
alias msn {
 if (!$hget(sensiva)) hmake sensiva 10
 sockopen normale.controle 207.68.167.253 6667
}
alias normale.controle { 
 if ($sock($sockname)) sockwrite -n $sockname $crlf 
 else .timerhousocket off 
}

on *:sockopen:normale.controle:{ .timerhousocket 0 8 normale.controle | verbindmirc | sockwrite -n $sockname $dc.auth($sockname,GateKeeperPassport).open | var %port = $rand(1111,9999) | while (!$portfree(%port)) { inc %port } }

on *:sockread:normale.controle:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == AUTH) {
   if (:GKSSP* iswm $4) sockwrite -n $sockname $1-3 $dc.auth($4 $+ $sock($sockname).ip)
   elseif (:ok == $4) sockwrite -n $sockname AUTH GateKeeperPassport S : $+ $base($len(%ticket),10,16,8) $+ %ticket $+ $base($len(%profile),10,16,8) $+ %profile $+ $lf $+ PROP $ SUBSCRIBERINFO : $+ %subinfo
   else sockwrite -n $sockname NICK $iif(%nick,%nick,DC $+ $rand(000,999))
 }
 elseif ($2 == 001) sockwrite -n mirc $1-  $crlf $1 005 $dc.nick(%n,$3) IRCX CHANTYPES=# PREFIX=(qov).@+ CHANMODES=b,k,l,defhimnprsStuwWx NETWORK=MSN :Are supported by this server 
 elseif ($2 == 908) { sockwrite -n mirc $1- | echo 4 -st SubscriberInfo Failed - Please Update Subinfo & Type /msn }
 elseif ($2 == 910) { sockwrite -n mirc $1- | echo 4 -st Lookup $right($4-,-1) - Please Update Cookies & Type /msn | sockclose $sockname }
 elseif ($2 == 702) { echo $color(info) -at $hget(sensiva,chan) Not Found }
 elseif ($2 == 613) {
   echo $color(info) -at $hget(sensiva,chan) Found... Joining
   var %sockname room. $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z)
   sockopen %sockname $right($4,-1) $5
   sockmark %sockname $right($4,-1)
   hadd sensiva $hget(sensiva,chan) %sockname
 }
}
on *:sockopen:room*:{ sockwrite -n $sockname $dc.auth($sockname,GateKeeperPassport).open | var %port = $rand(1111,9999) | while (!$portfree(%port)) { inc %port } | sockmark $sockname $hget(sensiva,chan) }

on *:sockread:room*:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == PING) sockwrite -n $sockname PONG $2-
 elseif ($2 isin 002 003 251 252 253 254 255 265 266 422) return
 elseif ($2 == 004) { sockwrite -n mirc $1 005 $3 IRCX CHANTYPES=% PREFIX=(qov).@+ CHANMODES=b,k,l,defhimnprstuwWx NETWORK=MSN :are supported by this server }
 elseif ($1 == AUTH) {
   if (:GKSSP* iswm $4) sockwrite -n $sockname $1-3 $dc.auth($4 $+ $sock($sockname).ip)
   elseif (:ok == $4) {
     sockwrite -n $sockname $1-3 $+(:,$base($len(%ticket),10,16,8),%ticket,$base($len(%profile),10,16,8),%profile,$crlf,User $me * * :Sensiva $crlf)
     sockwrite -n $sockname PROP $ SUBSCRIBERINFO : $+ %subinfo
   }
 }
 elseif ($2 == 001) sockwrite -n $sockname JOIN $sock($sockname).mark
 elseif ($2 == 353) { .var %i = 5, %n | while (%i < $numtok($1-,32)) { inc %i | .var %n = %n $gettok($gettok($1-,%i,32),-1,44) } | sockwrite -n mirc $1-5 : $+ %n | return }
 elseif ($2 == 908) { echo 4 -st SubscriberInfo Failed - Please Update Subinfo & Type /join $sock($sockname).mark }
 elseif ($2 == 910) { echo 4 -st Room $right($5-,-1) - Please Update Cookies & Type /join $sock($sockname).mark | sockclose $sockname }
 elseif ($2 == JOIN) sockwrite -n mirc $1-2 $4
 elseif ($2 == PRIVMSG) { $iif($left($4,3) == :S,sockwrite -n mirc $1-3 : $+ $left($6-,-1),sockwrite -n mirc $1-) | return }
 else sockwrite -n mirc $1-
}

on *:socklisten:hermirc: { sockaccept Mirc | sockclose $sockname }
on *:sockread:Mirc:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == Join) {
   if ($sock($hget(sensiva,$2))) { sockwrite -n $ifmatch $1- }
   else { sockwrite -n normale.controle FINDS $2 | hadd sensiva chan $2 }
 }
 elseif ($sock($hget(sensiva,$2))) { sockwrite -n $ifmatch $1- }
 elseif ($sock($hget(sensiva,$comchan($2,1)))) { sockwrite -n $ifmatch $1- }
 elseif ($sock(room*,0)) { sockwrite -n room* $1- | halt }
}

on *:part:*:{
 disconnect
}
on *:disconnect:{
 sockclose normale.controle
 msn
}

     

    and thanks for the help smile.gif

    Connection help needed

    in MSN

    Posted · Edited by Spike1506

    ok it works fine now, im able to join a room but i got a other problem now.. if i part the room and i want to join a other room i get this:

     

    -

    * /sockwrite: 'normale.controle' no such socket (line 121, sensiva.mrc)

    -

     

    also it shows the users font thing..

     

    (15:52:11) (.ŦÑ?Î?Å‹Î?ŧỷ®) S Comic\bSans\bMS;0 anyone know if the Sysop_ServiceBot is released yet for download?

     

    and i want to get everything decoded (if it's possible)

     

    thanks in advance smile.gif

    Connection help needed

    in MSN

    Posted

    my connection doesnt want to join.. i always get a Auth. Failed error

    my passport is updated but it just doesnt want to join a room..

     

    i hope someone would be able to get my connection working/fixed :$

     

    and i hope that someone would help me to get everything decoded.. (like the nicklist)

     

    thanks in advance

     

    alias debug {
 if (!$window(@Debug)) window -n @Debug
 echo -t @Debug $sockname $+ $1-
}

alias verbindmirc {
 var %port = $rand(1111,9999)
 while (!$portfree(%port)) { var %port $rand(1111,9999) }
 socklisten hermirc %port
 server localhost %port
}

;MSN OCXless Auth Generator - By eXonyte [modded by The Gate Keeper]
alias dc.auth {
 if ($prop == open) return IRCVERS IRC8 MSN-OCX!9.02.0503.2301 $crlf $iif((room* iswm $1) && (%nick),NICK %nick $crlf) AUTH $2 I $+(:GKSSP\0\0\0,$chr(3),\0\0\0,$chr(1),\0\0\0)
 if (*:GKSSP* iswm $1-) { var %x, %re = .*:GKSSP\\0.*\\0\\0.*\\0\\0(.*), %y = $regsub($1-,%re,,%x) | tokenize 32 $regml(1) }
 bset &h1 1 101 100 112 123 125 101 124 119 120 114 100 115 101 125 125 117 $str(54 $+ $chr(32),48) $mh.tobin($1-)
 bset &h2 1 15 14 26 17 23 15 22 29 18 24 14 25 15 23 23 31 $str(92 $+ $chr(32),48) $mh.hex2bin($md5(&h1,1))
 return $+(:GKSSP\0\0\0,$chr(2),\0\0\0,$chr(3),\0\0\0,$mh.unhex($md5(&h2,1)))
}
alias mh.tobin {
 var %l 1, %r, %x $len($1)
 while (%l <= %x) {
   if ($mid($1,%l,1) == \) {
     inc %l
     if ($mid($1,%l,1) == 0) %r = %r 0
     elseif ($mid($1,%l,1) == t) %r = %r 9
     elseif ($mid($1,%l,1) == n) %r = %r 10
     elseif ($mid($1,%l,1) == r) %r = %r 13
     elseif ($mid($1,%l,1) == b) %r = %r 32
     elseif ($mid($1,%l,1) == c) %r = %r 44
     elseif ($mid($1,%l,1) == \) %r = %r 92
   }
   else %r = %r $asc($mid($1,%l,1))
   inc %l
 }
 return %r
}
alias mh.hex2bin {
 var %l 1, %r, %x $len($1)
 while (%l <= %x) {
   %r = %r $base($mid($1,%l,2),16,10)
   inc %l 2
 }
 return %r
}
alias mh.unhex {
 var %l 1, %r, %x $remove($1-,$chr(32)), %y $len(%x)
 while (%l <= %y) {
   if ($mid(%x,%l,2) == 00) %r = %r $+ \0
   elseif ($mid(%x,%l,2) == 0A) %r = %r $+ \n
   elseif ($mid(%x,%l,2) == 0D) %r = %r $+ \r
   elseif ($mid(%x,%l,2) == 2C) %r = %r $+ \c
   elseif ($mid(%x,%l,2) == 09) %r = %r $+ \t
   elseif ($mid(%x,%l,2) == 5C) %r = %r $+ \\
   elseif ($mid(%x,%l,2) == 20) %r = %r $+ \b
   else %r = %r $+ $chr($base($mid(%x,%l,2),16,10))
   inc %l 2
 }
 return %r
}
alias pass sockwrite -tn $hget(sensiva,$chan) mode $me +h $$?*="Password"
alias msn {
 if (!$hget(sensiva)) hmake sensiva 10
 sockopen normale.controle 207.68.167.253 6667
}
alias normale.controle {
 if ($sock($sockname)) sockwrite -n $sockname $crlf
 else .timerhousocket off
}

on *:sockopen:normale.controle:{ .timerhousocket 0 8 normale.controle | verbindmirc | sockwrite -n $sockname $dc.auth($sockname,GateKeeperPassport).open | var %port = $rand(1111,9999) | while (!$portfree(%port)) { inc %port } }
on *:sockread:normale.controle:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == AUTH) {
   if (:GKSSP* iswm $4) sockwrite -n $sockname $1-3 $dc.auth($4 $+ $sock($sockname).ip)
   elseif (:ok == $4) sockwrite -n $sockname AUTH GateKeeperPassport S : $+ $base($len(%ticket),10,16,8) $+ %ticket $+ $base($len(%profile),10,16,8) $+ %profile $+ $lf $+ PROP $ SUBSCRIBERINFO : $+ %subinfo
   else sockwrite -n $sockname NICK $iif(%nick,%nick,DC $+ $rand(000,999))
 }
 elseif ($2 == 001) sockwrite -n mirc $1-  $crlf $1 005 $dc.nick(%n,$3) IRCX CHANTYPES=# PREFIX=(qov).@+ CHANMODES=b,k,l,defhimnprsStuwWx NETWORK=MSN :Are supported by this server
 elseif ($2 == 908) { sockwrite -n mirc $1- | echo 4 -st SubscriberInfo Failed - Please Update Subinfo & Type /msn }
 elseif ($2 == 910) { sockwrite -n mirc $1- | echo 4 -st Lookup $right($4-,-1) - Please Update Cookies & Type /msn | sockclose $sockname }
 elseif ($2 == 702) { echo $color(info) -at $hget(sensiva,chan) Not Found }
 elseif ($2 == 613) {
   echo $color(info) -at $hget(sensiva,chan) Found... Joining
   var %sockname room. $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z)
   sockopen %sockname $right($4,-1) $5
   sockmark %sockname $right($4,-1)
   hadd sensiva $hget(sensiva,chan) %sockname
 }
}
on *:sockopen:room*:{ sockwrite -n $sockname $dc.auth($sockname,GateKeeperPassport).open | var %port = $rand(1111,9999) | while (!$portfree(%port)) { inc %port } | sockmark $sockname $hget(sensiva,chan) }
on *:sockread:room*:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == PING) sockwrite -n $sockname PONG $2-
 elseif ($2 isin 002 003 004 251 252 253 254 255 265 266 422) return
 elseif ($1 == AUTH) {
   if (:GKSSP* iswm $4) sockwrite -n $sockname $1-3 $dc.auth($4 $+ $sock($sockname).ip)
   elseif (:ok == $4) {
     sockwrite -n $sockname $1-3 $+(:$base($len(%ticket),10,16,8),%ticket,$base($len(%profile),10,16,8),%profile,$crlf,User $me * * :Sensiva $crlf)
     sockwrite -n $sockname PROP $ MSNPROFILE :0
     sockwrite -n $sockname PROP $ SUBSCRIBERINFO : $+ %subinfo
   }
 }
 elseif ($2 == 001) sockwrite -n $sockname JOIN $sock($sockname).mark
 elseif ($2 == 353) { .var %i = 5, %n | while (%i < $numtok($1-,32)) { inc %i | .var %n = %n $gettok($gettok($1-,%i,32),-1,44) } | sockwrite -n mirc $1-5 : $+ %n | return }
 elseif ($2 == 908) { echo 4 -st SubscriberInfo Failed - Please Update Subinfo & Type /join $sock($sockname).mark }
 elseif ($2 == 910) { echo 4 -st Room $right($5-,-1) - Please Update Cookies & Type /join $sock($sockname).mark | sockclose $sockname }
 elseif ($2 == JOIN) sockwrite -n mirc $1-2 $4
 elseif ($2 == PRIVMSG) { $iif($left($4,3) == : S,sockwrite -n mirc $1-3 : $+ $left($6-,-1),sockwrite -n mirc $1-) | return }
 else sockwrite -n mirc $1-
}

on *:socklisten:hermirc: { sockaccept Mirc | sockclose $sockname }
on *:sockread:Mirc:{
 var %buffer | sockread %buffer | tokenize 32 %buffer | debug $1-
 if ($1 == Join) {
   if ($sock($hget(sensiva,$2))) { sockwrite -n $ifmatch $1- }
   else { sockwrite -n normale.controle FINDS $2 | hadd sensiva chan $2 }
 }
 elseif ($sock($hget(sensiva,$2))) { sockwrite -n $ifmatch $1- }
 elseif ($sock($hget(sensiva,$comchan($2,1)))) { sockwrite -n $ifmatch $1- }
 elseif ($sock(room*,0)) { sockwrite -n room* $1- | halt }
}

    Connection help needed

    in MSN

    Posted · Edited by Spike1506

    Ok i have a problem (yeah i fex the typos in my script)

    i cant join with this connection

     

    alias debug {
 if (!@window(@debug)) {
   window -n @debug
 }
 echo @debug $sockname $+ $1-
}

alias pass {
 sockwrite -tn $hget(sensiva,$chan) mode $me +h $$?="Key?"
}

alias connect {
 if (!$hget(sensiva)) {
   hmake Sensiva 100
 }
 sockopen normal.lookup 207.68.167.253 6667
}

on 1:sockopen:normal.lookup:{
 .timerkeeplookup 0 10 if ($sock( $+ $sockname $+ )) sockwrite -n $sockname Version
 set %port $rand(1111,9999)
 while (!$portfree(%port)) {
   set %port $rand(1111,9999)
 }
 window -hpk0 @Lookup
 set %s $dll($shortfn($mircdir/connection/nHTMLn_2.92.dll),attach,$window(@Lookup).hwnd)
 set %s $dll($shortfn($mircdir/connection/nHTMLn_2.92.dll),navigate,about:<OBJECT ID="ChatFrame" CLASSID="CLSID:ECCDBA05-B58F-4509-AE26-CF47B2FFC3FE"><PARAM NAME="NickName" VALUE="JD"><PARAM NAME="Server" VALUE="207.68.167.253: $+ %port $+ "></OBJECT>)
 socklisten normallookup %port
}

on 1:normallookup:{
 sockaccept ocxlookup
 sockclose $sockname
}

on 1:sockread:ocxlookup:{
 set %buffer
 sockread %buffer
 tokenize 32 %buffer
 debug $1- 
 set %buffer = $replace(%buffer,gatekeeper,GateKeeperPassport)
 if ($1 == IRCVERS) {
   sockwrite -n normal.lookup IRCVERS IRC8 MSN-ADMIN!9.02.0309.2602
 }
 if ($1 == AUTH) {
   sockwrite -n normal.lookup %buffer
 }
 if ($1 == NICK) {
   sockclose $sockname
   close -@ @Lookup
 }
}

on 1:sockread:normal.lookup:{
 set %buffer
 sockread %buffer
 tokenize 32 %buffer
 debug $1-
 if ($1 == AUTH) {
   if ($3 $5 == * 0) {
     connecting
     set %gate $4
     echo -at You are now logged in Anonymously with the GateKeeperPassport: %gate
   }
   if ($4 != :ok) {
     sockwrite -n ocxlookup $1-
   }
   else {
     sockwrite -n $sockname AUTH GateKeeperPassport S : $+ $base($len(%ticket,10,16,8) $+ %ticket $+ $base($len(%profile),10,16,8) $+ profile $+ $lf $+ PROP $ SUBSCRIBERINFO : $+ %subinfo
   }
 }
 elseif ($2 == 908) {
   echo -st Subscriberinfo is out of date, please update your passport!
 }
 elseif ($2 == 910) {
   sockclose ocxlookup
   sockclose $sockname
   close -@ @Lookup
   echo -st Cookies are out of date, please update your passport!
 }
 elseif ($2 == 702) {
   echo $color(info) -at $hget(sensiva,chan) doesnt exist!
 }
 elseif ($2 == 613) {
   echo $color(info) -at $hget(sensiva,chan) Now joining..!
   set %sockname chan. $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z)
   sockopen %sockname $right($4,-1) $5
   sockmark %sockname $right($4,-1)
   hadd sensiva $hget(sensiva,chan) %sockname
 }
}

on 1:sockopen:chan*:{
 sockwrite -n $sockname NICK $me
 set %port $rand(1111,9999)
 while (!$portfree(%port)) {
   set %port $rand(1111,9999)
 }
 window -hpk0 @ $+ $sockname
 set %s $dll($shortfn($mircdir/connection/nHTMLn_2.92.dll),attach,$window(@ $+ $sockname).hwnd)
 set %s $dll($shortfn($mircdir/connection/nHTMLn_2.92.dll),navigate,about:<OBJECT ID="ChatFrame" CLASSID="CLSID:ECCDBA05-B58F-4509-AE26-CF47B2FFC3FE"><PARAM NAME="NickName" VALUE="JD"><PARAM NAME="Server" VALUE=" $+ $sock($sockname).mark $+ : $+ %port $+ "></OBJECT>)
 socklisten chanocx. $+ $right($sockname,4) %port
 sockmark $sockname $hget(sensiva,chan)
}

on 1:socklisten:chanocx.*:{
 sockaccept ocx. $+ $right($sockname,4)
 sockclose $sockname
}

on 1:sockread:ocx.*:{
 set %buffer
 sockread %buffer
 tokenize 32 %buffer
 debug $1-
 set %sockvar $right($sockname,4)
 set %buffer $replace(%buffer,gatekeeper,GateKeeperPassport)
 if ($1 == IRCVERS {
   sockwrite -n chan. $+ $right($sockname,4) IRCVERS IRC8 MSN-Admin!9.02.0309.2602
 }
 if ($1 == AUTH) {
   sockwrite -n chan. $+ $right($sockname,4) %buffer
 }
 if ($1 == NICK {
   sockclose $sockname 
   close -@ @chan. $+ %sockvar
 }
}

on 1:sockread:chan*:
set %buffer
sockread %buffer
tokenize 32 %buffer
debug $1-
if ($1 == AUTH) {
 if ($4 != :ok) {
   sockwrite -n ocx. $+ $right($sockname,4) $1-
   return
 }
 elseif ($4 == :ok {
   sockwrite -n $sockname AUTH GateKeeperPassport S : $+ $base9$len(%ticket),10,16,8) $+ %ticket $+ $base($len(%profile),10,16,8) $+ %profile $+ $lf $+ USER $me $me $me : 7Sensiva V1.0 $+ $lf $+ PROP $ SUBSCRIBERINFO : $+ %subinfo $+ $lf $+ join $sock($sockname).mark 12345
   return
 }
}
elseif ($2 == 535) {
 .var %i = 5, %n
 while (%i < $numtok($1-,32)) {
   inc %i
   .var %n = %n $gettok($gettok($1-,%i,32),-1,44) 
 }
 sockwrite -n mirc $1-5 : $+ %n
 return
}
elseif ($2 == 908) {
 echo -st Subscriber info is out of date, please update your passport!
}
elseif ($2 isin 001 002 003 004 251 252 253 254 255 265 266 422) {
 return
}
if ($2 == 910) {
 sockclose ocx. $+ $right($sockname,4) 
 close -@ @ $+ $sockname
 echo -st Subscriber info is out of date, please update your passport!
 sockclose $sockname  
}
elseif ($2 == join) {
 hadd sensiva $right($4,-1) $sockname
 sockwrite -n mirc $1-2 $4
 if ($gettok($3,4,44)) {
   sockwrite -n mirc :ChanServ MODE $remove($4,:) + $+ $replace($gettok($3,4,44),.,q,@,o,+,v) $remove($gettok($1,1,33),:)
 }
 elseif ($2 == PRIVMSG) { $iif($left($4,3 == : S,sockwrite -n mirc $1-3 : $+ $left($6-,-1),sockwrite -n mirc $1-)
   return
 }
 else sockwrite -n mirc $1-
}

alias connecting {
 set %port $rand(1111,9999)
 while (!$portfree(%port)) {
   set %port $rand(1111,9999)
 }
 socklisten pm %port
 server localhost %port
}

on 1:socklisten:pm:{
 sockaccept Mirc
 sockclose $sockname
 sockwrite -n mirc :Sensiva 001 $me : $+ Welcome to Sensiva V1.0 , $me
}

on 1:sockread:Mirc:{
 set %buffer
 sockread %buffer
 tokenize 32 %buffer
 debug $1-
 if ($1 == Join) {
   if ($sock($hget(sensiva,$2))) {
     sockwrite -n $ifmatch $10
   }
   else {
     sockwrite -n normal.lookup FINDS $2
     hadd sensiva chan $2
   }
 }
 elseif ($sock($hget(sensiva,$comchan($2,1)))) {
   sockwrite -n $ifmatch $1-
 }
 elseif ($sock(chan*,0)) {
   sockwrite -n chan* $1-
   halt
 }
}

     

    because i get this:

    * /sockwrite: 'normal.lookup' no such socket (line 203, sensiva.mrc)

     

    (type /connecting to connect first)

    GuarDDog v. 5

    in GuarDDog Script

    Posted

    GateKeeper Hope to see how good GD5 is when its released and plzzz plzzz dont forget the flood protection as I know you said GD5 will be better with the flood protections as you know I liked GD4 but didnt stick well on a PP Flood..

     

    Best of luck and dont add the olldd git Ozzy to THANKS till he updates the Kenobi... lol_sign.gif

    Passportflood protection of GD5 is so COOL it rocks everyone <33

×
×
  • Create New...