Função em Delphi equivalente em Java

uses SysUtils, LbCipher, LbString;

CONST
  cEntidade = 'chave1';
  cEntidade2 = 'chave2';

var
  Key128: TKey128;

function Criptografa3DES(aTexto : String) : String;
begin
  try
    GenerateLMDKey(Key128, SizeOf(Key128), cEntidade+cEntidade2);
    result := TripleDESEncryptStringCBCEx(aTexto, Key128, True);
  except
    result := '';
  end;
end;

function Descriptografa3DES(aTexto : String) : String;
begin
  try
    GenerateLMDKey(Key128, SizeOf(Key128), cEntidade+cEntidade2);
    result := TripleDESEncryptStringCBCEx(aTexto, Key128, False);
  except
    result := '';
  end;
end;