[AutoIt]ASCII to Morse Code

[b1nary]

Code:

MorseCode("greysec is awesome")

Func MorseCode($Input, $Freq = 525, $Dur = 100)
    If Not StringIsAlNum(StringStripWS($Input, 8)) Then Exit
    Local $Array = StringSplit(StringLower($Input), "")
    Local $Morse = ""
    For $i = 1 to UBound($Array) - 1
        $Morse &= CharConvert($Array[$i])
    Next
    $Array = StringSplit($Morse, "")
    For $i = 1 to UBound($Array) - 1
        If $Array[$i] = "." Then
            Beep($Freq, $Dur)
        ElseIf $Array[$i] = "-" Then
            Beep($Freq, ($Dur * 3))
        Else
            Sleep($Dur)
        EndIf
        Sleep(25)
    Next
EndFunc

Func CharConvert($Char)
    Switch $Char
        Case " "
            Return "     "
        Case "a"
            Return ".- "
        Case "b"
            Return "... "
        Case "c"
            Return  "-.-. "
        Case "d"
            Return "-.. "
        Case "e"
            Return ". "
        Case "f"
            Return "..-. "
        Case "g"
            Return "--. "
        Case "h"
            Return ".... "
        Case "i"
            Return ".. "
        Case "j"
            Return ".--- "
        Case "k"
            Return "-.- "
        Case "l"
            Return ".-.. "
        Case "m"
            Return "-- "
        Case "n"
            Return "-. "
        Case "o"
            Return "--- "
        Case "p"
            Return ".--. "
        Case "q"
            Return "--.- "
        Case "r"
            Return ".-. "
        Case "s"
            Return "... "
        Case "t"
            Return "- "
        Case "u"
            Return "..- "
        Case "v"
            Return "...- "
        Case "w"
            Return ".-- "
        Case "x"
            Return "-..- "
        Case "y"
            Return "-.-- "
        Case "z"
            Return "--.. "
        Case "0"
            Return "----- "
        Case "1"
            Return ".---- "
        Case "2"
            Return "..--- "
        Case "3"
            Return "...-- "
        Case "4"
            Return "....- "
        Case "5"
            Return "..... "
        Case "6"
            Return "-.... "
        Case "7"
            Return "--... "
        Case "8"
            Return "---.. "
        Case "9"
            Return "----. "
    EndSwitch
EndFunc

A fun script today, nothing really useful obviously but great to kill a little time

[NO-OP]

I would suggest not including the space in your morse definitions and adding the space in your output you re also missing the conversions for certain special characters which now have definitions but any who nice work!

[b1nary]

I would suggest not including the space in your morse definitions and adding the space in your output you re also missing the conversions for certain special characters which now have definitions but any who nice work!

the spaces in the definitions is basically a "sleep" between characters and/or words but didn't realize that I missed some characters (the special ones you mentioned, assume they are punctuation?) have to look into it and map them as well! Thanks for the feedback though

[Cryptography]

I would suggest not including the space in your morse definitions and adding the space in your output you re also missing the conversions for certain special characters which now have definitions but any who nice work!

the spaces in the definitions is basically a "sleep" between characters and/or words but didn't realize that I missed some characters (the special ones you mentioned, assume they are punctuation?) have to look into it and map them as well! Thanks for the feedback though

They're these characters:
~ ! @ # $ % ^ & * ( ) - _ + = . ,
But I don't believe most of those have a Morse code translation.

[b1nary]

They're these characters:
~ ! @ # $ % ^ & * ( ) - _ + = . ,
But I don't believe most of those have a Morse code translation.

They do actually, after NO-OP made his post I looked into it, for example a question mark (?) is:

Code:

..--..

Wiki page you can check them, gotta scroll down just a bit but they are there