ok guys be for ya start to flame me for doubble posting
yes i know ihave posted about this in my IRC8 vers post in the clearmsn section but i though id start a whole new post unser the msn section for this seeing as its a new topic form my origional post..
heres the chalenge Im faced with...
im atempting to modify vincula's coding to make it auther as a subscriber ( prop the user role and subscriber info e.t.c) when the main and group look up servers are established , to allow me to sue the origional create room code insted of the mini browser one thats being used at the moment
dont get me wrong the min browser one is nicelly done and really apreciated you guy's releacing it , but id really like to get vincula back to the way it was when it was initially releaced be for it was abandond after msn changed to subscriber mode lol
ne way i think iv found the part of the coding ( 3 parts in all ) that need to be changed , added to / re done compleetly ill post them be low
as you may notice iv modified vincula to use IRC8 vers insted of IRC7 Vers
Section 1
on *:SOCKREAD:msn.look.*: {
if ($sockerr > 0) { msn.sockerr $sockname read | return }
var %read
sockread %read
while ($sockbr > 0) {
tokenize 32 %read
if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
if (AUTH GateKeeper* iswm $1-) {
if ($sock(msn.client.lm $+ $right($sockname,4)).status == active) sockwrite -tn msn.client.lm $+ $right($sockname,4) %read
if (AUTH GateKeeper *@GateKeeper* iswm $1-) {
sockwrite -tn $sockname NICK $rand(111,999)
if ($sockname == msn.look.main) {
.timermsn.look.main 0 20 sockwrite -tn msn.look.main VERSION
if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * Main Lookup server connection established
if (!$sock(msn.look.comm)) msn.lookcon -x
}
else {
.timermsn.look.comm 0 20 sockwrite -tn msn.look.comm VERSION
if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * Groups Lookup server connection established
if (!$sock(msn.look.main)) msn.lookcon -x
}
}
}
Section 2 - First Part Of The IRC8 Coding
on *:SOCKREAD:msn.client.lm*: {
if ($sockerr > 0) { msn.sockerr $sockname read | return }
var %read, %x $right($sockname,4)
sockread %read
while ($sockbr > 0) {
tokenize 32 %read
if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
if (AUTH == $1) {
sockwrite -tn msn.look. $+ %x %read
if (AUTH GateKeeper S :GKSSP* iswm $1-) {
sockclose msn.client.* $+ %x
window -c @Vincula $+ %x
.remove $+(",$scriptdir,vincula,$left(%x,1),.html")
return
}
}
elseif (IRCVERS == $1) sockwrite -n msn.look. $+ %x IRCVERS IRC8 MSN-OCX!9.02.0402.1601
sockread %read
}
}
Section 3 - sencond part of the IRC8 Ver coding
on *:SOCKREAD:msn.client.rm: {
var %nick = $gettok($gettok($1,1,33),1,58)
if ($sockerr > 0) { msn.sockerr $sockname read | return }
var %nick = $gettok($gettok($1,1,33),1,58)
var %read
sockread %read
while ($sockbr > 0) {
tokenize 32 %read
if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
if (AUTH == $1) {
if (AUTH GateKeeper* S :GKSSP* iswm $1-) {
if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
sockclose $sockname
var %s $msn.ndll(select,$window(@VinculaHTML).hwnd)
%s = $msn.ndll(navigate,about:blank)
return
}
else {
if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
}
}
elseif (IRCVERS == $1) {
if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick)
sockwrite -tn msn.server.999 IRCVERS IRC8 MSN-OCX!9.02.0402.1601
}
sockread %read
}
}
the authering code used by vincula when a room connection is established (sepporate from that of lookup server's)
elseif (AUTH == $1) {
if (AUTH GateKeeper*S :OK iswm $1-) {
if ($msn.ini(usepass)) var %pass $msn.roompass($msn.get($sockname,room))
if ((%msnpp.cookie) && (!$msn.get($sockname,nick))) sockwrite -tn $sockname AUTH GateKeeperPassport S : $+ $msn.authkey $lf PROP $ MSNREGCOOKIE : $+ %msnpp.cookie $lf PROP $ MSNPROFILE : $+ %msnpp.showprof $+ PROP $ ROLE %msnpp.UserRole $lf PROP $ SUBSCRIBERINFO %msnpp.SubscriberInfo $lf JOIN $msn.get($sockname,fullroom) %pass
else sockwrite -tn $sockname AUTH GateKeeperPassport S : $+ $msn.authkey $lf USER * * " $+ $ip $+ " : $lf PROP $ ROLE %msnpp.UserRole $lf PROP $ SUBSCRIBERINFO %msnpp.SubscriberInfo $lf PROP $ MSNPROFILE : $+ %msnpp.showprof $lf JOIN $msn.get($sockname,fullroom) %pass
}
elseif (AUTH GateKeeper*@GateKeeper* 0 iswm $1-) {
if (AUTH GateKeeper*@GateKeeper 0 iswm $1-) {
if ($msn.ini(usepass)) var %pass $msn.roompass($msn.get($sockname,room))
if (($msn.get($sockname,nick)) && (!$msn.get($sockname,guest)) && (%msnpp.cookie)) sockwrite -tn $sockname NICK $msn.get($sockname,nick) $lf JOIN $msn.get($sockname,fullroom) %pass
elseif ($msn.get($sockname,guest)) sockwrite -tn $sockname NICK > $+ $msn.get($sockname,nick) $lf JOIN $msn.get($sockname,fullroom) %pass
}
%msnt.gate = $4
}
else sockwrite -tn msn.client.rm $1-
}
The alias for $msn.authkey is alias msn.authkey return $base($len(%msnpp.ticket),10,16,8) $+ %msnpp.ticket $+ $base($len(%msnpp.profile),10,16,8) $+ %msnpp.profile
now iv been at this most of the day been close a few times acctually had it try and auth but kept on returning that the auth faild lol
so any help by you guy's would be really apreciated..
regds
lee