Something

on $*:text:/^!(asc|ascii)/si:#:{ 
  notice $nick 10The String4 $2- 10Has Been Changed To4 $sasc($2-)
}
on $*:text:/^@(asc|ascii)/si:#:{ 
  msg $chan 10The String4 $2- 10Has Been Changed To4 $sasc($2-)
}
alias sasc { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x }  | return $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }