Encode/Decode for mIRC 4.7 
LaSeRs CoDe by Laserkid
-----

-Everyone with the code must be set to uselevel 15
-Type /ec <text> to send

-----

Popups Name List:

Code Users
.Add to List: /auser -a =15 $1 3
.Remove From List: /ruser 15 $address($1,3)
-----

Events:

+15:ON TEXT:4,1LaSeRs CoDe*:#:echo 4 $chan $nick $decode($parm2*)
+15:ON TEXT:4,1LaSeRs CoDe*:?:echo 4 $nick $decode($parm2*)
--

Aliases:

ec say $encode(*1)
decode { 
  set %bd *1
  set %bd $replace(%bd,±,a)
  set %bd $replace(%bd,_,b)
  set %bd $replace(%bd,Ï,c)
  set %bd $replace(%bd,õ,d)
  set %bd $replace(%bd,ô,e)
  set %bd $replace(%bd,ó,f)
  set %bd $replace(%bd,ñ,g)
  set %bd $replace(%bd,²,h)
  set %bd $replace(%bd,¯,i)
  set %bd $replace(%bd,Í,j)
  set %bd $replace(%bd,ì,k)
  set %bd $replace(%bd,ë,l)
  set %bd $replace(%bd,ê,m)
  set %bd $replace(%bd,É,n)
  set %bd $replace(%bd,Ç,o)
  set %bd $replace(%bd,,Æ,p)
  set %bd $replace(%bd,¦,q)
  set %bd $replace(%bd,§,r)
  set %bd $replace(%bd,à,s)
  set %bd $replace(%bd,À,t)
  set %bd $replace(%bd,¶,u)
  set %bd $replace(%bd,¢,v)
  set %bd $replace(%bd,£,w)
  set %bd $replace(%bd,Þ,x)
  set %bd $replace(%bd,ß,y)
  set %bd $replace(%bd,¿,z)
  return %bd
}
encode { 
  set %bd *1
  set %bd $replace(%bd,a,±)
  set %bd $replace(%bd,b,_)
  set %bd $replace(%bd,c,Ï)
  set %bd $replace(%bd,d,õ)
  set %bd $replace(%bd,e,ô)
  set %bd $replace(%bd,f,ó)
  set %bd $replace(%bd,g,ñ)
  set %bd $replace(%bd,h,²)
  set %bd $replace(%bd,i,¯)
  set %bd $replace(%bd,j,Í)
  set %bd $replace(%bd,k,ì)
  set %bd $replace(%bd,l,ë)
  set %bd $replace(%bd,m,ê)
  set %bd $replace(%bd,n,É)
  set %bd $replace(%bd,o,Ç)
  set %bd $replace(%bd,p,Æ)
  set %bd $replace(%bd,q,¦)
  set %bd $replace(%bd,r,§)
  set %bd $replace(%bd,s,à)
  set %bd $replace(%bd,t,À)
  set %bd $replace(%bd,u,¶)
  set %bd $replace(%bd,v,¢)
  set %bd $replace(%bd,w,£)
  set %bd $replace(%bd,x,Þ)
  set %bd $replace(%bd,y,ß)
  set %bd $replace(%bd,z,¿)
  set %bd 4,1LaSeRs CoDe1,0 %bd
  return %bd
}