几年没用delphi都忘差不多了,以下这段简单的取序列号的java代码,哪位能帮我用delphi翻译出来,多谢了! public class Licence { 
public static long getSerialNum(String str) { 
if (str == null) { 
return 0; 

byte[] bt = str.getBytes(); 
int leng = bt.length; 
long sn = 0; 
for (int i = 0; i < leng; i++) { 
sn += bt[i] * getPowerNum(leng - i - 1); 

return sn; 
} public static long getPowerNum(int n) { 
long num = 1; 
for (int i = 0; i < n; i++) { 
num *= 8.62; 

return num; 
} public static void main (String[] args) { 
String school="school";//args[0]; 
String mac="00-E0-4C-50-00-50";//args[1]; 
String sn=String.valueOf(getSerialNum(school+mac)); 
System.out.println (sn); 
    }