@program net-icq-enc.muf
1 1000 d
i
$include $lib/alynna
$include $lib/tcpip
$def SERVICE 28
$def ENCRYPT SERVICE "key" getlsock me @ name strdecrypt strencrypt
$def DECRYPT dest @ str "/_ftc/" SERVICE "/key" cat getprop tostr dest @ name strdecrypt strdecrypt
lvar param
 
: rpc-event
var port
var dest
var request
port ! dest ! request !
dest @ request @ DECRYPT "ICQ/" me @ name strcat pretty ansi_notify
; PUBLIC rpc-event
 
: message
var target
var msg
param @ "=" explode dup 2 = not if popn "Format: +icq <name/ip>=<message>" "ICQ" pretty tellme exit else pop then 
target ! msg ! 
target @ resolver ip2ref #-1 dbcmp if "Subscriber not found." "ICQ" pretty tellme exit then
target @ resolver ip2ref str "/_ftc/" SERVICE "/key" cat getprop not if
 "Target has no encryption key set." "ICQS" pretty tellme exit then
msg @ ENCRYPT target @ resolver SERVICE rpc
msg @ str "ICQ/" me @ name "->" target @ resolver ip2ref name cat pretty tellme
;
 
: setpw
SERVICE "key" param @ me @ name strencrypt setlsock
"Crypt key set." "ICQS" pretty tellme
;
 
: main
param !
command @ "+icqs" smatch if message exit then
command @ "+icqkey" smatch if setpw exit then
;
.
c
q