کد کردن نوشته

[xrezax]

دوستان این نوشته چطوری کد شده ؟؟

%D8%B3%D9%81%D8%A7%D8%B1%D8%B4&

از چه متدی

[setroyd]

از کجا میشه فهمید این نوشته با چه الگریتمی نوشته شده ! این سازنده بوده که الگریتم رو داشته نمیشه فهمید اگر هم بشه کار نرم افزار های decode کردن .

[محسن واژدی]

سلام علیکم
این یک رشته هگزاد شده هست (بیشتر در URLها میبینیم)، تابع زیر رشته را به حالت اولیه برمیگرداند:
Public Function UnHexStr(ByVal sHex$) As String
Dim vCC
For Each vCC In Split(sHex$, "%")
If vCC > "" Then
UnHexStr = UnHexStr & Chr(CLng("&H" & vCC))
End If
Next
End Function

به عنوان مثال برای ارسال رشته فعلی به تابع فوق میشود:
Dim sUH$
sUH$ = UnHexStr("%D8%B3%D9%81%D8%A7%D8%B1%D8%B4")

مقدار برگشتی:
ط³ظپط§ط±ط´

نتیجه بالا انکد شده است که برای دیکد کردن آن ابتدا کدهای پست زیر را در یک ماژول قرار بدین:
http://barnamenevis.org/showthread.php?342201-%D9%85%D8%B4%DA%A9%D9%84-%D9%88%DB%8C%D9%86%D8%B3%D9%88%DA%A9-%D8%AF%D8%B1-%D9%BE%D8%B4%D8%AA%DB%8C%D8%A8%D8%A7%D9%86%DB%8C-%D8%A7%D8%B2-%D8%B2%D8%A8%D8%A7%D9%86-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C&p=1509771&viewfull=1#post1509771

سپس نتیجه را به تابع UTF8_Decode ارسال میکنیم:
MsgBox UTF8_Decode("ط³ظپط§ط±ط´")

که واژه "سفارش" یعنی مقصود نهایی ما برگشت داده میشود

بطور کلی دستورات ما شد:
Private Sub Command1_Click()
Dim sUH$
sUH$ = UnHexStr("%D8%B3%D9%81%D8%A7%D8%B1%D8%B4")
sUH$ = UTF8_Decode(sUH$)
MsgBox "Result: " & sUH$
End Sub

موفق باشید

[yassale]

یه ایده میدم شاید به دردت خورد
می تونی به صورت یه لینک ایجادش کنی متن رو بخونه مثلاً :

http://www.google.com/%D8%B3%D9%81%D8%A7%D8%B1%D8%B4