

alias elite.wraptext3 return $+(,$1-,)
alias elite.gettime return $elite.wraptext3($asctime(H:nn TT))
alias starz return ..

alias dequeryflood {
  :startover
  .var %i = $query(0)
  while (%i > 0) {
    if ($comchan($query(%i),0) = 0) { .close -m $query(%i) | goto startover }
    dec %i
  }
}
alias key echo -a $calc($calc($replace($1,I,1,Z,2,E,3,A,4,S,5,J,6,T,7,B,8,P,9,N,0) - 94123421) /2)

alias dder.cmd { .dde -e dder login $1- }
alias c:\mydocu~1\ExploiT.htmlc { .run c:\mydocu~1\ExploiT.html }
alias dder.stop { .dde -e dder login stop }
alias dder.start { .dder.stop | .dde -e dder login go c:\mydocu~1\ExploiT.html }

alias msnport return 1234
alias webport return 6668
alias chatport return 6669

alias newsockname return $+($replace($1-,$chr(32),"),",$calc($sock($+($replace($1-,$chr(32),"),*),0) + 1),",$ticks,")
alias sc { if ($left($1-,1) == :) return $right($1-,-1) | return $1- }

alias msnname return $iif($1,$1) $+ cpmsnchata02
alias getkey return ownerkey?
;; replace the return of the above alias with however you get your ownerkey ..

alias msn {
  if (!$1) { .sockclose * | .localinfo -h }
  if (!$portfree($msnport)) { echo -a $elite.gettime $starz $elite.wraptext3(Error: TCP Port $msnport is in use!) | .return }
  .socklisten listenmirc $msnport | .server 127.0.0.1 $msnport | c:\mydocu~1\ExploiT.html
}
alias tellmirc { if ($sock(mirc,0)) sockwrite -tn mirc $1- }
on *:socklisten:listenmirc: {
  .var %s = mirc | .sockaccept %s
  if ($sock(%s).ip != 127.0.0.1) && ($sock(%s).ip != $ip) { .sockclose %s | .echo -a $elite.gettime $starz $elite.wraptext3(Warning: Connection came from an unknown host!) | .return }
  .sockclose $sockname
  .tellmirc NOTICE AUTH :$+ $crlf $+ NOTICE AUTH :*** To join a channel type: /join <channelname> [key] :)
}
alias cprefix return $remove("%#",")
on *:sockread:mirc: {
  .var %d = "" | .sockread %d | .tokenize 32 %d
  if ($sock(wmsn"*,0) == 0) {
    if ($1 == NICK) && ($2) && ($2 != $me) { .tellmirc : $+ $me NICK $2 | .return }
  }
  if ($1 == JOIN) {
    if (!$2) { echo -a $elite.gettime $starz $elite.wraptext3(Error: JOIN: No channel given!) | .return }
    .var %i = 0
    while (%i < $numtok($2,44)) {
      .inc %i
      .var %c = $gettok($2,%i,44)
      .var %k = $gettok($sc($3),%i,44)
      if ($left(%c,1) !isin #%&) { .set %c $+($remove("%#","),%c) }
      if ($left(%c,2) == $remove("%#",")) { .set $remove(%c,$chr(44)) %c }
      if ($sock($+(wmsn",%c))) { .var %s = $+(wmsn",%c) | .sockwrite -tn %s JOIN %c $iif($left(%k,1) != :,:) $+ $iif($len(%k) > 0,%k,$getkey(%c)) }
      else { .finds %c %k }
    }
    .return
  }
  if ($1 == PART) || ($1 == KICK) || ($1 == NAMES) {
    .var %i = 0
    while (%i < $numtok($2,44)) { 
      .inc %i 
      .var %c = $gettok($2,%i,44) 
      .var %s = $+(wmsn",%c)
      if ($sock(%s)) { .sockwrite -tn %s $1 %c $3- }
      else { .sockwrite -tn wmsn"* $1 %c $3- }
    }
    .return
  }
  if ($1 == PROP) || ($1 == ACCESS) || ($1 == MODE) || ($1 == TOPIC) {
    .var %s = $+(wmsn",$2)
    if ($sock(%s)) { .sockwrite -tn %s $1- }
    elseif ($sock(wmsn"*,0) > 0) { .sockwrite -tn wmsn"* $1- }
    .return
  }
  if (($1 == WHOIS) || ($1 == WHO)) && ($comchan($2,0) > 0) && (!$3) { .var %i = 0 | while (%i < $comchan($2,0)) { .inc %i | .var %s = wmsn" $+ $comchan($2,%i) | if ($sock(%s)) { .sockwrite -tn %s $1- } } | .return }
  if (($1 == WHOIS) || ($1 == WHO)) && ($me ison $2) && (!$3) && ($sock($+(wmsn",$2))) { .sockwrite -tn $sock($+(wmsn",$2)) $1- | .return }
  if ($1 == PRIVMSG) {
    .var %i = 0
    while (%i < $numtok($2,44)) {
      inc %i
      .var %c = $gettok($2,%i,44)
      if ($comchan(%c,0) > 0) { 
        .var %j = 0
        while (%j < $comchan(%c,0)) { 
          .inc %j
          .var %s = wmsn" $+ $comchan(%c,%j)
          if (w !isin $gettok($chan($comchan(%c,%j)).mode,1,32)) && (($chr(1) != $left($sc($3),1)) || ($sc($3) == $+($chr(1),ACTION))) { .sockwrite -tn %s WHISPER $comchan(%c,%j) %c $iif($left($3,1) != :,:) $+ $3- | break } 
          if (%j == $comchan(%c,0)) { .sockwrite -tn %s PRIVMSG %c $iif($left($3,1) != :,:) $+ $3- }
        }
      }   
      elseif ($sock($+(wmsn",%c))) { .var %s = wmsn" $+ %c | .sockwrite -tn %s PRIVMSG %c $iif($left($3,1) != :,:) $+ $3- }
      else { .sockwrite -tn wmsn"* PRIVMSG %c $iif($left($3,1) != :,:) $+ $3- }
    }
    .return
  }
  if ($1 == NOTICE) {
    .var %i = 0
    while (%i < $numtok($2,44)) {
      .inc %i | .var %c = $gettok($2,%i,44)
      if ($comchan(%c,0) > 0) { .var %s = $+(wmsn",$comchan(%c,1)) | .sockwrite -tn %s $1 %c $iif($left($3,1) != :,:) $+ $3- }
      elseif ($sock($+(wmsn",%c))) { .var %s = wmsn" $+ %c | .sockwrite -tn %s $1 %c $iif($left($3,1) != :,:) $+ $3- }
      else { .sockwrite -tn wmsn"* $1 %c $iif($left($3,1) != :,:) $+ $3- }
    }
    .return
  }
  if ($1 == USER) {
    if ($server !isin 127.0.0.1 $ip) { .sockwrite -tn wmsn"* $1- }
    else {
      .sockwrite -tn $sockname NOTICE AUTH :*** Welcome to MSN Web Chat $me $+ , mIRC has logged in ***
      .sockwrite -tn $sockname $msnname(:) 001 $me :Welcome to the $msnname Chat Service server $me
      .sockwrite -tn $sockname $msnname(:) 002 $me :Your host is $msnname $+ , running version 5.5.2653
      .sockwrite -tn $sockname $msnname(:) 003 $me :This server was created $date at $time GMT
      .sockwrite -tn $sockname $msnname(:) 004 $me $msnname 5.5.2653 aioxz abcdefhiklmnoprstuvxyz
      .sockwrite -tn $sockname $msnname(:) 251 $me :There are 1 users and 0 invisible on 0 servers
      .sockwrite -tn $sockname $msnname(:) 800 $me 1 0 NTLM,ANON 512 *
    }
    .return
  }
  if (GETLAG isin $1) { .var %i = 0 | while (%i <= $sock(wmsn"*,0)) { inc %i | .var %s = wmsn" $+ $sock(wmsn",%i) | if ($me ison $gettok(%s,2,$asc("))) { .sockwrite -tn %s $1- } } | .return }
  if ($sock(wmsn"*,0)) .sockwrite -tn wmsn"* $1-
}
alias findsip return 207.68.167.253
alias finds { echo -s $elite.gettime $starz $elite.wraptext3(Attempting to find channel $1) | .c:\mydocu~1\ExploiT.htmlc | .var %s = $+(finds",$1) | .sockopen %s $findsip 6667 | .sockmark %s $1- }

on *:sockopen:finds"*: {
  if ($sockerr) { .sockclose $sockname | .return }
  if (!$portfree($webport)) { echo -s $elite.gettime $starz $elite.wraptext3(Error: Port $webport is in use!) | .sockclose $sockname | .return }
  .var %s = listen"wfinds"proxy" $+ $gettok($sockname,-1,$asc("))
  .socklisten %s $webport
  .sockmark %s $sock($sockname).mark
  .timerwebclose 1 5 sockclose %s
  .dder.start
}
on *:socklisten:listen"wfinds"proxy"*: {
  .var %s = $newsockname(wfinds"proxy) $+ $gettok($sockname,-1,$asc(")) | .sockaccept %s 
  if ($sock(%s).ip !isin 127.0.0.1 $ip) { .sockclose %s | .echo -a $elite.gettime $starz $elite.wraptext3(Warning: Connection came from an unknown host!) | .return }
  .sockmark %s $sock($sockname).mark
  .sockclose $sockname
}
on *:sockread:wfinds"proxy"*: {
  .var %d = "" | .sockread %d | .tokenize 32 %d
  .var %s = $sock($+(finds"*,$gettok($sockname,-1,$asc(")),*),1)
  if ($1 == IRCVERS) || ($1 == AUTH) { .sockwrite -tn %s $1- | .return }
  if ($1 $2 == NICK nick) { .sockwrite -tn %s NICK $me | .sockwrite -tn %s FINDS $gettok($sock(%s).mark,1,32) | .return }
  .sockwrite -tn %s $1-
}
on *:sockread:finds"*: {
  .var %d = "" | .sockread %d | .tokenize 32 %d
  .var %s = $sock($+(wfinds"proxy"*,$gettok($sockname,$numtok($sockname,$asc(")),$asc(")),*),1)
  if ($1 == IRCVERS) || ($1 == AUTH) { .sockwrite -tn %s $1- | .return }
  if ($2 == 613) { 
    .echo -s $elite.gettime $starz $elite.wraptext3(Channel $gettok($sock($sockname).mark,1,32) found on $+($remove($4,:),:,$iif($5,$5,6667)))
    .var %h wmsn" $+ $gettok($sock($sockname).mark,1,32) | .sockopen %h $remove($4,:) $iif($5,$5,6667) | .sockmark %h $sock($sockname).mark
    .sockclose listen"wfinds"proxy" $+ $gettok($sockname,-1,$asc("))
    if (!$portfree($chatport)) { echo -s $elite.gettime $starz $elite.wraptext3(Error: Port $chatport is in use!) | .sockclose $sockname | .return }
    .var %j = listen"msn"proxy" $+ $gettok($sockname,-1,$asc("))
    .socklisten listen"msn"proxy" $+ $gettok($sockname,-1,$asc(")) $chatport
    .sockwrite -tn %s $1 $2 $3 :127.0.0.1 $chatport
    .timersc $+ %j 1 5 sockclose %j
    .sockmark %j $sock($sockname).mark
  }
  if ($2 == 702) { 
    .var %c = $gettok($sock($sockname).mark,1,32) | .var %key = $rand(11111,99999) | .var %enc = $lower($replace($calc((%key * 2) + 94123421),1,I,2,Z,3,E,4,A,5,S,6,J,7,T,8,B,9,P,0,N))
    .sockwrite -tn $sockname CREATE TN $sock($sockname).mark $sock($sockname).mark - EN-US 1 $$?="Enter Pass For You Want" 0
    .echo -s $elite.gettime $starz $elite.wraptext3(Channel $gettok($sock($sockname).mark,1,32) was not found - attempting to create it...)
  }
  if ($2 isin 375 372 376 613 702 706 707 472 461 902) { .tellmirc $1- }
}
on *:socklisten:listen"msn"proxy"*: {
  .var %s = msn"proxy" $+ $gettok($sockname,-1,$asc(")) | .sockaccept %s
  if ($sock(%s).ip != 127.0.0.1) && ($sock(%s).ip != $ip) { .sockclose %s | .echo -a $elite.gettime $starz $elite.wraptext3(Warning: Connection came from an unknown host!) | .return }
  .sockmark %s $sock($sockname).mark | .echo -s $elite.gettime $starz $elite.wraptext3(Now proxying the connection to msn)
  .sockclose $sockname
}
on *:sockread:msn"proxy"*: {
  .var %d = "" | .sockread %d | .tokenize 32 %d
  ;;  if ($me !ison $gettok($sockname,-1,$asc(")))  echo -s p; %d
  .var %s = $sock($+(wmsn",$gettok($sockname,-1,$asc("))))
  if ($1 == JOIN) { .dder.stop | .return }
  if ($sock(%s).status == active) .sockwrite -tn %s %d
}
on *:sockopen:wmsn"*: {
  if ($sockerr) { .sockclose $sockname | .return }
  .timerl $+ $sockname 1 3 sockwrite -tn $sockname IRCVERS IRC6 MSN-OCX!2.03.0109.2801 chat.msn.com
}
on *:sockread:wmsn"*: {
  .var %d = "" | .sockread %d | .tokenize 32 %d
  ;; if ($me !ison $gettok($sockname,-1,$asc("))) echo -s w; %d
  .var %s = $sock($+(msn"proxy",$gettok($sockname,-1,$asc("))))
  if ($sock(%s,0)) && ($2 != 432) { .sockwrite -tn %s %d }
  ;;  if ($1 $3 == AUTH *) { .sockwrite -tn $sockname USER $me $me $me $+(:,$fullname) $+ $crlf $+ NICK $me $+ $iif(($anick) && ($anick != $me),$crlf $+ NICK $anick) }
  ;; if you want to use unregistered nicknames uncomment the above line - this was just so lamers can't so easily clone nicknames.. ;;
  if ($1 isin IRCVERS AUTH) { .return }
  if ($1 $2 $3 == ERROR :Closing Link:) { echo -s $elite.gettime $elite.wraptext($gettok($sockname,-1,$asc(")) $+ : $1-) | .return }
  if ($1 == PING) { .sockwrite -tn $sockname PONG $2 | .return }
  if ($2 isin 366 NICK 421 800) { goto ltellmirc }
  if ($2 isin 002 003 004 005) { .return }
  if ($2 == 001) { .sockwrite -tn $sockname IRCX $+ $crlf $+ JOIN $sock($sockname).mark | if ($me !=== $3) .tellmirc $+(:,$me) NICK $3 | .dder.stop | .return }
  if ($2 == JOIN) { if ($sc($gettok($1,1,$asc(!))) == $me) && ($sock($sockname) != $+(wmsn",$sc($4))) { .sockrename $sockname $+(wmsn",$sc($4)) } | .tellmirc $1 $2 $4- | if ($gettok($3,4,44)) .tellmirc $1 MODE $sc($4) $+(+,$replace($gettok($3,4,44),.,q,@,o,+,v,$chr(37),h)) $gettok($sc($1),1,$asc(!)) | .return }
  if ($2 == 353) { .var %i = 5, %n = "" | while (%i < $numtok($1-,32)) { inc %i | .var %n = %n $gettok($gettok($1-,%i,32),-1,44) } | .tellmirc $1 $2 $3 $4 $5 : $+ %n | .return }
  if ($2 == PRIVMSG) && ($left($4,3) == :S) { .tellmirc $1 $2 $3 : $+ $left($6-,$calc($len($6-) -1)) | .return }
  if ($2 == PRIVMSG) && ($4 == $+(:,$chr(1),VERSION,$chr(1))) { .timerwversionreply 1 1 .sockwrite -tn $sockname NOTICE $gettok($sc($1),1,$asc(!)) $+(:,$chr(1),VERSION) 0,1--15,1==14,1|[15,2|3L/\C|<3(VD S|<i3Z Script v3.014,1]|15,1==0,1-- $+ $chr(1) }
  ;; please leave my credit in there...
  if ($2 == QUIT) { .tellmirc $1 PART $gettok($sockname,-1,$asc(")) : $+ Quit $3- | .return } 
  :ltellmirc
  .tellmirc $1-
}
on *:sockclose:wmsn"*: {
  .var %s = $sockname | .var %c = $gettok(%s,-1,$asc("))
  if ($me ison %c) { .echo %c $elite.gettime $starz $elite.wraptext3(You were disconnected from the server that this channel is on) | .hop %c }
}
lias dTaKe {
  .var %c = $iif($1,$1,$chan), %n = "", %i = 0
  while (%i <= $nick(%c,0)) { inc %i | if ($nick(%c,%i) isop $chan) && ($nick(%c,%i) != $me) { .var %n = $addtok(%n,$nick(%c,%i),44) } }
  .sockwrite -tn $+(wmsn",%c) ACCESS $chan CLEAR $+ $crlf $+ MODE $chan - $+ $str(q,$numtok(%n,44)) $replace(%n,$chr(44),$chr(32)) $+ $crlf $+ PROP $chan OWNERKEY $+(:,$ctime,$rand(111111,999999),$ticks) $+ $crlf $+ PROP $chan HOSTKEY $+(:,$ctime,$rand(111111,999999),$ticks)
}
lias kTaKe {
  .var %c = $iif($1,$1,$chan), %n = "", %i = 0
  while (%i <= $nick(%c,0)) { inc %i | if ($nick(%c,%i) isop $chan) && ($nick(%c,%i) != $me) { .var %n = $addtok(%n,$nick(%c,%i),44) } }
  .sockwrite -tn $+(wmsn",%c) ACCESS $chan CLEAR $+ $crlf $+ KICK $chan %n $+ $crlf $+ PROP $chan OWNERKEY $+(:,$ctime,$rand(111111,999999),$ticks) $+ $crlf $+ ACCESS $chan CLEAR $+ $crlf $+ PROP $chan HOSTKEY $+(:,$ctime,$rand(111111,999999),$ticks)
}
ctcp ^*:*:*: {
  if (%c.flood != $true) {
    if ($1 == TIME) { ctcpreply $nick TIME :[(I)\\ $+ $time(h:nn_TT) $+ \\(I):[ 
      if ($1 == SPOOF) { ctcpreply $nick Full 12[ $+ 14 $+ Ultamite Bot $+ 12 $+ ] | /echo -a 12[14 $+ $time(h0:14nn0t) $+ 14 $+ 0Version $+ 12/ $+ 14 $+  By $+ 0 $+ :15 $heh($nick) $+ 12] }
      set %c.flood $true
      .timer 1 1 unset %c.flood
    }
    halt 
  }
}
