Число зверя

[b_a_t]

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

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

Забавно.

Comments

[uisky.livejournal.com]

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

[b-a-t.livejournal.com]

Да ты чё?! Блиииин, жизнь прошла мимо...

Хм... А партбилет вот? Или паспорт?Там-то хоть все нормально :)?

[uisky.livejournal.com]

Нет, что ты. Более того, даже номера трамваев содержат в себе информацию о каждом своём пассажире. Про размер носков и цены на водку я вообще молчу.

[b-a-t.livejournal.com]

Блин, я так и знал ведь! Думал еще - почемк у меня трамвай всегда второй?

[ex-ex-aim11.livejournal.com]

ух ты!

[b-a-t.livejournal.com]

Вот-вот!

[felisss.livejournal.com]

а про SIN ты подумал?! та же фигня ж))

[msh.livejournal.com]

В SIN Luhn как в кредитках

[b-a-t.livejournal.com]

Ну, сюрприз был в первую очередь что и у нас не лаптем щи хлебают, додумались использовать такую защину от опечатки.

[b-a-t.livejournal.com]

У нас нет никаких sins :) Мы чисты перед Богом :)

[michael-s.livejournal.com]

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

[b-a-t.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) :)))

[b-a-t.livejournal.com]

Ишь ты чего! Как все запущено, однако! А полином похож на тот, что в ИНН используют :)

[duke-igthorn.livejournal.com]

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

[b-a-t.livejournal.com]

Ну, тамошний код я использовал, когда мы свою систему приема кредиток писали... Но тут-то - кто бы ожидал от наших такой подлости?!

[dphq.livejournal.com]

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

[b-a-t.livejournal.com]

CRC32 :)? И кто бы их исправлял потом :)?

[firecat-7.livejournal.com]

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

[b-a-t.livejournal.com]

Серьезно? Тогда я понимаю тех религиозных людей, которые обзывали ИНН числом сатаны и отказывались его полцчать!

[firecat-7.livejournal.com]

Абсолютно серьезно. Я это знаю с далеких времен своей работы в пенсионном фонде. Вот как вычисляется - не помню, но очень как-то очень просто

[ex-snoobot367.livejournal.com]

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

[b-a-t.livejournal.com]

Однозначно!