+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 (/showthread.php?tid=21970)
كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 - الماجيك مسعد - 03-10-17
السلام عليكم
ازاى اشفر
"ههههه"
الى
%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
RE: كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 - a.ahmed - 03-10-17
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
RE: كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 - الماجيك مسعد - 04-10-17
بارك الله فيك استاذ احمد
RE: كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 - السندبااد - 16-10-17
(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
إلى:
ههههه
أي تحويل:
%u0647%u0647%u0647%u0647%u0647
إلى:
ههههه
RE: كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 - a.ahmed - 16-10-17
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