Число зверя

[b_a_t]

Кстати, совершенно случайно сегодня, благодаря schors и jerom узнал, что эти длинные ужасные числа ИНН и прочих БиК не просто так, от балды придуманы, а несут в себе контрольную сумму, что позволяет проверять их правильность на месте, не обращаясь ни к каким базам данных.

http://polytech.ural.ru/checkvalues.htm собственно.

Забавно.

Comments

[uisky.livejournal.com]

Так и у ISBN, например, та же хуйня.

[ex-ex-aim11.livejournal.com]

ух ты!

[michael-s.livejournal.com]

ненавижу эти абревиатуры.

[argv-0.livejournal.com]

Ну вообще-то эта фигня практиковалась ещё задолго до всяких ИНН... ;)

Во чего у себя закромах нарыл:

      TNumberAll        = Array[0..8] Of Char;
      TNType            = Array[0..2] Of Char;
      TNPlan            = Array[0..2] Of Char;
      TNKey             = Char;
      TNN               = Array[0..1] Of Char;

      PNumber           = ^TNumber;
      TNumber           = Record Case Byte Of
     0:(All:                                            TNumberAll);
     1:(NType:                                          TNType;
        NPlan:                                          TNPlan;
        NKey:                                           TNKey;
        NN:                                             TNN);
      End;

    Procedure NumberKey(            Var Number:         TNumber);
      Const
        NK:Array[0..Pred(SizeOf(TNumber))] Of Byte      = (9,1,3,9,1,3,0,1,3);
      Var
        Sum:                                            Integer;
        Count:                                          Byte;
      Begin
        Sum:=1;
        For Count:=0 To Pred(SizeOf(TNumber)) Do
          Sum:=Sum+NK[Count]*(Byte(Number.All[Count])-48);
        Number.NKey:=Char(Sum mod 10 + 48);
      End;

Подсчёт контрольной цифирьки в номере счёта. Ещё того, советского, 9-и значного.

"Эх, молодость, молодость..." (c) :)))

[duke-igthorn.livejournal.com]

Только не говори мне, что ты не в курсе про номер кредитной карточки?;)

[dphq.livejournal.com]

вот если б в номерах была избыточность, которая позволяла автоматически исправлять один знак на любой позиции...

[firecat-7.livejournal.com]

А еще в ИННах зашифрован год рождения владельца :)

[ex-snoobot367.livejournal.com]

бля, это заговор