SAP Abap Custom SSO token login fonction

SAP Fiori

 

 

 

 

 

FUNCTION UNAME_LOGIN_SSO_TOKEN.
*”———————————————————————-
*”*”Local Interface:
*”  IMPORTING
*”     VALUE(UNAME) TYPE  SY-UNAME
*”     VALUE(TOKENSIFRE) TYPE  STRING
*”     REFERENCE(TARIHDAMGASI) TYPE  FLAG OPTIONAL
*”     REFERENCE(SAATDAMGASI) TYPE  FLAG OPTIONAL
*”  EXPORTING
*”     REFERENCE(TOKEN) TYPE  MD5_FIELDS-HASH
*”———————————————————————-

” ————————————————–
” Single Sign On – Token Login
” creater  : Burhan KARADERE
” Date     : 12.06.2015
” Versiyon : v1
” ————————————————–
” Kullanımı
” ————————————————–
” Token formülü algoritmasi
” kullaniciadi + gunun tarihi + gununsaati + tokenşifresi 
” ————————————————–

data token_str type string ” token formul  algoritmasi
data token_tarih(10type ” 12.06.2015
data token_saat(6type ” 15:30
data token_lengt type ” token string uzunlugu

if tarihdamgasi eq ‘X’.
” tarih 12.06.2015
concatenate  sydatum+6(2)  ‘.’ sydatum+4(2)  ‘.’  sydatum(4into token_tarih .
ELSE.
CLEAR token_tarih.
ENDIF.

if saatdamgasi eq ‘X’.
” saat 15:30 biçeminde
concatenate  syuzeit(2)  ‘:’ syuzeit+2(2)   into token_saat .
ELSE.
CLEAR token_saat.
ENDIF.

CONCATENATE syuname token_tarih token_saat  tokensifre into  token_str  .

CONDENSE token_str NOGAPS .

token_lengt =  STRLENtoken_str )” uzunluk

CALL FUNCTION ‘MD5_CALCULATE_HASH_FOR_CHAR’
EXPORTING
DATA                 token_str
LENGTH               token_lengt
VERSION              1
IMPORTING
HASH                 token
* TABLES
*   DATA_TAB             =
EXCEPTIONS
NO_DATA              1
INTERNAL_ERROR       2
OTHERS               3
.
IF sysubrc <> 0.

token =  ‘Token hesaplanamadı’ .

ENDIF.

ENDFUNCTION.

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)