How to Encrypt

Question

Hiii Everybody,
We are developing a tool. in that for the client to enter a transaction he must enter the password. if the password is correct he is allowed to go inside the transaction. so i want to know is there any method using which i can encrypt the password in SAP. i dont want to use the function modules because it contains the decryption also. the decryption method must be known only to us and not the client. can somebody help me out on this??

Answer 1

hi,
reference ..
http://www.sap-img.com/abap/function-module-for-encryption-and-decryption.htm
Use the following FM to encrypt
CALL FUNCTION 'FIEB_PASSWORD_ENCRYPT'
Use the following FM to decrypt
CALL FUNCTION 'FIEB_PASSWORD_DECRYPT'
By these FM you can encrypt & decrypt any fields of the Program.
Two more things:
1. You can't use these FM to decode user passwords.
2. Although their import parameters are case sensitive, when you test them from se37, the import parameters are converted to uppercase (thus, it may seem that they aren't working). A suggestion: encapsulate them in a custom FM that receives a string to be encrytped/decrypted and a parameter that says if you want to encrypt or decrypt and call this fm from your program. Test them very carefully, because once the string has been encrypted the decryption side is the only way to get it back.
function zsecurtext.
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(INTEXT) TYPE  FIEB_DECRYPTED_PASSWD OPTIONAL
*"     REFERENCE(ENCRYPT) TYPE  C OPTIONAL
*"  EXPORTING
*"     REFERENCE(OUTTEXT) TYPE  FIEB_DECRYPTED_PASSWD
** NOTE: This code doesn't work if run from se37. You should
** encrypt
  if encrypt = 'X'.
    call function 'FIEB_PASSWORD_ENCRYPT'
         exporting
              im_decrypted_password = intext
         importing
              ex_encrypted_password = outtext.
   else.
******** Decrypting *******************
    call function 'FIEB_PASSWORD_DECRYPT'
         exporting
              im_encrypted_password = intext
         importing
              ex_decrypted_password = outtext.
  endif.
endfunction.
rgds
Anver