Kaskus

Tech

himawandjayaAvatar border
TS
himawandjaya
encrypt dan decrypt password
encrypt dan decrypt password


halo agan2 salam kenal....mohon bantuan agan2 yg hebat2......
saya punya koding encrypt dan decrypt untuk vb.net spt dibawah ini:

Public Function Encrypt(ByVal StringToEncrypt As String, Optional ByVal AlphaEncoding As Boolean = False) As String
Dim nChar As String
Encrypt = ""

Try
For i = 1 To Len(StringToEncrypt)
nChar = Asc(Mid(StringToEncrypt, i, 1))
Encrypt = Encrypt & Len(nChar) & nChar
Next i

If AlphaEncoding Then

StringToEncrypt = Encrypt
Encrypt = ""

For i = 1 To Len(StringToEncrypt)
Encrypt = Encrypt & Chr(Mid(StringToEncrypt, i, 1) + 147)
Next i

End If

Catch ex As Exception
cMsg.ShowMsg(ex.Message & vbCrLf & Err.Source, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Err Number : " & Err.Number)
End Try
End Function




Public Function Decrypt(ByVal StringToDecrypt As String, Optional ByVal AlphaDecoding As Boolean = False) As String
Decrypt = ""

Try
If AlphaDecoding Then
Decrypt = StringToDecrypt
StringToDecrypt = ""

For i = 1 To Len(Decrypt)
StringToDecrypt = StringToDecrypt & (Asc(Mid(Decrypt, i, 1)) - 147)
Next i
Decrypt = StringToDecrypt
End If

Decrypt = ""
Do
Dim CharPos As Integer = Left(StringToDecrypt, 1)
StringToDecrypt = Mid(StringToDecrypt, 2)
Dim CharCode As String = Left(StringToDecrypt, CharPos)
StringToDecrypt = Mid(StringToDecrypt, Len(CharCode) + 1)
Decrypt = Decrypt & Chr(CharCode)
Loop Until StringToDecrypt = ""

Catch ex As Exception
cMsg.ShowMsg(ex.Message & vbCrLf & Err.Source, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Err Number :" & Err.Number & _
"(Err Decrypt)")
End Try
End Function

bagaimana menulis syntagnya di cakephp?

terima kasih semuanya...salam....himawan
0
766
0
GuestAvatar border
Komentar yang asik ya
GuestAvatar border
Komentar yang asik ya
Komunitas Pilihan