• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 15 رای - 2.47 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد رمز نگاری Url یا همان لینک
حالت موضوعی
#1
با سور زیر میتونید رشته های یک لینک یا همان 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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 5,970 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 10,597 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 3,520 05-20-2014، 12:17 AM
آخرین ارسال: aleas
  مشکل در سورس ثبت نام tiktak990 3 6,826 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 7,421 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  سورس کد دانلود فایل Amin_Mansouri 1 8,443 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra

پرش به انجمن:


Browsing: 2 مهمان