Ben PHP içine bu dönüştürme yardıma ihtiyacım var:
Public Function Encrypt(ByVal text As String) As String
Dim charSet1 As String, charSet2 As String, i As Long
Dim pos As Long, encryptedChar, encryptedText
charSet1 = " ?!@#$%^&*()_+|0123456789abcdefghijklmnopqrstuvwxyz.,-~ABCDEFGHIJKLMNOPQRSTUVWXYZ¿¡²³ÀÁÂÃÄÅÒÓÔÕÖÙÛÜàáâãä娶§Ú¥"
charSet2 = " ¿¡@#$%^&*()_+|01²³456789ÀbÁdÂÃghÄjklmÅÒÓqÔÕÖÙvwÛÜz.,-~AàáâãFGHäJKåMNضQR§TÚVWX¥Z?!23acefinoprstuxyBCDEILOPSUY"
For i = 1 To Len(text)
pos = InStr(charSet1, Mid(text, i, 1))
If pos > 0 Then
encryptedChar = Mid(charSet2, pos, 1)
encryptedText = encryptedText + encryptedChar
Else
encryptedText = encryptedText + Mid(text, i, 1)
End If
Next
Encrypt = encryptedText
End Function
Visual Basic PHP İÇİN ...
Benim web sitesi için yukarıdaki ama PHP sunulan gibi bir şey karma bir metin yapıyorum .. Yukarıdaki kod ev yapımı yüzden MD5 veya SHA1 gibi kendi bir şey. Ama siz Visual basic 2008 yılında MD5 şifrelemek ve şifresini çözmek için bir yol biliyorum eğer bana göstermek lütfen! (Bu aynı zamanda PHP için çalışmalıyız).