Results 1 to 6 of 6

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jul:2002
    Location: The Bog of Eternal Stench
    Posts: 345

    ? , , PHP.

  2. #2
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171


    :

    , .

    :

    :
    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.

  3. #3
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171
    , .

  4. #4
    Registered User
    Join Date: Jul:2002
    Location: The Bog of Eternal Stench
    Posts: 345
    Quote Originally Posted by SAGE
    , .

    , . ., ... PHP . Visual Basic . .

    "", .

  5. #5
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171
    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;

  6. #6
    Registered 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; //
    }

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |