Форум программистов, компьютерный форум CyberForum.ru

Перевести в C++ - C++

Восстановить пароль Регистрация
 
serejka92
Сообщений: n/a
12.03.2010, 12:05     Перевести в C++ #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type 
      TLong2=array[0.. 1] of longint;
      TLong2x2=array[0.. 1] of TLong2;
const Delta=$9E3779B9;
var   key:TLong2x2;
procedure EnCryptRouting(var data);
    var y,z,sum:longint; a:byte;
begin
    y:=TLong2(data)[0];z:=TLong2(data)[1];sum:=0;
        for a:=0 to 31 do
           begin
               inc(sum,Delta);
               inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));
               inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));
           end;
    TLong2(data)[0]:=y;TLong2(data)[1]:=z
end;
Помогите перевести в C++ борланд
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2010, 12:05     Перевести в C++
Посмотрите здесь:

Перевести на С. C++
C++ Перевести С++ --> C
Перевести из C++ на С. C++
перевести на С C++
C++ Перевести на C++
C++ Текстовый файл перевести в двоичный, а потом полученный двоичный файл перевести обратно в текстовый
C++ Перевести с с# на с++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 00:08. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru