Alguem consegue converter este codigo que está em Java para Pascal?
15/07/2018
0
Boa tarde,
Preciso converter um código que está em Java para usar no delphi. este código criptografa uma senha.
Alguém consegue converter este código para pascal pois eu conhecimento em java é bem próximo de zero:
import java.util.Base64;
import javax.crypto.Cipher;
import javax.crypto.spec.IvParameterSpec;
import javax.crypto.spec.SecretKeySpec;
public class Cryptography
{
private static String key = "G!P@4#1$1%M4SC4D";
private static String iv = "C#&UjO){QwzFcsPs";
public static String encrypt(String plainText) throws Exception
{
byte[] plainTextbytes = plainText.getBytes("UTF-8");
byte[] keyBytes = key.getBytes("UTF-8");
byte[] ivBytes = iv.getBytes("UTF-8");
Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
SecretKeySpec secKey = new SecretKeySpec(keyBytes, "AES");
cipher.init(Cipher.ENCRYPT_MODE, secKey, new IvParameterSpec(ivBytes));
return Base64.getEncoder().encodeToString(cipher.doFinal(plainTextbytes));
}
}
obrigado;
Preciso converter um código que está em Java para usar no delphi. este código criptografa uma senha.
Alguém consegue converter este código para pascal pois eu conhecimento em java é bem próximo de zero:
import java.util.Base64;
import javax.crypto.Cipher;
import javax.crypto.spec.IvParameterSpec;
import javax.crypto.spec.SecretKeySpec;
public class Cryptography
{
private static String key = "G!P@4#1$1%M4SC4D";
private static String iv = "C#&UjO){QwzFcsPs";
public static String encrypt(String plainText) throws Exception
{
byte[] plainTextbytes = plainText.getBytes("UTF-8");
byte[] keyBytes = key.getBytes("UTF-8");
byte[] ivBytes = iv.getBytes("UTF-8");
Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");
SecretKeySpec secKey = new SecretKeySpec(keyBytes, "AES");
cipher.init(Cipher.ENCRYPT_MODE, secKey, new IvParameterSpec(ivBytes));
return Base64.getEncoder().encodeToString(cipher.doFinal(plainTextbytes));
}
}
obrigado;
Amauri Alves
Curtir tópico
+ 0
Responder
Post mais votado
16/07/2018
Cara, você poderia criar uma DLL em JAVA com esse código e usar no Delphi, como uma FUNCTION.
Tiago
Responder
Mais Posts
16/07/2018
Raimundo Pereira
Veja se ajuda
http://www.chilkatsoft.com/p/p_146.asp
http://www.chilkatsoft.com/p/p_146.asp
Responder
Clique aqui para fazer login e interagir na Comunidade :)