Jump to content

Twister

Members
 View Profile  See their activity

  • Posts

    17

  • Joined

  • Last visited

 Content Type 

Posts posted by Twister

    Sockbot using m_sMSNChat.dll

    in MSN Addons

    Posted

    its not joining... it says the the socket is active in socklist but it doesnt join and plus it dont say anything i the echo... it just say sock.%#!!test.a 207.68.167.157:6667 tcp active (on: 192.168.2.3 1215)

    alias sw return sockwrite -n
alias sock {
  sockopen $+(sock.,#) 207.68.167.157 6667
}
on *:sockopen:sock.*:$sw $sockname $+(NICK %bot_nick,$lf,$dll(m_sMSNChat.dll,passport_init,0))
on *:sockread:sock.*:{
  var %c | sockread %c | tokenize 32 %c
  echo @bot $sockname $+ : %c
  if ($1 $3 = AUTH S) {
    if ($4 != :OK) $sw $sockname $+($dll(m_sMSNChat.dll,second,0),$dll(m_sMSNChat.dll,encode,$4),$lf,$1-3 :,$+(000000,$base($len(%bot_ticket),10,16),%bot_ticket,000000,$base($len(%bot_profile),10,16),%bot_profile),$lf,PROP $ SUBSCRIBERINFO :,%bot_subinfo,$lf,USER * "*" "127.0.0.1" : $+ $tag $lf join $sock($sockname).mark) | halt )
    hadd -m bot ial $4
    return
  }
  if ($1 = ping) $sw $sockname PONG $2
}

     

     

    And this is sid's tutorial that i followed....

    ;;;; example passport connection using m_sMSNChat.dll
;;;; must have %ticket, %profile and %subinfo set
;;;; sid

alias passport {
  sockopen $+(sMSNChat_passport.,$rnd) 207.68.167.157 6667
}

on *:sockopen:sMSNChat_passport.*:{
  if (!$sockerr) {
    sockwrite -n $sockname NICK mr_beefy

   ; we send the initializing passport gkssp

    sockwrite -n $sockname $dll(m_sMSNChat.dll,passport_init,0)
  }
}

on *:sockread:sMSNChat_passport.*:{
  var %r
  sockread %r
  tokenize 32 %r
  echo -s $sockname : %r
  if ($1 == AUTH) {
    if ($2 == GateKeeperPassport) {
     ; here we encode the auth string sent to us as $4 and send it back
     ; no guest gate is required so we do not need to send the encoded gate string

      sockwrite -n $sockname $dll(m_sMSNChat.dll,second,0) $+ $dll(m_sMSNChat.dll,encode,$4)

     ; here we send the ticket and profile in the appropriate hex (or as game likes to call it: hex.decimal - clown) form to auth our passport

      sockwrite -n $sockname AUTH 1 S $base($len(%ticket),10,16,8) $+ %ticket $+ $base($len(%profile),10,16,8) $+ %profile

     ; here we send the SUBINFO to allow us to subscribe

      if (%subinfo) sockwrite -n $sockname PROP $ SUBSCRIBERINFO %subinfo

     ; here we send USER to allow us to connect successfully

      sockwrite -n $sockname USER 0 0 0 :mr_beefy

     ; below here add joining code

     ; sockwrite -n $sockname JOIN $(%,0) $+ #Programmers iwishthiswastehkey
    }
  }
}

    Msn Connections Ocxless

    in MSN

    Posted · Edited by Twister

    yea i am trying to make a ocxless connection for the first time cause im tired of downloading scripts. most of them are good but they are not fast as i want them to be. i would like for someone to show me how to make one or give me some help on this. i have the ocxless auth and i have 1 socket ready sorta

     

    alias con {
  if ($sock(twisted*,0)) { sockclose twisted*
    server 127.0.0.1
    sockopen twistedfinds 207.68.167.253 6667
  }
}
on *:sockread:twisted*:{
alias mh.calc {
  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 auth_init return $+(IRCVERS IRC8 MSN-OCX!9.02.0310.2401,$crlf,AUTH GateKeeperPassport I $+(GKSSP\0,$chr(18),$chr(2),$chr(3),\0\0\0,$chr(1),\0\0\0))
alias auth_key return $+($base($len($$1),10,16,8),$$1,$base($len($$2),10,16,8),$$2)

    now im stuck... i can code prots and stuff like i that i just need it to connect and update passports...

  15. Custom Whisper

    in General IRCd

    Posted

    Umm thanks but for some reason it dont work.... ill show my code...............

     

    ----------------------------------------------
-  DONT RIP OR EVEN COPY SNIPPLETS OF THIS   -
-  SCRIPT... I TOOK MY TIME AND EFFORT INTO  -
-  MAKING THIS SCRIPT AND I DONT WANT PEOPLE -
-    TO TAKE IT AS IF THEY MADE THE WHOLE    -
-          SCRIPT!!!!!!                      -
----------------------------------------------
----------------------------------------------
-    MADE BY Twister & Warrior124       -
-                 DONT RIP                        -
----------------------------------------------
dialog whisper {
 title "Whisper "
 size -1 -1 203 81
 option dbu
 list 1, 0 14 189 50, size extsel vsbar
 edit "", 2, 0 1 188 11, read
 edit "", 3, 0 66 189 13
}
on *:TEXT:*:?:{ 
 set %whispersay $1-
 set %whispernick $nick
 closemsg %whispernick
 $iif(!$dialog(whisper. $+ %whispernick,dialog -m whisper. $+ %whispernick whisper. $+ %whispernick)
 did -a whisper. $+ %whispernick 1 %whispersay
}
on *:dialog:whisper:sclick:2:{
 msg $replace($dname,whisper.,) $did(3).text
 did -az $dname 1 $did(3).text
 did -r $dname 3
}

×
×
  • Create New...