function calc($land, $kontonummer, $bankleitzahl, $ibanField, $bicField)
{
if ($kontonummer == "" or $bankleitzahl == "") {
Red::alertD("Bitte tragen Sie Bankleitzahl und Kontonummer ein");
}
$url = "http://www.iban.de/iban-berechnen.html";
$ch = curl_init();
curl_setopt($ch, CURLOPT_HTTPHEADER, array('User-Agent: Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:26.0) Gecko/20100101 Firefox/26.0', 'Referer: http://www.iban.de/iban-berechnen.html', 'Content-Type: application/x-www-form-urlencoded; charset=UTF-8', 'X-Requested-With: XMLHttpRequest'));
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, "ibanrechnerCountry={$land}&ibanrechnerBlz={$bankleitzahl}&ibanrechnerKonto={$kontonummer}&ibanToolkit=ibanrechner");
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$result = curl_exec($ch);
curl_close($ch);
$I = new IBAN(trim(str_replace("Die IBAN lautet: ", "", strip_tags($result))));
$iban = $I->MachineFormat();
$url = "https://www.s-bausparkasse.at/portal/if_ajax.asp";
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, "mode=calc.ibanbic.listofbic&cuid=&alt_iban=&iban={$iban}&rechnername=IBAN%2FBIC-Rechner¤tpageid=87&berechnungsdaten=&autocalc=&getresult=&country={$land}&bank={$bankleitzahl}&account=" . str_pad($kontonummer, 10, "0", STR_PAD_LEFT));
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$result = curl_exec($ch);
curl_close($ch);
$ex = explode("&&&", $result);
$ex[0] = str_replace("listofbic==", "", strip_tags(trim($ex[0])));
$ex[1] = str_replace("iban==", "", trim($ex[1]));
$T = new HTMLTable(3, "Gefundene Ergebnisse");
$T->weight("light");
$T->maxHeight(400);
$T->useForSelection(false);
$T->setColWidth(1, 20);
$T->addHeaderRow(array("", "BIC", "IBAN"));
foreach (explode("\n", $ex[0]) as $bic) {
$B = new Button("Diese Kombination verwenden", "arrow_right", "iconic");
$T->addRow(array($B, trim($bic), $ex[1]));
$T->addRowEvent("click", "\$j('[name={$ibanField}]').val('{$ex['1']}'); \$j('[name={$bicField}]').val('" . trim($bic) . "'); " . OnEvent::closePopup("IBANCalc"));
}
echo $T;
#echo "<pre>";
#echo htmlentities(print_r($ex, true));
#echo($result);
#echo "</pre>";
}