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