MIRC (misc examples)

 #

   Author:    sm0kie_
   Release:    unknown
   File:        phone.mrc
           `
   Usage:    /phone <0001234567>
   Example:    /phone 7173008000

     Install:    in mIRC Hold alt+r, and paste the code below # in there.
     Description:  Receives someones info from the PhoneBook.

 #

 #Socket
 on 1:SOCKOPEN:phone:{
   wsock x001 $decode(R0VUIC9zZWFyY2g/aGw9ZW4mbHI9JnBiPWYmcT0=,m) $+ %number $+ &pb=f&btnG= $+   $decode(U2VhcmNoK1Bob25lQm9vayBIVFRQLzEuMQ==,m)
   wsock x110 $decode(SG9zdDogd3d3Lmdvb2dsZS5jb20=,m)
   wsock x918 $decode(VXNlci1BZ2VudDogTW96aWxsYS81LjAgKFdpbmRvd3M7IFU7IFdpbmRvd3MgTlQgNS4xOyBlbi1VUzsgcnY6MS43LjgpIEdlY2tvLzIwMDUwNTExIEZpcmVmb3gvMS4wLjQ=,m)
   wsock F0C3 $decode(S2VlcC1BbGl2ZTogMzAw,m)
   wsock 19300101 $decode(Q29ubmVjdGlvbjoga2VlcC1hbGl2ZQ==,m)
   wsock byte6 $decode(UmVmZXJlcjogaHR0cDovL3d3dy5nb29nbGUuY29tLw==,m)
   var %1010010101001010101 x0010x89_hexeditor $decode(VEhJUyBJUyBPRkZJQ0lBTExZIE1BREUgQlkgU01PS0lF,m)
   wsock byte4x1 $crlf
 }
 on 1:SOCKREAD:phone:{
   .sockread %driver.read
   if (%driver.read == $null)  { halt }
   if (make isin %driver.read) && (sure isin %driver.read)  { .echo -a * No match found | halt | sockclose phone }
   if ($left(%number,3) isin %driver.read) && ($right(%number,4) isin %driver.read) && (%driver.read != $null) { .parsex $remove($nohtml(%driver.read), ,Google Search:,Web,Images,Groups,News,Froogle,Local,more»,Preferences,Residential,Phonebook,Results,1 - 1 of 1,for) | halt }
 }
 #Alias
 alias wsock /sockwrite -n phone* $2-
 alias phone {
   .set %number $1-
   .sockclose phone*
   .sockopen phone www.google.com 80
 }
 #HTML Removing
 alias -l nohtml {
   var %a,%b
   %b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
   return %a
 } 
 #Parse
 alias parsex {
   if ($1- == $null)  { halt }
   if ($len($1-) < 14)  { halt }
   else { echo -a $mid($remove($1-, $+ %number $+ ,GoogleMaps,-,Yahoo!Maps,-),3) }
 }
 #eof