FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции R50.SYSOP


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции R50.SYSOP с датами от 13 Jul 13 00:00:02 до 13 Jul 13 00:00:02, всего сообщений: 14446

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 10410 из 14446 ====================================== R50.SYSOP =
От   : Alexey Fayans                    2:5030/1997        18 Sep 20 00:01:19
Кому : Ivan Novikov                                        18 Sep 20 00:01:19
Тема : Разыскивается поинтлистчекер
FGHI : area://R50.SYSOP?msgid=2:5030/1997@fidonet+5f63cf73
На   : area://R50.SYSOP?msgid=2:5080/31.1+5f6383ca
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://R50.SYSOP?msgid=2:5030/1997@fidonet+5f63d588
Ответ: area://R50.SYSOP?msgid=2:5080/31.1+5f64f2d6
Ответ: area://R50.SYSOP?msgid=<rke8vj$cuo$1@news.dewy.ru>+986254d8
==============================================================================
Hello Ivan!

On Thu, 17 Sep 2020 at 20:35 +0500, you wrote to me:

AF>>  Можно взять отсюда:
IN> Они там не строковые переменные на входе обрабатывают, к сожалению.
IN> Хотя то, что там несколько вариантов CRC-16 - это хорошо.
IN> Сейчас выясняю какой из них вообще там должен быть.

=== Start of Windows Clipboard ===
function Crc16(const Value: AnsiString): Word;inline;
var
n: Integer;
begin
Result := $FFFF;
for n := 1 to Length(Value) do
    Result := UpdateCrc16(Ord(Value[n]), Result);
end;
=== End of Windows Clipboard ===

AnsiString - вполне себе строка, причём без ограничения по длине, в отличие от ShortString (классический паскалевсеий String).

IN> А вообще, код явно писан без оглядки на последующее возможное
IN> использование кем-либо. Коментариев почти нет.

Не думаю что автор собирался код открывать когда писал это дело. :)

... Music Station BBS | https://bbs.bsrealm.net | telnet://bbs.bsrealm.net
--- GoldED+/W32-MSVC 1.1.5-b20180707
* Origin: Music Station | https://ms.bsrealm.net (2:5030/1997)

К главной странице гейта