Take A Look At This

[JOhnson]

I was looking through some old codes I found on an old pen drive and I found this code ... it said it was a "Script Kicker" so I put it into my script which I use in SPCN which has a vincula connection. To my amazement it didnt work as a script kicker but it made a fantastic "Profile Reader" .... I tried it with a few other connection that are out there but it will only work with vincula

 

My Question has anyone seen this code before and do they know who scripted it ? The only clue in this code was this .... ($9-,irc.soulscreen.net,id 4.0 by Rylan)

 

on *:JOIN:*: {
  if ($nick == $me) halt
  if (>* iswm $nick) halt
  set -u6 %inpuid $+ [ $nick ] $true
  prop $nick PUID
  who $nick
}

raw 352:*: { 
  if ($9- != $null) {
    echo -at 4 $6 ist ein Script: $replace($9-,irc.soulscreen.net,id 4.0 by Rylan)
  }
  halt
}

raw 315:*: { 
  halt
}

raw 818:*:{ 
  if (%inpuid $+ $2) { 
    unset %inpuid $+ $2
    if ($4- == $null) {
      echo -at 4 Stufe 1 für $2 nicht möglich!
      ctcp $2 version
      ctcp $2 finger
      ctcp $2 isitvincula
      ctcpreply $2 ”DTäE
      ctcpreply $2 ID
      halt
    }
    writeini PUID.ini PUID $2 $4
    profile $2
    halt
  }
}

raw 819:*:{ 
  halt
}

alias profile { sockopen $+(profile.,$1) chat.msn.com 80 }

alias profileinfo {
  if ($prop == puid) { return $gettok($right($gettok($1,3,47),-10),1,38) }
  if ($prop == userget) { return $gettok($1,3,47) }
}

on *:SOCKOPEN:profile.*:{ sockwrite $sockname GET /profile.msnw?epuid= $+ $readini(PUID.ini,PUID,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: de-de $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) $+ $crlf $+ Host: chat.msn.com $+ $crlf $+ Connection: close $+ $crlf $+ $crlf }
on *:SOCKOPEN:profile2.*:{ sockwrite $sockname GET / $+ $readini(PUID.ini,UserGet,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: de-de $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) $+ $crlf $+ Host: members.msn.com $+ $crlf $+ Connection: close $+ $crlf $+ $crlf }
on *:SOCKREAD:profile.*:{
  if ($sockerr > 0) return
  var %t | sockread %t
  while ($sockbr > 0) {
    tokenize 32 %t
    if ($1 == LOCATION:) {
      writeini PUID.ini Redirect $gettok($sockname,2,46) $1- 
      writeini PUID.ini UserGet $gettok($sockname,2,46) $profileinfo($readini(PUID.ini,Redirect,$gettok($sockname,2,46))).userget
      remini PUID.ini Redirect $gettok($sockname,2,46) 
      sockopen profile2. $+ $gettok($sockname,2,46) members.msn.com 80
      return
    }
    sockread %t
  }
}
on *:SOCKREAD:profile2.*:{
  if ($sockerr > 0) return
  var %x | sockread %x
  while ($sockbr > 0) {
    if (*class=viewName>* iswm %x) {
      %pro = $replace(%x,                <font class=viewName>,, </font>,)
      %nick = $gettok($sockname,2,46)
      if (%nick !isin %pro) echo -at 4 %nick ist ein Script (Nickname laut Profil: %pro )
      if (%nick isin %pro) {
        echo -at 3 Stufe 1 für %nick erfolgreich!
        ctcp %nick version
        ctcp %nick finger
        ctcp %nick isitvincula
        ctcpreply %nick ”DTäE
        ctcpreply %nick ID
      }
      return
    }
    if (*unknownmember.msnw* iswm %x) {
      echo -at 4 %nick ist ein Script
      return
    }
    .sockread %x
  }
  write -c PUID.ini
  return
}

on *:CTCPREPLY:*: {
  if ($1 == TIME) || ($1 == PING) { halt }
  echo -at 4 $nick ist ein Script
}

menu nicklist {
  Script Check:{
    set -u6 %inpuid $+ [ $1 ] $true
    prop $1 PUID
    who $1
  }
}

[Guest X-Fusion]

Yeah, it's an old MSN profile reader that Rylan made for ID4.0. It works on Sparkpea because they still have their profile systems set up the way MSN had theirs set up.

[JOhnson]

Yeah, it's an old MSN profile reader that Rylan made for ID4.0. It works on Sparkpea because they still have their profile systems set up the way MSN had theirs set up.

 

 

Cheers X mate thanks for the information and the quick reply ... was wondering if that code could be made for any connection as like I said it only works with a vincula connect ?

[Guest Travis]

I don't see anything tha is Vincula specific. It look's as if it could be used with any connection that connected to a msn style chat server and handled all events correctly.

 

Edit: Well the connection only needs to be able to handle THOSE events correctly.

Edited January 11, 2009 by Travis

[JOhnson]

I don't see anything tha is Vincula specific. It look's as if it could be used with any connection that connected to a msn style chat server and handled all events correctly.

 

Iv got you now ... I understand what you and X-Fusion are saying now thanks to both of you.

[Guest X-Fusion]

It's not connection specific, however, it wasn't made for Vincula. ID was a connection that Rylan made to connect to MSN chat. Again, not connection specific, just more information.

[Kronicdreamer]

Wow, Rylan thats a name i havent heard of in a few years...

[JOhnson]

ok you fellas iv took in all you have told me ... and im still at logger heads with this code I found ... iv been sat at my computer all day and iv tried this code in as many scripts as I could for spcn and all different connections and the only way this (script kicker) come "profile reader" will work is with a vincula connection and the one I used is vincula 5.1.8 ... so unless someone from spcn test it for me im not going to know ... As always thank you for your help and replies

[Guest Travis]

The socket conn probably doesn't handle the events correctly.

[JOhnson]

The socket conn probably doesn't handle the events correctly.

 

cheers Travis as always