mirror of https://dicksdeathabove.xyz/~mia/morsh
36 lines
786 B
Plaintext
36 lines
786 B
Plaintext
|
#!/bin/sh
|
||
|
# fuck you meeper
|
||
|
IFS=""; LANG=C
|
||
|
# index's
|
||
|
index="A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9 0"
|
||
|
exb=".- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. .---- ..--- ...-- ....- ..... -.... --... ---.. ----. -----"
|
||
|
|
||
|
# I live in pain
|
||
|
fresolve() {
|
||
|
lre ${index} "$2"
|
||
|
}
|
||
|
lre() {
|
||
|
eval letter=\${$#}
|
||
|
n=1; while [ $n -le 36 ]; do
|
||
|
case "$letter" in
|
||
|
"$n") eval cur=\${$n}; printf '%s' "$cur"
|
||
|
esac
|
||
|
: $((n+=1))
|
||
|
done
|
||
|
}
|
||
|
|
||
|
|
||
|
while read -r p || [ -n "$p" ]; do
|
||
|
p=${p# }; p=${p% }
|
||
|
n1="0"; IFS=" "; for i in ${p}; do
|
||
|
for ii in $exb; do
|
||
|
: $((n1+=1));
|
||
|
case "$ii" in
|
||
|
"$i") fresolve "$ii" "$n1"
|
||
|
esac
|
||
|
done
|
||
|
n1=0
|
||
|
done
|
||
|
done # stdin read; fuck you
|
||
|
echo
|