Number Encode/Decode

By elvara on Apr 14, 2009

Number Encode/Decode
Ex: //echo -a $nEncode(TEXT TO NUMBERS)
R.: 0025005002-00206-05008042509001

Ex: //echo -a $nDecode(0025005002-00206-05008042509001)
R: TEXT TO NUMBERS

/*_____________________________________________________________________________
|/
|  This add-on provides a set of identifiers that can be useful to scripts
|  that deal with security.
|
|  The script defines the following commands/identifiers:
|
|  $nEncode(Your String Here)
|  Example: $nEncode(Hello my username is fred)
|
|    Encodes the text into numbers.
|
|  $nDecode(Your number string)
|  Example: $nDecode(000-21-080808)
|
|    Decodes the numbers into letters, reaveling the encrypted string.
|
|
|  Efficiency Test
|
|  200 Encryptions == 100% Efficient.
|  200 Decryptions == 100% Efficient.
|
\
_\_____________________________________________________________________________
*/

alias nEncode {
  var %mystring = $1- | var %mystring.a = $replace(%mystring,A,1) | var %mystring.b = $replace(%mystring.a,B,2) | var %mystring.c = $replace(%mystring.b,C,3) | var %mystring.d = $replace(%mystring.c,D,4) | var %mystring.e = $replace(%mystring.d,E,5) | var %mystring.f = $replace(%mystring.e,F,6) | var %mystring.g = $replace(%mystring.f,G,7) | var %mystring.h = $replace(%mystring.g,H,8) | var %mystring.i = $replace(%mystring.h,I,9) | var %mystring.j = $replace(%mystring.i,J,01) | var %mystring.k = $replace(%mystring.j,K,02) | var %mystring.l = $replace(%mystring.k,L,03) | var %mystring.m = $replace(%mystring.l,M,04) | var %mystring.n = $replace(%mystring.m,N,05) | var %mystring.o = $replace(%mystring.n,O,06) | var %mystring.p = $replace(%mystring.o,P,07) | var %mystring.q = $replace(%mystring.p,Q,08) | var %mystring.r = $replace(%mystring.q,R,09)
  var %mystring.s = $replace(%mystring.r,S,001) | var %mystring.t = $replace(%mystring.s,T,002) | var %mystring.v = $replace(%mystring.t,V,003) | var %mystring.w = $replace(%mystring.v,W,004) | var %mystring.x = $replace(%mystring.w,X,005) | var %mystring.y = $replace(%mystring.x,Y,006) | var %mystring.z = $replace(%mystring.y,Z,007) | var %mystring.last = $replace(%mystring.z,u,008) | var %mystring.new = $replace(%mystring.last,$chr(32),-) | return %mystring.new
}
alias nDecode {
  var %mystring = $1- | var %mystring.last = $replace(%mystring,008,U) | var %mystring.z = $replace(%mystring.last,007,Z) | var %mystring.y = $replace(%mystring.z,006,Y) | var %mystring.x = $replace(%mystring.y,005,X) | var %mystring.w = $replace(%mystring.x,004,W) | var %mystring.v = $replace(%mystring.w,003,V) | var %mystring.t = $replace(%mystring.v,002,T) | var %mystring.s = $replace(%mystring.t,001,S) | var %mystring.r = $replace(%mystring.s,09,R) | var %mystring.q = $replace(%mystring.r,08,Q) | var %mystring.p = $replace(%mystring.q,07,P) | var %mystring.o = $replace(%mystring.p,06,O) | var %mystring.n = $replace(%mystring.o,05,N) | var %mystring.m = $replace(%mystring.n,04,M) | var %mystring.l = $replace(%mystring.m,03,L)
  var %mystring.k = $replace(%mystring.l,02,K) | var %mystring.j = $replace(%mystring.k,01,J) | var %mystring.i = $replace(%mystring.j,9,I) | var %mystring.h = $replace(%mystring.i,8,H) | var %mystring.g = $replace(%mystring.h,7,G) | var %mystring.f = $replace(%mystring.g,6,F) | var %mystring.e = $replace(%mystring.f,5,E) | var %mystring.d = $replace(%mystring.e,4,D) | var %mystring.c = $replace(%mystring.d,3,C) | var %mystring.b = $replace(%mystring.c,2,B) | var %mystring.a = $replace(%mystring.b,1,A) | return $replace(%mystring.a,-,$chr(32))
} 

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.