آشنایی با روشهای کد کردن رشته ها و اعداد

در این تایپیک قصد داریم که روشهای گوناگون کد کردن رشته ها و اعداد رو بیان کنیم.
امیدوارم دوستان همکاری کنند.
به عنوان اولین روش ,روش زیر رو بیان میکنم

Public Function DECODER(SS As String) As String

Dim Str As String

Dim US As String

For i = 1 To Len(SS)

Str = Mid(SS, i, 1)

    Select Case LCase(Str)

      Case "|": US = US & "A"

      Case "#": US = US & "C"

      Case "^": US = US & "D"

      Case "'": US = US & "E"

      Case "`": US = US & "H"

      Case "@": US = US & "I"

      Case ";": US = US & "K"

      Case ",": US = US & "M"

      Case "!": US = US & "N"

      Case "%": US = US & "O"

      Case "$": US = US & "S"

      Case "?": US = US & "T"

      Case "*": US = US & "W"

      Case "~": US = US & "Y"

     

     Case Else: US = US & UCase(Str)

      

    End Select

Next i

DECODER = US

End Function

Public Function CODER(SS As String) As String

Dim Str As String

Dim US As String

For i = 1 To Len(SS)

Str = Mid(SS, i, 1)

    Select Case LCase(Str)

    

    Case "a": US = US & "|"

    Case "c": US = US & "#"

    Case "d": US = US & "^"

    Case "e": US = US & "'"

    Case "h": US = US & "`"

    Case "i": US = US & "@"

    Case "k": US = US & ";"

    Case "m": US = US & ","

    Case "n": US = US & "!"

    Case "o": US = US & "%"

    Case "s": US = US & "$"

    Case "t": US = US & "?"

    Case "w": US = US & "*"

    Case "y": US = US & "~"

    

      Case Else: US = US & UCase(Str)

      

    End Select

Next i

CODER = US

End Function

با کپی کردن کدهای فوق در یک ماژول میتونین با دستورات زیر نوشته ها رو کد یا دکد کنید:
برای کد کردن:

CODER ("Hello")

برای دکد کردن:

DECODER ("`'LL%")

البته بدی روش فوق اینه که حرفهای کوچک و بزرگ به یک صورت کد میشن
و اعداد کد نمیشن

سلام .

خوب این روش خیلی ساده هستش ! (البته می دونم برای شروع گفتید)

مشکل این روش ها اینه که اگه بخواین یک فایل رو با این روش کد کنید و بعد ذخیره کنید ، خیلی زود الگوریتم کد کردن لو میره .

شما به این تاپیک مراجعه کنید ، فایل ضمیمه این تاپیک که برای کد کردن یه رشته هستش رو ببینید
https://barnamenevis.org/showthread.php?t=111453

می بینید که یه الگوریتم جالب واسه اینکار داره و هیچ وقت به طور ثابت رشته رو کد نمی کنه ، شما یه رشته بهش بدین بعد می بینید که در هر بار کد کردن مقدار بدست آمده کاملا با دفعه پیش متفاوت هستش.

روش اول روش خوب و قدرتمندیه اما یه مشکل داره.
فرض کنید میخوایم یه نوشته رو Code کنیم و در یک فایل txt ذخیره کنیم.
خودتون اینکارو انجام بدید ,خواهید دید که در Decode کردن براتون مشکل پیش میاد

تطفا روش کد کردن به بیس64 و بالعکس را بذارید