- Beranda
- Komunitas
- Tech
- Website, Webmaster, Webdeveloper
encrypt dan decrypt password
TS
himawandjaya
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
755
0
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan