Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: ShadowOfSun Предлагаю складывать не цифры
Function HexString(InpString As String) As String Dim n, i As Long HexString = "" n = Len(InpString) For i = 1 To Len(InpString) HexString = HexString & Hex$(Asc(Mid$(InpString, i, 1))) Next i End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.