Показать сообщение отдельно
  #1  
Старый 21.06.2017, 19:18
ComAlex ComAlex вне форума
Прохожий
 
Регистрация: 18.06.2017
Сообщения: 22
Версия Delphi: Delphi XE, C++
Репутация: 10
По умолчанию Как перевести в Delphi код C

Господа ,помогите перевести следущее, написанное на C

Код:
1
2
3
4
5
6
7
i=data[0];
        i=(i<<8)+data[1];
        i=(i<<8)+data[2];
        i=(i<<8)+data[3];
        if(i==0)return;
        if(dsize<(i+4))return;
        i=decrypt_with_vector(ethkey,ethvector,(LPBYTE)data+4,(LPBYTE)datai,i,0);
Ответить с цитированием