+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس کد رمز نگاری Url یا همان لینک (/showthread.php?tid=1419)
سورس کد رمز نگاری Url یا همان لینک - Amin_Mansouri - 01-05-2012
با سور زیر میتونید رشته های یک لینک یا همان Url رو اینکود کنید چیز بدرد بخوریه
سورس کد :
کد:
Private Sub Form_Load()
MsgBox Encode("www.parsicoders.com")
End Sub
Function Encode(sEncode As String) As String
Dim i As Integer
Dim sCharacters As String
sCharacters = Replace(sEncode, "%", Chr(1))
sCharacters = Replace(sCharacters, "+", Chr(2))
For i = 0 To 255
Select Case i
Case 37, 43, 48 To 57, 65 To 90, 97 To 122
'Normal Characters
Case 1
sCharacters = Replace(sCharacters, Chr(i), "%25")
Case 2
sCharacters = Replace(sCharacters, Chr(i), "%2B")
Case 32
sCharacters = Replace(sCharacters, Chr(i), "+")
Case 3 To 15
sCharacters = Replace(sCharacters, Chr(i), "%0" & Hex(i))
Case 58
sCharacters = Replace(sCharacters, Chr(i), "%3A")
Case Else
sCharacters = Replace(sCharacters, Chr(i), "%" & Format(Hex(i), "00"))
End Select
Next
Encode = sCharacters
End Function