- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
#если делится на 3 без остатка, то приписываем 3
if (!($sn%3)){$sn.="3";}
#если делится на 2 без остатка, то припысываем 2
elsif (!($sn%2)){$sn.="2";}
#если делится на 5 без остатка, то припысываем 5
elsif (!($sn%5)){$sn.="5";}
#втрой округ шифрования
#если делится на 7 без остатка, то приписываем 8
if (!($sn%7)){$sn.="8";}
#если делится на 3 без остатка, то припысываем 2
elsif (!($sn%3)){$sn.="2";}
#если делится на 5 без остатка, то припысываем 3
elsif (!($sn%5)){$sn.="4";}
my $len = length($sn);
if ($len ==6){$sn=~m/(\d)(\d)(\d)(\d)(\d)(\d)/;$itog=$6.$3.$1.$4.$5.$2;}
elsif ($len ==5){$sn=~m/(\d)(\d)(\d)(\d)(\d)/;$itog=$2.$1.$5.$4.$3;}
elsif ($len == 4){$sn=~m/(\d)(\d)(\d)(\d)/;$itog=$4.$1.$3.$2;}
elsif ($len == 3){$sn=~m/(\d)(\d)(\d)/;$itog=$2.$1.$3;}
elsif ($len == 2){$sn=~m/(\d)(\d)/;$itog=$2.$1;}
elsif ($len == 1){$itog=$sn;}
return $itog;
}
ZeiZ 13.08.2010 10:40 # +1
Lure Of Chaos 13.08.2010 10:49 # 0
Crazzy 13.08.2010 12:06 # +10
elsif (!($sn%5)){$sn.="4";}
-------------------------------------------------------------------------
КО в шоке
3.14159265 13.08.2010 19:07 # +2
Arigato 31.10.2010 19:02 # −1