منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647

السلام عليكم

ازاى اشفر

"ههههه"

الى

%u0647%u0647%u0647%u0647%u0647

اسف على الازعاج

لقد استخدمت فنكشن من الموضوع هذا
http://vb4arb.com/vb/showthread.php?tid=21959

الكود بعد التعديل اللازم

Function StringToHex(ByVal v As String) As String
Dim r As String, i As Integer, h As String
For i = 1 To Len(v)
h = "%u0" & Hex(AscW((Mid$(v, i, 1))))
r = r & IIf(Len(h) = 1, "0", "") & h
Next
StringToHex = r
End Function

PHP كود :

Function StringToUHex(ByVal v As String) As String
    Dim r As String = String.Empty
    For Each c As Char In v.ToCharArray
        r &= "%u" & AscW(c).ToString("x4")
    Next
    Return r
End Function 

بارك الله فيك استاذ احمد

(03-10-17, 08:33 AM)a.ahmed كتب : [ -> ]
PHP كود :

Function StringToUHex(ByVal v As String) As String Dim r As String = String.Empty For Each c As Char In v.ToCharArray r &= "%u" & AscW(c).ToString("x4") Next Return r End Function

أخي الكريم ماذا لو اردت عكس العملية
أي تحويل:
%u0647%u0647%u0647%u0647%u0647

إلى:
ههههه

PHP كود :

Function UHexToString(ByVal v As String) As String
    Dim r As String, i As Integer
    For i = 0 To v.Length - 6 Step 6
        r &= ChrW(Convert.ToInt32(v.Substring(i + 2, 4), 16))
    Next
    Return r
End Function 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الماجيك مسعد

a.ahmed

الماجيك مسعد

السندبااد

a.ahmed