These will only do it for a length of 32
report zrich_0002.
parameters: p_pass type FIEB_ENCRYPTED_PASSWD..
data: encrypted type FIEB_ENCRYPTED_PASSWD.
data: decrypted type FIEB_ENCRYPTED_PASSWD.
call function 'FIEB_PASSWORD_ENCRYPT'
exporting
im_decrypted_password = p_pass
importing
ex_encrypted_password = encrypted.
call function 'FIEB_PASSWORD_DECRYPT'
exporting
im_encrypted_password = encrypted
importing
ex_decrypted_password = decrypted.
write:/ p_pass.
write:/ encrypted.
write:/ decrypted.
Regards,
Rich Heilman
- SAP Managed Tags:
This code works very well in my system. I have heard that it does not work so well in other systems.
In this sample program, I have copied out all of the code which was in the function modules of the previous sample program. Here I have made a couple changes that allow you to have a 50 character field. You could just copy the function group/function modules into "Z" versions and make the changes there, then just use the "Z" functions.
[code]
report zrich_0001.
constants:
This are the characters that are allowed for the decrypted password
co_password_characters(94) type c value
' !"#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ' &
'RSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~',
number of passwrod characters
co_number_of_characters type i value 94,
max length of the encrypted and of the decrypted password
co_password_length type i value <b>50</b> " Make a change here, make it 50,
This is the key
co_key<b>(50) " Make a change here, make it 50</b> type c value
'Wz=M?LrU&N\`E!@mBb K/n)e;SvR+Da['.
parameters: p_pass(50) type c .
data: encrypted(50) type c .
data: decrypted(50) type c .
perform encrypt_password
using
p_pass
changing
encrypted.
perform decrypt_password
using
encrypted
changing
decrypted.
write:/ p_pass.
write:/ encrypted.
write:/ decrypted.
----
FORM ENCRYPT_PASSWORD *
----
........ *
----
--> IM_DECRYPTED_PASSWORD *
--> CH_ENCRYPTED_PASSWORD *
----
form encrypt_password using im_decrypted_password
changing ch_encrypted_password.
We use a simple 'Vigenere-Chiffre' (but with a long key) and
add a accumulated index to it.
By now the encrypted and the decrypted password have the same
length (32)
data:
l_index type i,
l_number type i,
l_key_val type i,
l_passwd_val type i,
l_accumulate type i.
clear ch_encrypted_password.
l_index = 0.
l_accumulate = 0.
encrypt the maximal length of the decrypted password, not just the
filled part of the decrypted password
do co_password_length times.
check out the index in the key
perform character_search
using
co_password_characters
co_key+l_index(1)
changing
l_key_val.
check out the index in the decrypted password
perform character_search
using
co_password_characters
im_decrypted_password+l_index(1)
changing
l_passwd_val.
calculate the index of the character for the encrypted password
l_number = ( l_accumulate + l_key_val + l_passwd_val ) mod
co_number_of_characters.
ch_encrypted_password+l_index(1) =
co_password_characters+l_number(1).
l_index = l_index + 1.
Accumulate the index of the characters in the decrypted password
l_accumulate = l_accumulate + l_passwd_val.
enddo.
endform. " ENCRYPT_PASSWORD
----
FORM DECRYPT_PASSWORD *
----
........ *
----
--> IM_ENCRYPTED_PASSWORD *
--> CH_DECRYPTED_PASSWORD *
----
form decrypt_password using im_encrypted_password
changing ch_decrypted_password.
We use a simple 'Vigenere-Chiffre' (but with a long key) and
add a accumulated index to it.
By now the encrypted and the decrypted password have the same
length (32)
data:
l_index type i,
l_number type i,
l_key_val type i,
l_passwd_val type i,
l_accumulate type i.
clear ch_decrypted_password.
l_index = 0.
l_accumulate = 0.
encrypt the maximal length of the decrypted password, not just the
filled part of the decrypted password
do co_password_length times.
check out the index in the key
perform character_search
using
co_password_characters
co_key+l_index(1)
changing
l_key_val.
check out the index in the encrypted password
perform character_search
using
co_password_characters
im_encrypted_password+l_index(1)
changing
l_passwd_val.
calculate the index of the character for the encrypted password
l_number = ( l_passwd_val - l_accumulate - l_key_val ) mod
co_number_of_characters.
ch_decrypted_password+l_index(1) =
co_password_characters+l_number(1).
l_index = l_index + 1.
Accumulate the index of the characters in the decrypted password
l_accumulate = l_accumulate + l_number.
enddo.
endform. " DECRYPT_PASSWORD
----
FORM character_search *
----
........ *
----
--> IM_STRING *
--> IM_CHARACTER *
--> CH_POS *
----
form character_search using im_string
im_character
changing ch_pos type i.
data:
l_index type i,
l_length type i.
describe field im_string length l_length.
ch_pos = -1.
l_index = 0.
do l_length times.
if im_string+l_index(1) = im_character.
ch_pos = l_index.
exit.
endif.
l_index = l_index + 1.
enddo.
endform. " character_search
[/code]
Again, this may not even work in your system. It works in mine.
Regards,
Rich Heilman
- SAP Managed Tags:
Check my last post...... This sample program uses the code in those function modules, I changed it so that it will handle 50.
Regards,
Rich Heilman
- SAP Managed Tags:
