اريد تحويل هذه الوظيفة الى لغة اخرى ودمتم

حاول الإطلاع على تشفير العناوين في .net والإختلافات مع asp القديمة

بالنسبة للعناوين url كيف يتم تشفيرها .

http://ims.co.nz/blog/archive/2005/01/14/284.aspx

مثال في aspx يعني net.

<%@ Page Language="VB" %> 
<%@ Import Namespace="System.Web.HttpUtility" %> 

<% 

'URLEncoding Demonstrated 
Dim strURL as String = "next.aspx?param1=1&param2=2" 
Dim strURLEncodedText As String = UrlEncode(strURL) 

Response.write("The URL Encoded Text is <br> ") 
Response.write(strURLEncodedText & "<br>") 

'HtmlEncoding Demonstrated 

Dim strHTML As String = "<b>Text within Bold Tag</b>" 
Dim strHTMLEncodedText As String = HtmlEncode(strHTML) 

Response.write("The HTML Encoded Text is <br> ") 
Response.write(strHTMLEncodedText & "<br>") 

%>

التالي في vb.net مثال حول التشفير يمكن الإستفادة منه

Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings

Class UTF8EncodingExample

	Public Shared Sub Main()
		' Create a UTF-8 encoding.
		Dim utf8 As New UTF8Encoding()

		' A Unicode string with two characters outside an 8-bit code range.
		Dim unicodeString As String = _
			"This unicode string contains two characters " & _
			"with codes outside an 8-bit code range, " & _
			"Pi (" & ChrW(928) & ") and Sigma (" & ChrW(931) & ")."
		Console.WriteLine("Original string:")
		Console.WriteLine(unicodeString)

		' Encode the string.
		Dim encodedBytes As Byte() = utf8.GetBytes(unicodeString)
		Console.WriteLine()
		Console.WriteLine("Encoded bytes:")
		Dim b As Byte
		For Each b In  encodedBytes
			Console.Write("[{0}]", b)
		Next b
		Console.WriteLine()

		' Decode bytes back to string.
		' Notice Pi and Sigma characters are still present.
		Dim decodedString As String = utf8.GetString(encodedBytes)
		Console.WriteLine()
		Console.WriteLine("Decoded bytes:")
		Console.WriteLine(decodedString)
	End Sub
End Class

بالتوفيق