encrypt and decrypt password

dear all,

I have vb net coding like this:

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

how to write this syntag to php script?....thank you all

--
Like Us on FaceBook https://www.facebook.com/CakePHP
Find us on Twitter http://twitter.com/CakePHP

---
You received this message because you are subscribed to the Google Groups "CakePHP" group.
To unsubscribe from this group and stop receiving emails from it, send an email to cake-php+unsubscribe@googlegroups.com.
To post to this group, send email to cake-php@googlegroups.com.
Visit this group at http://groups.google.com/group/cake-php.
For more options, visit https://groups.google.com/d/optout.