この関数のJavaへのVB.Netの変換

Question

私はVB.Netのスニペットを見つけられなかったので、私はここにJavaの断片を持っています。VB.Netに変換することが可能かどうか疑問に思っていた -

private static byte[] SHA1(final String in) 
      throws NoSuchAlgorithmException, UnsupportedEncodingException { 
     MessageDigest md = MessageDigest.getInstance("SHA-1"); 
     md.update(in.getBytes("iso-8859-1"), 0, in.length()); 
     return md.digest(); 
    } 

    public static String decryptSHA1(String key, final String start) { 
     final String delim = "a"; 
     if (start == null) 
      return null; 
     byte[] hashedkey; 
     byte[] password; 
     int i; 
     try { 
      hashedkey = SHA1(key); 
     } catch (final NoSuchAlgorithmException e) { 
      e.printStackTrace(); 
      return start; 
     } catch (final UnsupportedEncodingException e) { 
      e.printStackTrace(); 
      return start; 
     } 
     final String[] temp = start.split(delim); 
     password = new byte[temp.length]; 
     for (i = 0; i < hashedkey.length; i++) { 
      final int temp2 = Integer.parseInt(temp[i]); 
      if (hashedkey[i] == temp2) { 
       break; 
      } else { 
       password[i] = (byte) (temp2 - hashedkey[i]); 
      } 
     } 
     return new String(password, 0, i); 
    } 

ありがとうございました。

Answer 1

ここで最も難しい部分は、SHA1メソッドをやり直すようです。同等の.NETライブラリクラス/メソッドを見つけるだけでよいのです。名前から判断すると、おそらくSystem.Text.EncodingクラスとSystem.Security.Cryptography.SHA1クラスが必要です。手オフ、アルゴリズムは、おそらくあなたはそれだけで、基本的なバイト操作であるとしてdecryptSHA1機能を自分の残りの部分を変換することができるはずです。そこからこの

Private Shared Function SHA1(input As String) As Byte() 
    Dim iso8859 = System.Text.Encoding.GetEncoding("iso-8859-1") 
    Dim inBytes = ios8859.GetBytes(input) 
    ' This is one implementation of the abstract class SHA1.' 
    Dim sha As New SHA1CryptoServiceProvider() 
    Return sha.ComputeHash(data) 
End Function 

のようなものを終わります。 GetEncoding関数では、無効なコードページ名を渡した場合にArgumentExceptionがスローされ、キャッチを心配するNoSuchAlgorithmExceptionの同等の例外はないようです。