/ScriptServ

[script]
n0=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n1=;;                                                                           ;;
n2=;;      hex.mx • copyright © 1999 s4ndm4n       ;;
n3=;;                                                                           ;;
n4=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n5=
n6=;description: nickname unhexer
n7=;usage: $uhex()
n8=;example: $uhex('^3D4F472D)
n9=
n10=alias uhex {
n11=  unset %uhex.*
n12=  %uhex.n = 3
n13=  :begin
n14=  if (%uhex.n > $len($1)) return %uhex.u
n15=  if ($mid($1,%uhex.n,2) == 41) %uhex.u = %uhex.u $+ A
n16=  elseif ($mid($1,%uhex.n,2) == 42) %uhex.u = %uhex.u $+ B
n17=  elseif ($mid($1,%uhex.n,2) == 43) %uhex.u = %uhex.u $+ C
n18=  elseif ($mid($1,%uhex.n,2) == 44) %uhex.u = %uhex.u $+ D
n19=  elseif ($mid($1,%uhex.n,2) == 45) %uhex.u = %uhex.u $+ E
n20=  elseif ($mid($1,%uhex.n,2) == 46) %uhex.u = %uhex.u $+ F
n21=  elseif ($mid($1,%uhex.n,2) == 47) %uhex.u = %uhex.u $+ G
n22=  elseif ($mid($1,%uhex.n,2) == 48) %uhex.u = %uhex.u $+ H
n23=  elseif ($mid($1,%uhex.n,2) == 49) %uhex.u = %uhex.u $+ I
n24=  elseif ($mid($1,%uhex.n,2) === 4A) %uhex.u = %uhex.u $+ J
n25=  elseif ($mid($1,%uhex.n,2) === 4B) %uhex.u = %uhex.u $+ K
n26=  elseif ($mid($1,%uhex.n,2) === 4C) %uhex.u = %uhex.u $+ L
n27=  elseif ($mid($1,%uhex.n,2) === 4D) %uhex.u = %uhex.u $+ M
n28=  elseif ($mid($1,%uhex.n,2) === 4E) %uhex.u = %uhex.u $+ N
n29=  elseif ($mid($1,%uhex.n,2) === 4F) %uhex.u = %uhex.u $+ O
n30=  elseif ($mid($1,%uhex.n,2) == 50) %uhex.u = %uhex.u $+ P
n31=  elseif ($mid($1,%uhex.n,2) == 51) %uhex.u = %uhex.u $+ Q
n32=  elseif ($mid($1,%uhex.n,2) == 52) %uhex.u = %uhex.u $+ R
n33=  elseif ($mid($1,%uhex.n,2) == 53) %uhex.u = %uhex.u $+ S
n34=  elseif ($mid($1,%uhex.n,2) == 54) %uhex.u = %uhex.u $+ T
n35=  elseif ($mid($1,%uhex.n,2) == 55) %uhex.u = %uhex.u $+ U
n36=  elseif ($mid($1,%uhex.n,2) == 56) %uhex.u = %uhex.u $+ V
n37=  elseif ($mid($1,%uhex.n,2) == 57) %uhex.u = %uhex.u $+ W
n38=  elseif ($mid($1,%uhex.n,2) == 58) %uhex.u = %uhex.u $+ X
n39=  elseif ($mid($1,%uhex.n,2) == 59) %uhex.u = %uhex.u $+ Y
n40=  elseif ($mid($1,%uhex.n,2) === 5A) %uhex.u = %uhex.u $+ Z
n41=  elseif ($mid($1,%uhex.n,2) == 61) %uhex.u = %uhex.u $+ a
n42=  elseif ($mid($1,%uhex.n,2) == 62) %uhex.u = %uhex.u $+ b
n43=  elseif ($mid($1,%uhex.n,2) == 63) %uhex.u = %uhex.u $+ c
n44=  elseif ($mid($1,%uhex.n,2) == 64) %uhex.u = %uhex.u $+ d
n45=  elseif ($mid($1,%uhex.n,2) == 65) %uhex.u = %uhex.u $+ e
n46=  elseif ($mid($1,%uhex.n,2) == 66) %uhex.u = %uhex.u $+ f
n47=  elseif ($mid($1,%uhex.n,2) == 67) %uhex.u = %uhex.u $+ g
n48=  elseif ($mid($1,%uhex.n,2) == 68) %uhex.u = %uhex.u $+ h
n49=  elseif ($mid($1,%uhex.n,2) == 69) %uhex.u = %uhex.u $+ i
n50=  elseif ($mid($1,%uhex.n,2) === 6A) %uhex.u = %uhex.u $+ j
n51=  elseif ($mid($1,%uhex.n,2) === 6B) %uhex.u = %uhex.u $+ k
n52=  elseif ($mid($1,%uhex.n,2) === 6C) %uhex.u = %uhex.u $+ l
n53=  elseif ($mid($1,%uhex.n,2) === 6D) %uhex.u = %uhex.u $+ m
n54=  elseif ($mid($1,%uhex.n,2) === 6E) %uhex.u = %uhex.u $+ n
n55=  elseif ($mid($1,%uhex.n,2) === 6F) %uhex.u = %uhex.u $+ o
n56=  elseif ($mid($1,%uhex.n,2) == 70) %uhex.u = %uhex.u $+ p
n57=  elseif ($mid($1,%uhex.n,2) == 71) %uhex.u = %uhex.u $+ q
n58=  elseif ($mid($1,%uhex.n,2) == 72) %uhex.u = %uhex.u $+ r
n59=  elseif ($mid($1,%uhex.n,2) == 73) %uhex.u = %uhex.u $+ s
n60=  elseif ($mid($1,%uhex.n,2) == 74) %uhex.u = %uhex.u $+ t
n61=  elseif ($mid($1,%uhex.n,2) == 75) %uhex.u = %uhex.u $+ u
n62=  elseif ($mid($1,%uhex.n,2) == 76) %uhex.u = %uhex.u $+ v
n63=  elseif ($mid($1,%uhex.n,2) == 77) %uhex.u = %uhex.u $+ w
n64=  elseif ($mid($1,%uhex.n,2) == 78) %uhex.u = %uhex.u $+ x
n65=  elseif ($mid($1,%uhex.n,2) == 79) %uhex.u = %uhex.u $+ y
n66=  elseif ($mid($1,%uhex.n,2) === 7A) %uhex.u = %uhex.u $+ z
n67=  elseif ($mid($1,%uhex.n,2) == 30) %uhex.u = %uhex.u $+ 0
n68=  elseif ($mid($1,%uhex.n,2) == 31) %uhex.u = %uhex.u $+ 1
n69=  elseif ($mid($1,%uhex.n,2) == 32) %uhex.u = %uhex.u $+ 2
n70=  elseif ($mid($1,%uhex.n,2) == 33) %uhex.u = %uhex.u $+ 3
n71=  elseif ($mid($1,%uhex.n,2) == 34) %uhex.u = %uhex.u $+ 4
n72=  elseif ($mid($1,%uhex.n,2) == 35) %uhex.u = %uhex.u $+ 5
n73=  elseif ($mid($1,%uhex.n,2) == 36) %uhex.u = %uhex.u $+ 6
n74=  elseif ($mid($1,%uhex.n,2) == 37) %uhex.u = %uhex.u $+ 7
n75=  elseif ($mid($1,%uhex.n,2) == 38) %uhex.u = %uhex.u $+ 8
n76=  elseif ($mid($1,%uhex.n,2) == 39) %uhex.u = %uhex.u $+ 9
n77=  elseif ($mid($1,%uhex.n,2) == 60) %uhex.u = %uhex.u $+ $chr(96)
n78=  elseif ($mid($1,%uhex.n,2) === 5E) %uhex.u = %uhex.u $+ $chr(94)
n79=  elseif ($mid($1,%uhex.n,2) === 2D) %uhex.u = %uhex.u $+ $chr(45)
n80=  elseif ($mid($1,%uhex.n,2) === FA) %uhex.u = %uhex.u $+ $chr(95)
n81=  elseif ($mid($1,%uhex.n,2) === 5B) %uhex.u = %uhex.u $+ $chr(91)
n82=  elseif ($mid($1,%uhex.n,2) === 7B) %uhex.u = %uhex.u $+ $chr(123)
n83=  elseif ($mid($1,%uhex.n,2) === 5D) %uhex.u = %uhex.u $+ $chr(93)
n84=  elseif ($mid($1,%uhex.n,2) === 7D) %uhex.u = %uhex.u $+ $chr(125)
n85=  elseif ($mid($1,%uhex.n,2) == 27) %uhex.u = %uhex.u $+ $chr(39)
n86=  elseif ($mid($1,%uhex.n,2) === 5C) %uhex.u = %uhex.u $+ $chr(92)
n87=  elseif ($mid($1,%uhex.n,2) === 7C) %uhex.u = %uhex.u $+ $chr(124)
n88=  inc %uhex.n 2
n89=  goto begin
n90=}