Fungsi Merubah Password-Password Encription

***************************************************

int  i,j, li_panjang, li_huruf1, li_huruf2, li_jarak
string ls_huruf1,ls_huruf2, ls_tampung

//masuk = masuk

li_panjang = Len(masuk)
if li_panjang < 1 then return char(0)
  
For i = 1 to li_panjang
  
    ls_huruf1 = Mid(masuk,i,1)            // huruf yang akan dikonversikan
    j = i + 1
    IF j > li_panjang THEN j = 1
  
    ls_huruf2 = Mid(masuk,j,1)            //patokan huruf
  
    li_huruf1 = ASC(ls_huruf1)
    li_huruf2 = ASC(ls_huruf2)
  
    li_jarak = li_huruf2 - li_huruf1
  
    IF li_jarak = 0 THEN li_jarak = li_huruf1
  
    li_huruf1 = (li_jarak * 2) + li_huruf2   //ini algoritmanya
  
    IF li_huruf1 < 0 THEN
        li_huruf1 = 255 - li_huruf1
    ELSEIF li_huruf1 > 255 THEN            // lihat perkaliannya bisa terjadi li_huruf2 = 255
        li_huruf1 = li_huruf1 - 255        // li_huruf1 = 255
        IF li_huruf1 > 255 THEN                // maka jadinya maksimum li_huruf1 -> 255 * 3 = 765
            li_huruf1 = li_huruf1 - 255
        END IF  
    END IF  

    ls_huruf1 = char(li_huruf1)

    ls_tampung = ls_tampung + ls_huruf1
Next

//messagebox(ls_tampung,STRING(LI_PANJANG))

IF li_panjang < 15 Then
    ls_tampung = wf_rubah_pass(masuk + ls_tampung)
  
END IF

IF LEN(ls_tampung) > 15 THEN ls_tampung = Mid(ls_tampung,1,15)

//messagebox(ls_tampung,STRING(LI_PANJANG))



Return ls_tampung

***************************************************

Sumber : view