[VB.NET] Morse Encode/Decode

  • 0 Respuestas
  • 2226 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fudmario

  • *
  • Underc0der
  • Mensajes: 198
  • Actividad:
    3.33%
  • Reputación 13
  • Skype: fudmario
    • Ver Perfil
    • fudmario - GitHub

[VB.NET] Morse Encode/Decode

  • en: Diciembre 04, 2016, 05:33:10 pm


Ejemplo de Uso:

Código: vb.net
  1. Dim textEnc As String = MorseEncDec.Morse(word:="EXAMPLE MORSE ENCODE DECODE FUNCTION",
  2.                                     mode:=Morse.Mode.Encode)
  3.  
  4. Dim textDec As String = MorseEncDec.Morse(word:=". -..- .- -- .--. .-.. .  -- --- .-. ... .  . -. -.-. --- -.. .  -.. . -.-. --- -.. .  ..-. ..- -. -.-. - .. --- -.",
  5.                                     mode:=Morse.Mode.Decode)
  6.  

Código: vb.net
  1. Public NotInheritable Class MorseEncDec
  2.     Public Enum Mode As Integer
  3.         [Encode] = 0I
  4.         [Decode] = 1I
  5.     End Enum
  6.     Public Shared Function Morse(ByVal word As String, mode As Mode) As String
  7.         Dim res As String = String.Empty
  8.         Dim dic As Dictionary(Of String, String)
  9.         dic = New Dictionary(Of String, String) From
  10.                     {
  11.                         {"A", ".-"},
  12.                         {"B", "-..."},
  13.                         {"C", "-.-."},
  14.                         {"D", "-.."},
  15.                         {"E", "."},
  16.                         {"F", "..-."},
  17.                         {"G", "--."},
  18.                         {"H", "...."},
  19.                         {"I", ".."},
  20.                         {"J", ".---"},
  21.                         {"K", "-.-"},
  22.                         {"L", ".-.."},
  23.                         {"M", "--"},
  24.                         {"N", "-."},
  25.                         {"Ñ", "--.--"},
  26.                         {"O", "---"},
  27.                         {"P", ".--."},
  28.                         {"Q", "--.-"},
  29.                         {"R", ".-."},
  30.                         {"S", "..."},
  31.                         {"T", "-"},
  32.                         {"U", "..-"},
  33.                         {"V", "...-"},
  34.                         {"W", ".--"},
  35.                         {"X", "-..-"},
  36.                         {"Y", "-.--"},
  37.                         {"Z", "--.."},
  38.                         {"Ä", ".-.-"},
  39.                         {"Ö", "---."},
  40.                         {"Ü", "..--"},
  41.                         {" ", ""},
  42.                         {"0", "-----"},
  43.                         {"1", ".----"},
  44.                         {"2", "..---"},
  45.                         {"3", "...--"},
  46.                         {"4", "....-"},
  47.                         {"5", "....."},
  48.                         {"6", "-...."},
  49.                         {"7", "--..."},
  50.                         {"8", "---.."},
  51.                         {"9", "----."},
  52.                         {".", ".-.-.-"},
  53.                         {",", "--..--"},
  54.                         {"?", "..--.."},
  55.                         {"!", "..--."},
  56.                         {":", "---..."},
  57.                         {"""", ".-..-."},
  58.                         {"'", ".----."},
  59.                         {"-", "-....-"},
  60.                         {"=", "-...-"}
  61.                     }
  62.         Select Case mode
  63.             Case Mode.Encode
  64.                 Dim arrWord As IEnumerable(Of Char) = word.ToUpper().ToCharArray()
  65.                 Return ((From mStr In arrWord Where dic.ContainsKey(mStr)).Aggregate(res, Function(x, mStr) String.You are not allowed to view links. Register or Login("{0} {1}", x, dic.Item(mStr)))).You are not allowed to view links. Register or Login()
  66.             Case Mode.Decode
  67.                 Return ((From letter In word.You are not allowed to view links. Register or Login(" "c) Select dic.Where(Function(pair) pair.Value = letter).Select(Function(pair) pair.Key).FirstOrDefault()).Aggregate(res, Function(x, key) String.You are not allowed to view links. Register or Login("{0}{1}", x, key))).You are not allowed to view links. Register or Login()
  68.         End Select
  69.         Return String.Empty
  70.     End Function
  71.  
  72. End Class
  73.  


 

[Function] Adf.ly Decode by fudmario[vb.net]

Iniciado por fudmario

Respuestas: 5
Vistas: 5023
Último mensaje Junio 22, 2016, 05:07:37 pm
por Kr3L