Alguem consegue converter este codigo que está em Java para Pascal?
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
Curtidas 0
Melhor post
Tiago
16/07/2018
Cara, você poderia criar uma DLL em JAVA com esse código e usar no Delphi, como uma FUNCTION.
GOSTEI 1
Mais Respostas
Raimundo Pereira
15/07/2018
Veja se ajuda
http://www.chilkatsoft.com/p/p_146.asp
http://www.chilkatsoft.com/p/p_146.asp
GOSTEI 0