Code Table in Purebasic_Encoder

; hunhacker.blogspot.com
; 2015.05.16

Procedure.s E_Zcrypt(encode$)
  encode$=ReplaceString(encode$,"a","'")
  encode$=ReplaceString(encode$,"b","+")
  encode$=ReplaceString(encode$,"c","!")
  encode$=ReplaceString(encode$,"d","§")
  encode$=ReplaceString(encode$,"e","%")
  encode$=ReplaceString(encode$,"f","/")
  encode$=ReplaceString(encode$,"g","=")
  encode$=ReplaceString(encode$,"h","(")
  encode$=ReplaceString(encode$,"i",")")
  encode$=ReplaceString(encode$,"j","\")
  encode$=ReplaceString(encode$,"k","*")
  encode$=ReplaceString(encode$,"l","-")
  encode$=ReplaceString(encode$,"m","?")
  encode$=ReplaceString(encode$,"n",">")
  encode$=ReplaceString(encode$,"o","<")
  encode$=ReplaceString(encode$,"p","}")
  encode$=ReplaceString(encode$,"q","{")
  encode$=ReplaceString(encode$,"r","^")
  encode$=ReplaceString(encode$,"s","&")
  encode$=ReplaceString(encode$,"t","#")
  encode$=ReplaceString(encode$,"u","[")
  encode$=ReplaceString(encode$,"v","##")
  encode$=ReplaceString(encode$,"w","$")
  encode$=ReplaceString(encode$,"x","@")
  encode$=ReplaceString(encode$,"y","^@")
  encode$=ReplaceString(encode$,"z","#@@")

  encode$=ReplaceString(encode$,"A","''")
  encode$=ReplaceString(encode$,"B","+@")
  encode$=ReplaceString(encode$,"C","-+*")
  encode$=ReplaceString(encode$,"D","-+-")
  encode$=ReplaceString(encode$,"E","0adc01")
  encode$=ReplaceString(encode$,"F","01as")
  encode$=ReplaceString(encode$,"G","2sdc0")
  encode$=ReplaceString(encode$,"H","0475")
  encode$=ReplaceString(encode$,"I","scg")
  encode$=ReplaceString(encode$,"J","fgvc")
  encode$=ReplaceString(encode$,"K","0gf5")
  encode$=ReplaceString(encode$,"L","4fgv")
  encode$=ReplaceString(encode$,"M","7rtv")
  encode$=ReplaceString(encode$,"N","04cvx")
  encode$=ReplaceString(encode$,"O","xy04")
  encode$=ReplaceString(encode$,"P","78rv0")
  encode$=ReplaceString(encode$,"Q","45dcx")
  encode$=ReplaceString(encode$,"R","72rtz0")
  encode$=ReplaceString(encode$,"S","c1s5")
  encode$=ReplaceString(encode$,"T","7xc1")
  encode$=ReplaceString(encode$,"U","75cxs")
  encode$=ReplaceString(encode$,"V","484xcy")
  encode$=ReplaceString(encode$,"W","fsx52")
  encode$=ReplaceString(encode$,"X","cx452")
  encode$=ReplaceString(encode$,"Y","cy485")
  encode$=ReplaceString(encode$,"Z","cacy54")

  ProcedureReturn encode$
EndProcedure

Procedure Banner()
PrintN(Chr(9)+"_________      ___________________                        __   ")
PrintN(Chr(9)+"\_   ___ \     \____    /\_   ___ \_______ ___.__._______/  |_ ")
PrintN(Chr(9)+"/    \  \/       /     / /    \  \/\_  __ <   |  |\____ \   __\")
PrintN(Chr(9)+"\     \____     /     /_ \     \____|  | \/\___  ||  |_> >  |  ")
PrintN(Chr(9)+" \______  /____/_______ \ \______  /|__|   / ____||   __/|__|")
PrintN(Chr(9)+"        \/_____/       \/        \/        \/     |__|     ")
EndProcedure

Banner()
PrintN("")
Print("[*] To Encode: ")
encoded$ = Input()
PrintN("")
PrintN("[*] Encoded: "+E_ZCrypt(encoded$))