Помогите перевести код в делфи

[buket]

Есть код ява

          byte[] encodeLic = null;
          String lic = "456dfgdfg45g6e4rtf5g5d";          
          SecretKeySpec key = new SecretKeySpec(new String("sdf453sdf").getBytes(Charset.forName("UTF-8")), "DES");
          Cipher cipher = Cipher.getInstance("DES");         
          cipher.init(2, key);	  
          byte[] cipherText = Base64.getDecoder().decode(lic);
          encodeLic = cipher.doFinal(cipherText);

нужно перевести код на делфи

[Black Fregat]

А DES в Delphi есть из коробки?

[buket]

нет

[Alex11223]

Ну дык ищите коробку с ним тогда )

[buket]

нашел _http://www.cityinthesky.co.uk/opensource/dcpcrypt/
заинсталил,все прошло без ошибок, но не видит его
https://prnt.sc/iiea57

[cb251132]

mul= new Array(2,1,2,1,2,1,2)
function CheckWagonNumber () {
var WagonNumber = document.all.txtWagonNumber.value ;
var Result = 0 ; 
var iTotal = 0 ;
var NWN=0;
var res=""
// Формируем список цифр
if (WagonNumber.length!=8) {
WagonNumber =WagonNumber*1;
document.all.result.innerHTML = "<font face=verdana color=brown>Количество цифр  вагона не равно 8</font>"
} else {
NWN = Math.floor(WagonNumber /10);
check = WagonNumber-10*NWN;
WagonNumber = NWN;
for (i=0;i<7;i++) {
NWN= Math.floor(WagonNumber /10);
c=WagonNumber-10*NWN;
WagonNumber=NWN;
res =  res*1 + c*mul[i];
if (c*mul[i]>9)  {res = res - 9;}
}
control= Math.floor((res+9)/10)*10-res;
document.all.result.innerHTML = "<font face=verdana color=green>Номер вагона корректен</font>"
					if (control-check) document.all.result.innerHTML = "<font face=verdana color=red>Ошибка контрольной суммы</font>"
					}
				}

Прошу помочь преобразовать этот код в делфи.