Results 1 to 6 of 6
Hybrid View
-
10th September 2005 14:43 #1Registered User
Join Date: Jul:2002
Location: The Bog of Eternal Stench
Posts: 345
? , , PHP.
-
10th September 2005 19:27 #2
:
, .
:
:
1*1+2*2+3*3+4*4+5*5+6*6+7*7+8*8 ,
1 e , 2 - ..
11
10,
10,
3*1+4*2+5*3+6*4+7*5+8*6+9*7+10*8 ,
1 e , 2 - .
11
10, , - 0
:
.
:
,
:
2*9 + 7*10 + 3*11 +5*12 ,
9 e , 10 - ..
11
10,
10,
4*9+9*10+5*11+7*12 ,
9 e , 10 - ..
11
10, , - 0.
:http://www.bulstat.nsi.bg/About.html
Last edited by SAGE; 10th September 2005 at 19:34.
-
10th September 2005 19:31 #3
-
11th September 2005 09:55 #4Registered User
Join Date: Jul:2002
Location: The Bog of Eternal Stench
Posts: 345
Originally Posted by SAGE
, . ., ... PHP . Visual Basic . .
"", .
-
11th September 2005 17:24 #5
Delphi:
Code:// Function IsDN(dn:String;var code:integer):Boolean; var L,i:integer; v,vs,vm:Longint; begin Result:=False; dn:=TrimAll_t(dn); L:=Length(dn); if L<>10 then begin Result:=False; code:=1; Exit; end; if dn='9999999999' then begin Result:=True; Exit; end; vs:=0; v:=0; For i:=1 to L do begin if not (dn[i] in ['0'..'9']) then begin { # } code:=2; Exit; end; v:=StrToIntDef(dn[i],0); case i of 1:vs:=vs+v*4; 2:vs:=vs+v*3; 3:vs:=vs+v*2; 4:vs:=vs+v*7; 5:vs:=vs+v*6; 6:vs:=vs+v*5; 7:vs:=vs+v*4; 8:vs:=vs+v*3; 9:vs:=vs+v*2; end;{case i} end;{For i:=1 to L do begin} if vs=0 then begin code:=3; exit; end; vm:=vs mod 11; case vm of 0:begin{ 0} if v<>0 then begin code:=4; exit; end; end; 1:begin{ } code:=5; Exit; end; 2..10: begin if v<>(11-vm) then begin code:=6; exit; end; end; end;{case vm} Result:=True; end;
-
13th September 2005 09:02 #6Registered User
Join Date: Jul:2002
Location: The Bog of Eternal Stench
Posts: 345
, , PHP, :
function CheckEGN($egn)
{
$First9=substr($egn,0,9);
$Temp = substr($First9,0,1) * 2;
$Temp = $Temp + (substr($First9,1,1) * 4);
$Temp = $Temp + (substr($First9,2,1) * 8);
$Temp = $Temp + (substr($First9,3,1) * 5);
$Temp = $Temp + (substr($First9,4,1) * 10);
$Temp = $Temp + (substr($First9,5,1) * 9);
$Temp = $Temp + (substr($First9,6,1) * 7);
$Temp = $Temp + (substr($First9,7,1) * 3);
$Temp = $Temp + (substr($First9,8,1) * 6);
$Temp = $Temp % 11;
if($Temp==10) $Temp=0;
if( ($r=substr($egn,9,1)) == $Temp) return 1; //
else return 0; //
}




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in