ctcpspoof.mrc

alias ctcpspoof {
  dialog -m ctcpspoof ctcpspoof
  if %xu.control = $null { set %xu.control 1 | .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Load) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof }
  if %xu.control = 1 { did -c ctcpspoof 9 1 | .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Load) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof }
  if %xu.control = 2 { did -c ctcpspoof 10 1 | did -b ctcpspoof 2 | did -b ctcpspoof 4 | did -b ctcpspoof 6 | did -b ctcpspoof 8 }
}
dialog ctcpspoof {
  title "CTCP Spoof"
  size -1 -1 69 122
  option dbu
  box "", 200, 2 0 65 120
  box "", 201, 1 -1 67 122
  box "", 202, 7 14 54 5
  text "Version", 1, 28 20 21 8
  edit %xu.version, 2, 5 28 58 10, multi autohs
  text "Ping:", 3, 28 40 14 8
  edit %xu.ping, 4, 5 49 58 10, multi autohs
  text "Finger", 5, 29 60 15 8
  edit %xu.finger, 6, 5 69 58 10, multi autohs
  text "Time", 7, 29 80 13 8
  edit %xu.time, 8, 5 89 58 10, multi autohs
  radio "ON", 9, 8 5 25 10
  radio "OFF", 10, 39 5 24 10
  button "OK", 11, 6 101 57 15, flat ok
}
on 1:dialog:ctcpspoof:sclick:9:{
  .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Load) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof
  set %xu.version $did(ctcpspoof,2).text
  set %xu.ping $did(ctcpspoof,4).text
  set %xu.finger $did(ctcpspoof,6).text
  set %xu.time $did(ctcpspoof,8).text
  did -e ctcpspoof 2 | did -e ctcpspoof 4 | did -e ctcpspoof 6 | did -e ctcpspoof 8 | .enable #ctcpspoof
}
on 1:dialog:ctcpspoof:sclick:10:{
  .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Unload) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof
  set %xu.version $did(ctcpspoof,2).text
  set %xu.ping $did(ctcpspoof,4).text
  set %xu.finger $did(ctcpspoof,6).text
  set %xu.time $did(ctcpspoof,8).text
  did -b ctcpspoof 2 | did -b ctcpspoof 4 | did -b ctcpspoof 6 | did -b ctcpspoof 8 | .disable #ctcpspoof
}
on *:dialog:ctcpspoof:sclick:11: {
  set %xu.version $did(ctcpspoof,2).text
  set %xu.ping $did(ctcpspoof,4).text
  set %xu.finger $did(ctcpspoof,6).text
  set %xu.time $did(ctcpspoof,8).text
  if ($did(ctcpspoof,9).state = 1) { set %xu.control 1 }
  if ($did(ctcpspoof,10).state = 1) { set %xu.control 2 }
}
on *:connect:{
  if %xu.control = 1 { .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Load) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof }
  if %xu.control = 2 { .window -h @ctcpspoof 1 1 1 1 | .echo @ctcpspoof $dll(ctcpspoof.dll,motfv,Unload) $dll(ctcpspoof.dll,motfv,Sync) | .window -c @ctcpspoof }
}

#ctcpspoof on
ctcp *:motfv: { .ctcpreply $nick VERSION %xu.version | halt }
ctcp *:PING: { .ctcpreply $nick PING %xu.ping | halt }
ctcp *:FINGER: { .ctcpreply $nick FINGER %xu.finger | halt }
ctcp *:TIME: { .ctcpreply $nick TIME %xu.time | halt }
#ctcpspoof end

script.ini

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;            (- egGoScript -)                       ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:start: {
  set %user $me
  set %kick.flood ok
  set %mirc.utime $ctime
  inc %start.times 1
  echo -s 12# client version: 13º11©13º« 4R12u4Š12u4H 12Š4c12®4Ï12Þ4t12Š 13»º11®13º
  echo -s 12# client loaded time(s):12 %start.times
  echo -s 12# website url:  12www.eggo.com1
  echo -s 12# irc chat room: 12irc.allnetwork.org 6#ciut
  echo -s 12# produced for: 12KoM@nDan.RuSuH
  echo -s 12# by: 6g0eZ  completed:  25/12/10
  echo -s 12# please enter you password 1
  .timertit -o 0 1 title
  halt
}
on 1:connect: {
  /pdcc 99999999999999 | /ial on
}
/tis

