.:KeihanCPU:.
جمعه 28 تیر 1387, 10:09 صبح
در این تایپیک قصد داریم که روشهای گوناگون کد کردن رشته ها و اعداد رو بیان کنیم.
امیدوارم دوستان همکاری کنند.
به عنوان اولین روش ,روش زیر رو بیان میکنم
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%")
البته بدی روش فوق اینه که حرفهای کوچک و بزرگ به یک صورت کد میشن
و اعداد کد نمیشن
امیدوارم دوستان همکاری کنند.
به عنوان اولین روش ,روش زیر رو بیان میکنم
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%")
البته بدی روش فوق اینه که حرفهای کوچک و بزرگ به یک صورت کد میشن
و اعداد کد نمیشن