Помогите расшифровать бинарный код, переведя цифры на русский алфавит.

Макрос VBA (Excel) :)
Sub Test()
arrData = Array("1101001", "0100000", "1101100", "1101111", "1110110", "1100101", "0100000", "1111001", "1101111", "1110101")
For Each strBin In arrData
strResult = strResult & Chr(BinaryToDecimal(strBin))
Next
Debug.Print strResult
End Sub

Function BinaryToDecimal(Binary)
For s = 1 To Len(Binary)
n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ (s - 1)))
Next
BinaryToDecimal = n
End Function
И да, ответ не по русски "i love you".

http://decodeit.ru/binary/

так быстрее и удобней