Convert Data encryption code from VB to Java.

Question

Can anyone help me in converting the following code from VB to Java?
'Purpose: This function decrypts the password of the user in the database so that
' it can be matched accurately with the inputted password of the user in
' the Log-In form (Case-sensitive)
'Function to decrypt password
Public Function Decrypt(ByVal Encrypted As String)
On Error GoTo ErrorRoutine
For intEncryptDecrypt = 1 To Len(Encrypted)
strLetter = Mid(Encrypted, intEncryptDecrypt, 1)
Mid(Encrypted, intEncryptDecrypt, 1) = Chr(Asc(strLetter) - 1)
Next
Decrypt = Encrypted
Exit Function
ErrorRoutine:
Err.Raise Err.Number, , Err.Description
Exit Function
End Function

Answer 1

hi,
try this
public String decrypt(String a){
    for(int i=0;i<a.length();i++){
      char c=a.charAt(i);
      c--;
      a=a.substring(0,i)+c+a.substring(i+1);
  return a;
}regards