help in encrypt , decrypt code[closed]

[3bas_Elhendy]

[Edit]
I getted it

I was testing set password for all encrypting and decrypting.

Code Select Expand

include \masm32\MasmBasic\MasmBasic.inc
;.data
;  Password db "AMU", 0

  Init
  Let esi = Qtrim$(CL$())                 
  .if Exist(esi)
    Let edi = "ahmed"                 
    Encrypt esi, edi                     
    PrintLine "Encoded as ", eax         
    Kill esi                             
  .else
    PrintLine "No commandline found: ", esi
  .endif
EndOfCode

Code Select Expand

include \masm32\MasmBasic\MasmBasic.inc
;.data
;  Password db "AMU", 0
;
  Init
  Let esi = Qtrim$(CL$())                 
  .if Exist(esi)
    Let edi = "ahmed"                     
    Decrypt esi, edi                     
    PrintLine "Decoded as ", eax         
    ;Kill esi                             
  .else
    PrintLine "No commandline found: ", esi
  .endif
EndOfCodebut always got bad password