Code Table in Purebasic_Decoder

; hunhacker.blogspot.com
; 2015.05.16

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

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

  ProcedureReturn decode$

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 Decode: ")
decoded$ = Input()
PrintN("")
PrintN("[*] Decoded: "+D_Zcrypt(decoded$))