[PHP] pobierz, plaintext 
<?php
function sprawdz_nr_konta($numer) {
//(c) Bartłomiej Zastawnik, "Rzast".
//Użycie funkcji dozwolone przy zachowaniu komentarzy.
  $puste = array(' ', '-', '_', '.', ',','/', '|');//znaki do usunięcia
  $temp = strtoupper(str_replace($puste, '', $numer));//Zostają cyferki + duże litery
  if (($temp{0}<='9')&&($temp{1}<='9')){//Jeżeli na początku są cyfry, to dopisujemy PL
	$temp ='PL'.$temp;
  }
  $temp=substr($temp,4).substr($temp, 0, 4);//przesuwanie cyfr kontrolnych na koniec
  $znaki=array('0'=>'0','1'=>'1','2'=>'2','3'=>'3','4'=>'4',
						 '5'=>'5','6'=>'6','7'=>'7','8'=>'8','9'=>'9',
		  'A'=>'10','B'=>'11','C'=>'12','D'=>'13','E'=>'14','F'=>'15',
					'G'=>'16','H'=>'17','I'=>'18','J'=>'19','K'=>'20',
					'L'=>'21','M'=>'22','N'=>'23','O'=>'24','P'=>'25',
					'Q'=>'26','R'=>'27','S'=>'28','T'=>'29','U'=>'30',
					'V'=>'31','W'=>'32','X'=>'33','Y'=>'34','Z'=>'35');//Tablica zamienników
  $ilosc=strlen($temp);//długość numeru
  $ciag='';
  for ($i=0;$i<$ilosc;$i++){
	$ciag.=$znaki[$temp{$i}];
  }
	$mod = 0;
  $ilosc=strlen($ciag);//nowa długość numeru
	for($i=0;$i<$ilosc;$i=$i+6) {
//oblicznie modulo, $ciag jest zbyt wielką liczbą na format integer, więc dzielę g
o na kawałki
		$mod = (int)($mod.substr($ciag, $i, 6)) % 97; 
	}
 $out=($mod==1)?true:false;
return $out;
}
?>
[PHP] pobierz, plaintext