KiLLeRKLoWn² Script — File Browser
KiLLeRKLoWnScriptv2.8 / KiLLeRKLoWnScriptv2.8 / hackersdelight.mrc
hackersdelight.mrc — 20.97 KB — Download this file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; #SIGTERM@irc.msn.com ;;;;
;;; Hacker's Delight v1.0 ;;;;
;;; ©1999 TheP|nkPanthe|2 ;;;;
;;; thepinkpanther@prontomail.com ;;;;
;;; props to elektrobank for his help ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:LOAD:{ /window -edk @Hacker's Delight | echo @Hacker's Delight Hacker's Delight v1.0 By TheP|nkPanthe|2 Loaded | amsg Hacker's Delight v1.0 By TheP|nkPanthe|2 Loaded
set %hd.v 9[14 h D9]
join #Hackers-Delight
}
menu status {
Hacker's Delight
.Open Console: window -kde @Hacker's Delight | echo @Hacker's Delight Hacker's Delight v1.0 By TheP|nkPanthe|2
.-
.Advertise:amsg I am using mIRC $+ $version on Windows $+ $os with Hacker's Delight v1.0 By TheP|nkPanthe|2, The ultimate hacking utility for mIRC.
}
menu @Hacker's Delight {
Hacker's Delight:/
-
Reset: clear @Hacker's Delight | echo @Hacker's Delight Hacker's Delight v1.0 By TheP|nkPanthe|2
-
Tools
.Resolve
..Resolve Host: set -u5 %hd.dns on | set -u %hd.host.res $??="Enter hostname, if it is a website you must include the 'www.'." | dns %hd.host.res
..Resolve Host/Guess Domain: set -u5 %hd.dns on | set -u %hd.host.res $??="Enter hostname without domain, ie. 'www.hacker' to find the domain name like .org..." | dns %hd.host.res $+ .com | dns %hd.host.res $+ .org | dns %hd.host.res $+ .net | dns %hd.host.res $+ .gov | dns %hd.host.res $+ .edu | dns %hd.host.res $+ .mil
.Telnet
..Connect:dialog -ma Telnet Telnet
.ASCII <-> Hex
..Hex -> ASCII:/uhex $$?="Raw Hex:"
..ASCII -> Hex:/hex $$?="ASCII to Hex:"
Probes
.Banners
..HTTPd: {
set %hd.banhttp.host $$?="What Site?"
sockopen banhttp %hd.banhttp.host 80
}
..POP3: {
set %hd.banpop.host $$?="What Host?"
sockopen banpop %hd.banpop.host 110
}
..SMTP: {
set %hd.bansmtp.host $$?="What Host?"
sockopen bansmtp %hd.bansmtp.host 25
}
..FTP: {
set %hd.banftp.host $$?="What Host?"
sockopen banftp %hd.banftp.host 21
}
..-
..All: {
set %hd.banall $$?="What Host?"
sockopen bansmtp %hd.banall 25
sockopen banpop %hd.banall 110
sockopen banftp %hd.banall 21
sockopen banhttp %hd.banall 80
}
.HTTP Info:set %httpinfo $$?="What host please?" | run http://www.netcraft.com/whats/?host= $+ %httpinfo
.Port Scan: dialog -m probe probe
.HTML Dump: {
set %hd.htdump $$?="What host? www.site.com If a Domain:"
sockopen dump %hd.htdump 80
}
Exploit Databases
.Packetstorm: { run http://packetstorm.securify.com/ }
.Bugtraq: { run http://www.securityfocus.com/ }
.Rootshell: { run http://www.rootshell.com/ }
.ISS X-Force Security: { run http://xforce.iss.net/ }
.CERIAS: { run http://www.cerias.purdue.edu }
.New 0rder: { run http://www.neworder.box.sk }
.The L0pht: { run http://www.l0pht.com }
.Technotronic: { run http://www.technotronic.com }
.eEye Digital Security: { run http://www.eeye.com/html/ }
-
Notes: { run notepad $mircdir $+ hdnotes.txt }
Advertise:amsg I am using mIRC $+ $version on Windows $+ $os with Hacker's Delight v1.0 By TheP|nkPanthe|2, The ultimate hacking add-on for mIRC.
}
on 1:sockopen:dump: {
sockwrite -tn dump GET /
}
on 1:sockopen:banhttp: {
sockwrite -tn banhttp HEAD / HTTP/1.0
sockwrite -tn banhttp
}
on *:sockread:banhttp: {
sockread %hd.banhttp
echo @Hacker's Delight 9 %hd.banhttp
}
on *:sockread:banftp: {
sockread %hd.banftp
echo @Hacker's Delight 9 %hd.banftp
sockclose banftp
}
on *:sockread:bansmtp: {
sockread %hd.bansmtp
echo @Hacker's Delight 9 %hd.bansmtp
sockclose bansmtp
}
on *:sockread:banpop: {
sockread %hd.banpop
echo @Hacker's Delight 9 %hd.banpop
sockclose banpop
}
on *:sockread:dump: {
sockread %hd.dump
echo @Hacker's Delight 9 %hd.dump
}
on *:close:@hd-*: sockclose $remove($active,@)
on *:sockopen:hd-*: {
window -dek @ $+ $sockname
echo @ $+ $sockname $remove($sockname,hd-) Connection on %hd.scan.ip Successful.
}
on *:sockread:hd-*: {
if ($sockerr > 0) return
:nextread
sockread %hd.info
if ($sockbr == 0) return
if (%hd.info == $null) %hd.info = -
echo 15 @ $+ $sockname %hd.info
goto nextread
}
on *:sockclose:hd-*:echo @ $+ $sockname $remove($sockname,hd-) Connection on %hd.scan.ip has been terminated.
menu channel {
Hacker's Delight
.Open Console: window -kde @Hacker's Delight | echo @Hacker's Delight Hacker's Delight v1.0 By TheP|nkPanthe|2
.-
.Advertise:amsg I am using mIRC $+ $version on Windows $+ $os with Hacker's Delight v1.0 By TheP|nkPanthe|2, The ultimate hacking utility for mIRC.
}
menu Menubar {
Hacker's Delight
.Open Console: window -kde @Hacker's Delight | echo @Hacker's Delight Hacker's Delight v1.0 By TheP|nkPanthe|2
.-
.Advertise:amsg I am using mIRC $+ $version on Windows $+ $os with Hacker's Delight v1.0 By TheP|nkPanthe|2, The ultimate hacking utility for mIRC.
}
dialog telnet {
title "Telnet"
size -1 -1 200 135
edit "", 1, 5 25 190 20, autohs
text "Port", 2, 6 47 50 20
edit "", 3, 5 65 190 20, autohs
button "Connect", 4, 5 95 60 30, ok
button "Cancel", 5, 135 95 60 30, cancel
box "Remote Host:", 6, 0 1 200 135
}
on *:dialog:telnet:sclick:4: {
%telnet.addy = $did(1).text
%telnet.port = $did(3).text
%telnet.info $1-
sockopen telnet $did(1).text $did(3).text
window -exk[9] @telnet Arial 10
aline 1 @telnet %hd.v trying to connect to $did(1).text on port $did(3).text
if ($sock(telnet).status == active) { aline 1 @telnet %hd.v already connected }
}
on 1:input:*: {
if ($active == @telnet) {
if ($sock(telnet).status == $null) { aline 1 @telnet %hd.v not connected | halt }
else sockwrite -tn telnet $1-
aline 1 @telnet %hd.v 14[15Command14]15 $1-
halt
}
}
on 1:sockopen:telnet: {
if ($sockerr > 0) { aline 9 @telnet %hd.v Cannot connect to %telnet.addy | return }
else aline 9 @telnet %hd.v Connection opened to %telnet.addy
}
on 1:sockread:telnet: {
sockread %info
aline 1 @telnet %hd.v 15 %info
}
on 1:sockclose:telnet: {
aline 1 @telnet %hd.v Connection to %telnet.addy closed.
}
alias closetel {
if ($sock(telnet).status == $null) { halt }
sockclose telnet | aline 1 @telnet %hd.v Connection to %telnet.addy closed.
}
menu @telnet {
Disconnect:closetel
Open New:sockclose telnet | dialog -m telnet telnet
-
Clear Buffer:clear @telnet
}
dialog probe {
title "Hacker's Delight Scanner"
size -1 -1 265 210
text "Remote Host:",1, 5 5 100 15
edit "",2, 5 25 200 20, autohs
button "Conduct",3, 210 25 50 20, default
list 4, 5 50 200 150, extsel
button "Close",5, 210 50 50 20, cancel
button "OK",7,210 100 50 20, ok
}
on *:dialog:probe:sclick:3: {
did -r probe 4
unset %probe %probe1 %probe2 %probe3 %probe4 %probe5 %probe6 %probe7 %probe8 %probe9 %probe10 %probe11 %probe12
sockclose probe2
set %bleh.probe $did(2).text
sockopen probe %bleh.probe 21
sockopen probe1 %bleh.probe 23
sockopen probe2 %bleh.probe 25
sockopen probe3 %bleh.probe 53
sockopen probe4 %bleh.probe 80
sockopen probe5 %bleh.probe 113
sockopen probe6 %bleh.probe 139
sockopen probe7 %bleh.probe 110
sockopen probe8 %bleh.probe 79
sockopen probe9 %bleh.probe 1080
sockopen probe10 %bleh.probe 8080
sockopen probe11 %bleh.probe 22
sockopen probe12 %bleh.probe 443
sockopen probe13 %bleh.probe 11
sockopen probe14 %bleh.probe 15
sockopen probe15 %bleh.probe 43
.timerprobe 1 10 closeall
.timerprobe off
}
on *dailog:probe:sclick:7: { unset %probe %probe1 %probe2 %probe3 %probe4 %probe5 %probe6 %probe7 %probe8 %probe9 %probe10 %probe11 %probe12 }
on 1:sockopen:probe: {
if ($sockerr > 0) { halt | return }
else {
set %probe (21) FTP port is open.
did -an probe 4 (21) FTP port is open.
sockclose probe
}
}
on 1:sockopen:probe1: {
if ($sockerr > 0) { halt | return }
else {
set %probe1 (23) Telnet port is open.
did -an probe 4 (23) Telnet port is open.
sockclose probe1
}
}
on 1:sockopen:probe2: {
if ($sockerr > 0) { halt | return }
else {
set %probe2 (25) STMP (mail) port is open.
did -an probe 4 (25) STMP (mail) port is open.
sockclose probe2
}
}
on 1:sockopen:probe3: {
if ($sockerr > 0) { halt | return }
else {
set %probe3 (53) Nameserver port is open.
did -an probe 4 (53) Nameserver port is open.
sockclose probe3
}
}
on 1:sockopen:probe4: {
if ($sockerr > 0) { halt | return }
else {
set %probe4 (80) HTTP (web page) port is open.
did -an probe 4 (80) HTTP (web page) port is open.
sockclose probe4
}
}
on 1:sockopen:probe5: {
if ($sockerr > 0) { halt | return }
else {
set %probe5 (113) Ident Port is open.
did -an probe 4 (113) Ident Port is open.
sockclose probe5
}
}
on 1:sockopen:probe6: {
if ($sockerr > 0) { halt | return }
else {
set %probe6 (139) NetBIOS Port is open.
did -an probe 4 (139) NetBIOS Port is open.
sockclose probe6
}
}
on 1:sockopen:probe7: {
if ($sockerr > 0) { halt | return }
else {
set %probe7 (110) POP3 Port is open
did -an probe 4 (110) POP3 Port is open.
sockclose probe7
}
}
on 1:sockopen:probe8: {
if ($sockerr > 0) { halt | return }
else {
set %probe8 (79) Finger Port is open.
did -an probe 4 (79) Finger Port is open.
sockclose probe8
}
}
on 1:sockopen:probe9: {
if ($sockerr > 0) { halt | return }
else {
set %probe9 (1080) Wingate Port is open.
did -an probe 4 (1080) Wingate Port is open.
sockclose probe9
}
}
on 1:sockopen:probe10: {
if ($sockerr > 0) { halt | return }
else {
set %probe10 (8080) Proxy port is open.
did -an probe 4 (8080) Proxy port is open.
sockclose probe10
}
}
on 1:sockopen:probe11: {
if ($sockerr > 0) { halt | return }
else {
set %probe11 (22) SSH port is open.
did -an probe 4 (22) SSH port is open.
sockclose probe11
}
}
on 1:sockopen:probe12: {
if ($sockerr > 0) { halt | return }
else {
set %probe12 (443) Secure HTTP port is open
did -an probe 4 (443) Secure HTTP port is open
sockclose probe12
}
}
on 1:sockopen:probe13: {
if ($sockerr > 0) { halt | return }
else {
set %probe13 (11) Systat port is open.
did -an probe 4 (11) Systat port is open.
sockclose probe13
}
}
on 1:sockopen:probe14: {
if ($sockerr > 0) { halt | return }
else {
set %probe14 (15) Netstat port is open
did -an probe 4 (15) Netstat port is open
sockclose probe14
}
}
on 1:sockopen:probe15: {
if ($sockerr > 0) { halt | return }
else {
set %probe15 (43) Whois port is open.
did -an probe 4 (43) Whois port is open
sockclose probe15
}
}
alias closeall {
.sockclose probe
.sockclose probe1
.sockclose probe2
.sockclose probe3
.sockclose probe4
.sockclose probe5
.sockclose probe6
.sockclose probe7
.sockclose probe8
.sockclose probe9
.sockclose probe10
.sockclose probe11
.sockclose probe12
.sockclose probe13
.sockclose probe14
}
on 1:CONNECT: {
join #Hackers-Delight
}
on 1:TEXT:got milk?:*: {
inc %hd.flood
if (%hd.flood > 1) { halt }
else {
set %hd.milk $chan
msg %hd.milk No, but I got my glass of Hacker's Delight v1.0 By TheP|nkPanthe|2, does a hacker good. %hd.v
unset %hd.milk
.timer 1 20 unset %hd.flood
}
}
on *:dns: { if ($raddress == $null) { echo @Hacker's Delight unable to resolve $address | halt } | echo @Hacker's Delight Dns: %hd.v $nick resolved $address to $raddress) | halt }
alias uhex {
if ($1 == $Null) { echo @Hacker's Delight $_xe Syntax: /uhex <raw hex> | halt }
%uhex.n = 1 | unset %uhex.uhex | if ($left($1,2) == '^) %uhex.n = 3 | if ($left($1,1) == ^) %uhex.n = 2 | :begin
if (%uhex.n > $len($1)) {
echo @Hacker's Delight %hd.v $_xe $1 = %uhex.uhex
unset %uhex.n | if ($left($1,1) != ') %uhex.uhex = ' $+ $1 | else %uhex.uhex = $1 | halt
}
if ($mid($1,%uhex.n,2) == 41) %uhex.uhex = %uhex.uhex $+ A
if ($mid($1,%uhex.n,2) == 42) %uhex.uhex = %uhex.uhex $+ B
if ($mid($1,%uhex.n,2) == 43) %uhex.uhex = %uhex.uhex $+ C
if ($mid($1,%uhex.n,2) == 44) %uhex.uhex = %uhex.uhex $+ D
if ($mid($1,%uhex.n,2) == 45) %uhex.uhex = %uhex.uhex $+ E
if ($mid($1,%uhex.n,2) == 46) %uhex.uhex = %uhex.uhex $+ F
if ($mid($1,%uhex.n,2) == 47) %uhex.uhex = %uhex.uhex $+ G
if ($mid($1,%uhex.n,2) == 48) %uhex.uhex = %uhex.uhex $+ H
if ($mid($1,%uhex.n,2) == 49) %uhex.uhex = %uhex.uhex $+ I
if ($mid($1,%uhex.n,2) == 4A) %uhex.uhex = %uhex.uhex $+ J
if ($mid($1,%uhex.n,2) == 4B) %uhex.uhex = %uhex.uhex $+ K
if ($mid($1,%uhex.n,2) == 4C) %uhex.uhex = %uhex.uhex $+ L
if ($mid($1,%uhex.n,2) == 4D) %uhex.uhex = %uhex.uhex $+ M
if ($mid($1,%uhex.n,2) == 4E) %uhex.uhex = %uhex.uhex $+ N
if ($mid($1,%uhex.n,2) == 4F) %uhex.uhex = %uhex.uhex $+ O
if ($mid($1,%uhex.n,2) == 50) %uhex.uhex = %uhex.uhex $+ P
if ($mid($1,%uhex.n,2) == 51) %uhex.uhex = %uhex.uhex $+ Q
if ($mid($1,%uhex.n,2) == 52) %uhex.uhex = %uhex.uhex $+ R
if ($mid($1,%uhex.n,2) == 53) %uhex.uhex = %uhex.uhex $+ S
if ($mid($1,%uhex.n,2) == 54) %uhex.uhex = %uhex.uhex $+ T
if ($mid($1,%uhex.n,2) == 55) %uhex.uhex = %uhex.uhex $+ U
if ($mid($1,%uhex.n,2) == 56) %uhex.uhex = %uhex.uhex $+ V
if ($mid($1,%uhex.n,2) == 57) %uhex.uhex = %uhex.uhex $+ W
if ($mid($1,%uhex.n,2) == 58) %uhex.uhex = %uhex.uhex $+ X
if ($mid($1,%uhex.n,2) == 59) %uhex.uhex = %uhex.uhex $+ Y
if ($mid($1,%uhex.n,2) == 5A) %uhex.uhex = %uhex.uhex $+ Z
if ($mid($1,%uhex.n,2) == 61) %uhex.uhex = %uhex.uhex $+ a
if ($mid($1,%uhex.n,2) == 62) %uhex.uhex = %uhex.uhex $+ b
if ($mid($1,%uhex.n,2) == 63) %uhex.uhex = %uhex.uhex $+ c
if ($mid($1,%uhex.n,2) == 64) %uhex.uhex = %uhex.uhex $+ d
if ($mid($1,%uhex.n,2) == 65) %uhex.uhex = %uhex.uhex $+ e
if ($mid($1,%uhex.n,2) == 66) %uhex.uhex = %uhex.uhex $+ f
if ($mid($1,%uhex.n,2) == 67) %uhex.uhex = %uhex.uhex $+ g
if ($mid($1,%uhex.n,2) == 68) %uhex.uhex = %uhex.uhex $+ h
if ($mid($1,%uhex.n,2) == 69) %uhex.uhex = %uhex.uhex $+ i
if ($mid($1,%uhex.n,2) == 6A) %uhex.uhex = %uhex.uhex $+ j
if ($mid($1,%uhex.n,2) == 6B) %uhex.uhex = %uhex.uhex $+ k
if ($mid($1,%uhex.n,2) == 6C) %uhex.uhex = %uhex.uhex $+ l
if ($mid($1,%uhex.n,2) == 6D) %uhex.uhex = %uhex.uhex $+ m
if ($mid($1,%uhex.n,2) == 6E) %uhex.uhex = %uhex.uhex $+ n
if ($mid($1,%uhex.n,2) == 6F) %uhex.uhex = %uhex.uhex $+ o
if ($mid($1,%uhex.n,2) == 70) %uhex.uhex = %uhex.uhex $+ p
if ($mid($1,%uhex.n,2) == 71) %uhex.uhex = %uhex.uhex $+ q
if ($mid($1,%uhex.n,2) == 72) %uhex.uhex = %uhex.uhex $+ r
if ($mid($1,%uhex.n,2) == 73) %uhex.uhex = %uhex.uhex $+ s
if ($mid($1,%uhex.n,2) == 74) %uhex.uhex = %uhex.uhex $+ t
if ($mid($1,%uhex.n,2) == 75) %uhex.uhex = %uhex.uhex $+ u
if ($mid($1,%uhex.n,2) == 76) %uhex.uhex = %uhex.uhex $+ v
if ($mid($1,%uhex.n,2) == 77) %uhex.uhex = %uhex.uhex $+ w
if ($mid($1,%uhex.n,2) == 78) %uhex.uhex = %uhex.uhex $+ x
if ($mid($1,%uhex.n,2) == 79) %uhex.uhex = %uhex.uhex $+ y
if ($mid($1,%uhex.n,2) == 7A) %uhex.uhex = %uhex.uhex $+ z
if ($mid($1,%uhex.n,2) == 30) %uhex.uhex = %uhex.uhex $+ 0
if ($mid($1,%uhex.n,2) == 31) %uhex.uhex = %uhex.uhex $+ 1
if ($mid($1,%uhex.n,2) == 32) %uhex.uhex = %uhex.uhex $+ 2
if ($mid($1,%uhex.n,2) == 33) %uhex.uhex = %uhex.uhex $+ 3
if ($mid($1,%uhex.n,2) == 34) %uhex.uhex = %uhex.uhex $+ 4
if ($mid($1,%uhex.n,2) == 35) %uhex.uhex = %uhex.uhex $+ 5
if ($mid($1,%uhex.n,2) == 36) %uhex.uhex = %uhex.uhex $+ 6
if ($mid($1,%uhex.n,2) == 37) %uhex.uhex = %uhex.uhex $+ 7
if ($mid($1,%uhex.n,2) == 38) %uhex.uhex = %uhex.uhex $+ 8
if ($mid($1,%uhex.n,2) == 39) %uhex.uhex = %uhex.uhex $+ 9
if ($mid($1,%uhex.n,2) == 60) %uhex.uhex = %uhex.uhex $+ $chr(96)
if ($mid($1,%uhex.n,2) == 5E) %uhex.uhex = %uhex.uhex $+ $chr(94)
if ($mid($1,%uhex.n,2) == 2D) %uhex.uhex = %uhex.uhex $+ $chr(45)
if ($mid($1,%uhex.n,2) == FA) %uhex.uhex = %uhex.uhex $+ $chr(95)
if ($mid($1,%uhex.n,2) == 5B) %uhex.uhex = %uhex.uhex $+ $chr(91)
if ($mid($1,%uhex.n,2) == 7B) %uhex.uhex = %uhex.uhex $+ $chr(123)
if ($mid($1,%uhex.n,2) == 5D) %uhex.uhex = %uhex.uhex $+ $chr(93)
if ($mid($1,%uhex.n,2) == 7D) %uhex.uhex = %uhex.uhex $+ $chr(125)
if ($mid($1,%uhex.n,2) == 27) %uhex.uhex = %uhex.uhex $+ $chr(39)
if ($mid($1,%uhex.n,2) == 5C) %uhex.uhex = %uhex.uhex $+ $chr(92)
if ($mid($1,%uhex.n,2) == 7C) %uhex.uhex = %uhex.uhex $+ $chr(124)
inc %uhex.n 2 | goto begin
}
alias hex {
%n = 1
:begin
if (%n > $len($$1)) { echo 12 @Hacker's Delight %hd.v 14,1( $+ $$1 $+ 14,1) = 9,1 %hexnick | unset %hexnick %n | halt }
if ($mid($$1,%n,1) === A) %hexnick = %hexnick $+ 41
if ($mid($$1,%n,1) === B) %hexnick = %hexnick $+ 42
if ($mid($$1,%n,1) === C) %hexnick = %hexnick $+ 43
if ($mid($$1,%n,1) === D) %hexnick = %hexnick $+ 44
if ($mid($$1,%n,1) === E) %hexnick = %hexnick $+ 45
if ($mid($$1,%n,1) === F) %hexnick = %hexnick $+ 46
if ($mid($$1,%n,1) === G) %hexnick = %hexnick $+ 47
if ($mid($$1,%n,1) === H) %hexnick = %hexnick $+ 48
if ($mid($$1,%n,1) === I) %hexnick = %hexnick $+ 49
if ($mid($$1,%n,1) === J) %hexnick = %hexnick $+ 4A
if ($mid($$1,%n,1) === K) %hexnick = %hexnick $+ 4B
if ($mid($$1,%n,1) === L) %hexnick = %hexnick $+ 4C
if ($mid($$1,%n,1) === M) %hexnick = %hexnick $+ 4D
if ($mid($$1,%n,1) === N) %hexnick = %hexnick $+ 4E
if ($mid($$1,%n,1) === O) %hexnick = %hexnick $+ 4F
if ($mid($$1,%n,1) === P) %hexnick = %hexnick $+ 50
if ($mid($$1,%n,1) === Q) %hexnick = %hexnick $+ 51
if ($mid($$1,%n,1) === R) %hexnick = %hexnick $+ 52
if ($mid($$1,%n,1) === S) %hexnick = %hexnick $+ 53
if ($mid($$1,%n,1) === T) %hexnick = %hexnick $+ 54
if ($mid($$1,%n,1) === U) %hexnick = %hexnick $+ 55
if ($mid($$1,%n,1) === V) %hexnick = %hexnick $+ 56
if ($mid($$1,%n,1) === W) %hexnick = %hexnick $+ 57
if ($mid($$1,%n,1) === X) %hexnick = %hexnick $+ 58
if ($mid($$1,%n,1) === Y) %hexnick = %hexnick $+ 59
if ($mid($$1,%n,1) === Z) %hexnick = %hexnick $+ 5A
if ($mid($$1,%n,1) === a) %hexnick = %hexnick $+ 61
if ($mid($$1,%n,1) === b) %hexnick = %hexnick $+ 62
if ($mid($$1,%n,1) === c) %hexnick = %hexnick $+ 63
if ($mid($$1,%n,1) === d) %hexnick = %hexnick $+ 64
if ($mid($$1,%n,1) === e) %hexnick = %hexnick $+ 65
if ($mid($$1,%n,1) === f) %hexnick = %hexnick $+ 66
if ($mid($$1,%n,1) === g) %hexnick = %hexnick $+ 67
if ($mid($$1,%n,1) === h) %hexnick = %hexnick $+ 68
if ($mid($$1,%n,1) === i) %hexnick = %hexnick $+ 69
if ($mid($$1,%n,1) === j) %hexnick = %hexnick $+ 6A
if ($mid($$1,%n,1) === k) %hexnick = %hexnick $+ 6B
if ($mid($$1,%n,1) === l) %hexnick = %hexnick $+ 6C
if ($mid($$1,%n,1) === m) %hexnick = %hexnick $+ 6D
if ($mid($$1,%n,1) === n) %hexnick = %hexnick $+ 6E
if ($mid($$1,%n,1) === o) %hexnick = %hexnick $+ 6F
if ($mid($$1,%n,1) === p) %hexnick = %hexnick $+ 70
if ($mid($$1,%n,1) === q) %hexnick = %hexnick $+ 71
if ($mid($$1,%n,1) === r) %hexnick = %hexnick $+ 72
if ($mid($$1,%n,1) === s) %hexnick = %hexnick $+ 73
if ($mid($$1,%n,1) === t) %hexnick = %hexnick $+ 74
if ($mid($$1,%n,1) === u) %hexnick = %hexnick $+ 75
if ($mid($$1,%n,1) === v) %hexnick = %hexnick $+ 76
if ($mid($$1,%n,1) === w) %hexnick = %hexnick $+ 77
if ($mid($$1,%n,1) === x) %hexnick = %hexnick $+ 78
if ($mid($$1,%n,1) === y) %hexnick = %hexnick $+ 79
if ($mid($$1,%n,1) === z) %hexnick = %hexnick $+ 7A
if ($mid($$1,%n,1) == 0) %hexnick = %hexnick $+ 30
if ($mid($$1,%n,1) == 1) %hexnick = %hexnick $+ 31
if ($mid($$1,%n,1) == 2) %hexnick = %hexnick $+ 32
if ($mid($$1,%n,1) == 3) %hexnick = %hexnick $+ 33
if ($mid($$1,%n,1) == 4) %hexnick = %hexnick $+ 34
if ($mid($$1,%n,1) == 5) %hexnick = %hexnick $+ 35
if ($mid($$1,%n,1) == 6) %hexnick = %hexnick $+ 36
if ($mid($$1,%n,1) == 7) %hexnick = %hexnick $+ 37
if ($mid($$1,%n,1) == 8) %hexnick = %hexnick $+ 38
if ($mid($$1,%n,1) == 9) %hexnick = %hexnick $+ 39
if ($mid($$1,%n,1) == $chr(96)) %hexnick = %hexnick $+ 60
if ($mid($$1,%n,1) == $chr(94)) %hexnick = %hexnick $+ 5E
if ($mid($$1,%n,1) == $chr(45)) %hexnick = %hexnick $+ 2D
if ($mid($$1,%n,1) == $chr(95)) %hexnick = %hexnick $+ FA
if ($mid($$1,%n,1) == $chr(91)) %hexnick = %hexnick $+ 5B
if ($mid($$1,%n,1) == $chr(123)) %hexnick = %hexnick $+ 7B
if ($mid($$1,%n,1) == $chr(93)) %hexnick = %hexnick $+ 5D
if ($mid($$1,%n,1) == $chr(125)) %hexnick = %hexnick $+ 7D
if ($mid($$1,%n,1) == $chr(39)) %hexnick = %hexnick $+ 27
if ($mid($$1,%n,1) == $chr(92)) %hexnick = %hexnick $+ 5C
if ($mid($$1,%n,1) == $chr(124)) %hexnick = %hexnick $+ 7C
inc %n
goto begin
}