Witam!

netcomp napisał(a):

> czy ktos slyszal o istnieniu jakiegos programu do generowania numerow w
> formacie NRB. potrzebuje takie narzedzie aby wygenerowac rachunki do usługi
> Collect. dotarłem do polskiej normy opisujacej standard NRB, ale zanim
> zasiądę do pascala ;) chcialbym zapytac czy ktos juz to przerabial.

Ech... mam dziś dobry dzień. Masz tu surówkę w Javie - przerobienie tego
na Pascala nie powinno Ci sprawić problemu.

final private String calculateIbanChecksum(String account) {
// metoda liczy cyfry kontrolne IBAN
int i, j, sum;
String res;

int weights[] = {
1, 10, 3, 30, 9, 90, 27, 76, 81, 34, 49, 5, 50, 15, 53, 45, 62,
38, 89, 17, 73, 51, 25, 56, 75, 71, 31, 19, 93, 57, 85, 74, 61, 28
};

//account.replaceAll(" ", "")
account = account + "252100";
i = account.length()-1;
j = 0;
sum = 0;
while(i>=0) {
sum = sum + (Integer.parseInt( "" + account.charAt(i) ) * weights[j] );
i = i - 1;
j = j + 1;
}
sum = sum % 97;
sum = 98 - sum;
res = "" + sum;
if (res.length() < 2) res = "0" + res;

return res;
}


Powodzenia!