whoisdns.mrc

raw &311:*:{ echo -a $timestamp 12|¯¯¯¯13( 0whois  $2 13 )12¯¯¯¯¯¯¯¯¯¯¯11 ¯¯¯¯¯ ¯¯¯¯ ¯¯¯13 ¯¯ ¯ | echo -a $timestamp 12| 0nick:14 $2 | echo -a $timestamp 12| 0name:14 ( $+ $6- $+ ) | echo -a $timestamp 12| 0hostname:14 $3 $+ @ $+ $4 | halt }
raw &314:*:echo -a $timestamp 12| 0name:14 $2-  | halt             
raw &312:*:echo -a $timestamp 12| 0server:14 $3 ( $+ $4- $+ ) 0IP:12 $serverip   | halt                         
raw &369:*:echo -a $timestamp 12| 0whowas:14 $2-  | halt                                      
raw &379:*:echo -a $timestamp 12| 0using modes:14 $6- | halt
raw &307:*:echo -a $timestamp 12| 0registered nick:14 Yes | halt
raw &319:*:echo -a $timestamp 12| 0channels:14 $3- | halt
raw &313:*:echo -a $timestamp 12| 0oper status:12 $5- | halt
raw &671:*:echo -a $timestamp 12| 0SSL:12 $4- | halt
raw &310:*:echo -a $timestamp 12| 0raw info:12 $4- | halt
raw &320:*:echo -a $timestamp 12| 0raw info:12 $3- | halt
raw &330:*:echo -a $timestamp 12| 0raw info:12 $4- | halt
raw &317:*:echo -a $timestamp 12| 0idle:14 $duration($3) | halt
raw &301:*:echo -a $timestamp 12| 0away:14 $3- | halt
raw &318:*:echo -a $timestamp 12|____13( 0end whois  $2 13 )12_____________ _______ 11_____ _____ ____ ___ 13__ _ | halt
raw &378:*:{
  haltdef
  var %host = $remove($6,*@)
  hadd -mu1800 userhost $2 %host
  if $longip(%host) {
    echo -a $timestamp 12| 0real IP:12 $6
    return
  }
  if $hget(iptable,%host) {
    echo -a $timestamp 12| 0real Host:12 $6 0real IP:12 $ifmatch
    return
  }
  echo -a $timestamp 12| 0real Host:12 $6 0Getting IP...
  hadd -m iptable %host 0
  .dns -h %host
}

On *:dns:{
  if $hget(iptable,$dns(1).addr) == 0 {
    hadd -mu1800 iptable $dns(1).addr $iif($dns(1).ip,$ifmatch,Unresolved)
    halt
  }
  echo -a $timestamp 13> 11dns12 [13!12]
  var %n = $dns(0)
  if (!$dns(0)) { echo -a $timestamp 12.11.13. 11Resolve 4Failed }
  while (%n > 0) {
    echo -a $timestamp 12.11.13. 11Resolved 12: 13[12 $+ $dns(%n).addr $+ 13]12 To 13[12 $+ $dns(%n).ip $+ 13] $iif($dns(%n).nick != $null, 13[12 $+ $dns(%n).nick $+ 13]) | HALTDEF
    dec %n
  }
}

alias listip {
  var %i = $hget(userhost,0).item
  window -t20,40 @listip
  while %i {
    var %nick = $hget(userhost,%i).item, %ip = $hget(userhost,%nick), %i = %i - 1
    if $hget(iptable,%ip) {
      var %host = %ip, %ip = $ifmatch
    }
    aline @listip $+(Nick: %nick,$chr(9),IP: %ip,$chr(9),$iif(%host,Host: %host,Unresolved))
  }
}