谁懂JAVA？

Question

下面是一段鉴别口令的JAVA函数，哪位高手能把它转为delphi代码？
    public static void authenticatePassword(String password, String dbpassword, String oldsalt)
        throws PasswordAuthenticatorException, Exception
    {
        BASE64Decoder dncoder = new BASE64Decoder();
        byte bsalt[] = dncoder.decodeBuffer(oldsalt);
        MessageDigest md = MessageDigest.getInstance("MD5");
        md.update(bsalt);
        md.update(password.getBytes("UTF8"));
        byte digest[] = md.digest();
        BASE64Encoder encoder = new BASE64Encoder();
        String digestS = encoder.encode(digest);
        byte dbdigest[] = dbpassword.getBytes();
        byte olddigest[] = digestS.getBytes();
        if(!Arrays.equals(olddigest, dbdigest))
            throw new PasswordAuthenticatorException("口令不正确,请确认输入的大小写!!");
        else
            return;
    }

Answer 1

     不懂
呵呵  

Answer 2

我略懂点！~~ 你给的分数太低了