加密算法问题

Question

我想要把密码入库前加密，我的网页是jsp的，现有一算法是vb写的，小弟程序基础不好，主要是中间一句不知如何转，望那位大哥能帮转成jsp的。还有这个怎么在jsp页面中用阿，望不吝赐教！见笑了！
Public   Function   PutPWD(StrPWD   As   String)   As  String         'StrPWD加密   
          Dim   i   As   Integer   
          PutPWD   =   ""   
          For   i   =   1   To   Len(StrPWD)   
          PutPWD   =   PutPWD   &   Chr(Asc(Mid(StrPWD,   i,   1))   -   Len(StrPWD))   
          Next   
  End   Function       
  Public   Function   GetPWD(StrPWD   As   String)   As  string   'StrPWD解密   
          Dim   i   As   Integer   
          GetPWD   =   ""   
          For   i   =   1   To   Len(StrPWD)   
          GetPWD   =   GetPWD   &   Chr(Asc(Mid(StrPWD,   i,   1))   +   Len(StrPWD))   
          Next   
  End   Function a=密码   
  b=putPWD(a)   '加密密码   
  c=getPWD(b)   '取回密码