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
}
}
