mnshome.info
marzenia się spełniają



  Проверка ИНН
02.11.2013 11:26
sub check_inn {
    my $in = shift || 0;
    return 0 unless $in =~ /^[0-9]{10,12}$/;
    my @a = split "", $in;
    if (length($in) == 10) {
        my $n10 = ((2*$a[0] + 4*$a[1] + 10*$a[2] + 3*$a[3] + 5*$a[4] + 
           9*$a[5] + 4*$a[6] + 6*$a[7] + 8*$a[8]) % 11) % 10;
        return 1 if $n10 == $a[9];
    } elsif (length($in) == 12) {
        my $n11 = ((7*$a[0] + 2*$a[1] + 4*$a[2] + 10*$a[3] + 3*$a[4] + 
           5*$a[5] + 9*$a[6] + 4*$a[7] + 6*$a[8] + 8*$a[9]) % 11) % 10;
        my $n12 = ((3*$a[0] + 7*$a[1] + 2*$a[2] + 4*$a[3] + 10*$a[4] + 
           3*$a[5] + 5*$a[6] + 9*$a[7] + 4*$a[8] + 6*$a[9] + 8*$a[10]) 
           % 11) % 10;
        return 1 if ($n12 == $a[11]) && (($n11 == $a[10]));
    }
    return 0
}
  Считалка
26.01.2010 18:53
THUD XYZZY PLUGH FRED WALDO GARPLY
GRAULT CORGE QUUZ QUX BAZ BAR FOO

День памяти перевода часов на летнее время

0
0
0
days
:
0
0
hrs
:
0
0
min
:
0
0
sec

поиск по дате...
поиск по содержимому...
GGCzat 1.00
Tagi
Artefakty
06.05.2016 10:42:36
Создать RESTfull обработчик как модуль
24.06.2017 17:34:47
MNSHOME: Переходить на Centos!
19.08.2015 11:35:42
Переезд разработчиков на тестовый MySQL сервере
28.12.2015 10:44:39
MDScore: Marionette.js
02.06.2015 13:52:56
С Даши за ECB/VTB24
30.10.2017 10:40:53
Создать функционал 2 в 1: mod_perl библиотеку для получения отчета по бэкапам за последние сутки
29.11.2017 10:38:08
Создать простые функции криптования AES256+Blowfish+base64
01.12.2017 10:37:43
SubProject: static-site
Thu, 28 Feb 2019 10:44:39 +0400

Linki zewnętrzne

#OPERA
Czytam
GRY
MnshomeInfo
Monitoring
Photo
Przyjaciele
Serwisy
fla-master

IP

Valid XHTML 1.0 Transitional

Valid CSS!


Copyright © 1998-2017 Serż Minus. All rights reserved


do góry