IBAN-Rechner mit Formulareingabe
Zuerst wird das php-Skript "ibanrechner.php" für die HTML-Formulareingabe erzeugt:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>IBAN-Rechner</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<?php
if (isset($_POST["berechnen"])) {
$KTO = $_POST["Kontonummer"];
$BLZ = $_POST["BLZ"];
$Lcode = $_POST["Lcode"];
include("iban.php");
?>
<h2>Berechnung der IBAN</h2>
<p>
Für die verwendete alte Kontonummer <?php echo $KTO;?>
<br>
müssen Sie ab Februar 2014 die folgende IBAN verwenden:<br>
<b><?php echo $iban; ?></b>
</p>
<?php
} else {
?>
<h2>Eingabemaske für die Berechnung der IBAN</h2>
<form action="ibanrechner.php" method="post">
<p>Geben Sie bitte Ihre alte BLZ und Ihre Kontonummer ein:<br>
BLZ: <input name="BLZ" type="int" size="20"></p>
Kontonummer: <input name="Kontonummer" type="int" size="30">
<br><br><br>
Geben Sie bitte noch den Ländercode ein:<br>
Ländercode: <input name="Lcode" type="int" size="5"></p>
</p>
<br><input name="berechnen" type="submit" value="IBAN Berechnen">
</form>
<?php
}
?>
</body>
</html>
Die Eigentliche Berechnung der IBAN erfolgt im php-Skript "iban.php", das includiert wird:
<?php
###Ermittlung des numerischen Ländercodes
#Alphabet-Array
$Buchstaben = array(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z);
#Einzelne Buchstaben des Ländercodes mit Hilfe von "substr"
$LKB1 = substr($Lcode, 0,1);
$LKB2 = substr($Lcode, 1,1);
$LKB3 = substr($Lcode, 2,1);
#Suchen des Buchstaben-Index im Array
$Lcode1 = array_search($LKB1, $Buchstaben);
$Lcode1 = $Lcode1 + 10;
$Lcode2 = array_search($LKB2, $Buchstaben);
$Lcode2 = $Lcode2 + 10;
#Länge des Ländercodes ermitteln
$Laenge = strlen($Lcode);
if ($Laenge >= 3){
$Lcode3 = array_search($LKB3, $Buchstaben);
$Lcode3 = $Lcode3 + 10;
} else {
$Lcode3 = "00";
}
$lcode = $Lcode1 . $Lcode2 . $Lcode3;
echo $lcode;
###Zusammenfassung von BLZ und KTO
$Zusammenfassung = $BLZ . $KTO;
###Anhängen des Ländercodes
$BBAN = $Zusammenfassung . $lcode;
#echo $BBAN;
$REST = bcmod($BBAN , "97");
#echo $REST;
$PR = 98 - $REST;
$iban = $Lcode . $PR . $Zusammenfassung;
?>
6.1.2014