| |
|
  |
 Алгоритм шифрования, где найти реализацию? |
|
|
|
|
 Mar 4 2010, 15:44
|
Местный
Группа: Свой
Сообщений: 307
Регистрация: 6-02-08
Из: Россия, Екатеринбург
Пользователь №: 34 798
|
Подскажите пожалуйста алгоритм шифрования/дешифрования потоковых данных. (есть массив из n байт, его надо зашифровать и расшифровывать на приеме, зная ключ), смотрел в сторону xxtea, работает только с long. может тупо биты в байте переставлять, наподобие DES ?  P.S. может у кого есть xxtea, который бы с потоком работал?
--------------------
Разработчик
|
|
|
|
|
|
|
|
Mar 5 2010, 06:53
|
Местный
Группа: Свой
Сообщений: 307
Регистрация: 6-02-08
Из: Россия, Екатеринбург
Пользователь №: 34 798
|
Нашел тут простую реализацию XXTEA. уточню, код будет работать в меге32. в описании алгоритма указано: at least two words (64 bits)Код void xxtea_crypt(unsigned long *v)
{
unsigned long long q=40;
unsigned long long z=v[1], y=v[0], sum=0, e;
while ( q-- > 0 )
{
sum += DELTA;
e = sum >> 2&3;
y = v[1];
z = v[0]+= ( (((z>>9)^(y<<2))+((y>>3)^(z<<6)))^((sum^y)+(key[e]^z)) );
y = v[0];
z = v[1] += ( (((z>>9)^(y<<2))+((y>>3)^(z<<6)))^((sum^y)+(key[1^e]^z)) );
}
} Код void xxtea_decrypt(unsigned long *v)
{
long q=40;
long z=v[1], y=v[0], e, sum = q*DELTA;
while (sum != 0)
{
e = sum>> 2&3;
z = v[0];
y = v[1] -= ( (((z>>9)^(y<<2))+((y>>3)^(z<<6)))^((sum^y)+(key[1^e]^z)) );
z = v[1];
y = v[0] -= ( (((z>>9)^(y<<2))+((y>>3)^(z<<6)))^((sum^y)+(key[e]^z)) );
sum -= DELTA;
}
} как теперь туда байтовый массив запихать? Делал преобразование байт с помощью этой функции: Код ULONG GetInt32( UCHAR *pBytes )
{
return (ULONG)(*(pBytes + 3) << 24 | *(pBytes + 2) << 16 | *(pBytes + 1) << 8 | *pBytes);
} IAR ругается что shift count is too largeP.S.
Админам: тема касается AVR
Сообщение отредактировал Ivan Kuznetzov - Mar 5 2010, 06:59
--------------------
Разработчик
|
|
|
|
|
|
|
|
Mar 5 2010, 07:40
|
Беспросветный оптимист
Группа: Свой
Сообщений: 4 640
Регистрация: 26-12-07
Из: Н.Новгород
Пользователь №: 33 646
|
Цитата(Ivan Kuznetzov @ Mar 5 2010, 09:53)  IAR ругается что shift count is too large А просто взять байты и переложить в нужное место нельзя чтоли? Ну или там с юнионами поизвращаться Без всяких сдвигов ИАР, кстати, мог бы и сам догадаться
--------------------
Программирование делится на системное и бессистемное. ©Моё :)
— а для кого-то БГ — это Bill Gilbert =)
|
|
|
|
|
|
|
|
Mar 9 2010, 09:10
|
Местный
Группа: Свой
Сообщений: 307
Регистрация: 6-02-08
Из: Россия, Екатеринбург
Пользователь №: 34 798
|
Цитата(MrYuran @ Mar 5 2010, 12:40) А просто взять байты и переложить в нужное место нельзя чтоли? Ну или там с юнионами поизвращаться Без всяких сдвигов ИАР, кстати, мог бы и сам догадаться Все верно! иар оказался догадистый! просто сделал приведение типов, так работает: Код UCHAR buffer[256];
btea((unsigned long*)buffer, -(sizeof(buffer)/4));
--------------------
Разработчик
|
|
|
|
|
|
|
|
Mar 11 2010, 09:49
|
Местный
Группа: Свой
Сообщений: 307
Регистрация: 6-02-08
Из: Россия, Екатеринбург
Пользователь №: 34 798
|
ничего не понимаю... есть шифратор XTEA, который шифрует массив из 64-x long-гов, написан на Pascal. И есть точно такой-же код дешифратора, только на Си и в микроконтроллере, который кушает с флехи 256 байт в буфер и дешифрует их как (long*). дык вот непонятно почему код на си "переворачивает" каждый long (из 64-х) задом-наперёд. Если декодировать с помощью дельфи, то последовательность правильная получается. код в Делфи: Код type
TTeaData = array of Longword;
procedure XTeaBlockEncrypt(var data: TTeaData; const key: TTeaKey; N: Longword = 2);
var
y,z,sum,limit: Longword;
i,no:integer;
begin
no := Length(data);
i:=0;
while (i < no ) do
begin
y:=data[i];
z:=data[i+1];
sum:=0;
limit := Delta*N;
while sum <> limit do
begin
inc(y,(((z shl 4) xor (z shr 5)) + z) xor (sum+key[sum and 3]));
inc(sum,Delta);
inc(z,(((y shl 4) xor (y shr 5)) + y) xor (sum+key[(sum shr 11) and 3]));
end;
data[i]:=y;
data[i+1]:=z;
inc(i,2);
end;
end; Код в МК: Код void xtea_dec(unsigned long* data, unsigned char dataLength)
{
unsigned char i=0;
unsigned long x1;
unsigned long x2;
unsigned long sum;
unsigned long iterations;
iterations = NUM_ITERATIONS;
while(i<dataLength)
{
sum = DELTA*iterations;
x1=*data;
x2=*(data+1);
while(sum != 0)
{
x2 -= ((((x1<<4) ^ (x1>>5)) + x1) ^ (sum + key[(sum>>11)&0x03]));
sum-=DELTA;
x1 -= ((((x2<<4) ^ (x2>>5)) + x2) ^ (sum + key[sum&0x03]));
}
*(data++)=x1;
*(data++)=x2;
i+=2;
}
}
res = f_read(&fil,buffer,sizeof(buffer),&br); //читаем массив с флешки
xtea_dec((unsigned long*)buffer, (sizeof(buffer)/4)); //декодируем массив кстати, при кодировании/декодировании самой мегой проц, случае с байтами, тоже задом-наперед результат ставит, вот результат из терминала протеуса: Код (char) operation:
33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33
[b]8D 1 87 4D[/b] D F0 DE FF 8D 1 87 4D D F0 DE FF 8D 1 87 4D D F0 DE FF 8D 1 87 4D D F0 DE FF
33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33
(Long) operation:
33333333 33333333 33333333 33333333 33333333 33333333 33333333 33333333
[b]4D87018D[/b] FFDEF00D 4D87018D FFDEF00D 4D87018D FFDEF00D 4D87018D FFDEF00D
33333333 33333333 33333333 33333333 33333333 33333333 33333333 33333333 А если забить на все эти преобразования из long в char и оперировать там-и-там с long, как тогда лонг можно побайтно выдать в SPI, причем пачками не более 32-х байт? с массивом байт все просто, а как с long massiv[64] сделать?: Код for(j=0;j<sizeof(buffer);j+=32){
while (!DREQ);
vs_stream(&buffer[j],32);}
Сообщение отредактировал Ivan Kuznetzov - Mar 11 2010, 09:54
--------------------
Разработчик
|
|
|
|
|
|
|
|
Mar 12 2010, 05:26
|
Местный
Группа: Свой
Сообщений: 307
Регистрация: 6-02-08
Из: Россия, Екатеринбург
Пользователь №: 34 798
|
Цитата(V_G @ Mar 11 2010, 17:59) Про собственно шифрование ничего не скажу. А вот про переворот вроде понятно.
На Си существует следующий порядок размещения многобайтных переменных в памяти: младший байт - по младшему адресу.
На Паскале (и в Дельфях) - похоже, наоборот: первыми (по младшим адресам) размещены старшие байты.
Чтобы не мучить МК, перепишите паскалевский код на Си кароче получилось! Сначала поменял декодирование массива char-ов на массив long. Декодирую, отсылаю - пашет! пошел дальше: меняю размер декодируемого блока - (от 32-х long до 128 long) все равно пашет! тоесть для XTEA пофигу каким блоком декодировать. Далее, дай, думаю, вернусь к массиву char - сделал - РАБОТАЕТ! так и не понял в чем прикол был...  Коды на дельфи и на Си, кстати полностью идентичны... Еще вопрос к спецам по Дельфи: как этот код оптимизировать? если оперирую с дин. массивом data - ничего не пашет, приходится перед кодированием забивать из Buf в data, а затем обратно в Buf из data и Buf уже в файл. Если проделываю BlockRead или BlockWrite над массивом data - прога вываливается.. Код type TTeaData = array of Longword;
var
Buf: array[0..511] of Longword;
data: TTeaData; Код BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
for i := 0 to (SizeOf(Buf) div 4) - 1 do
begin
data[i]:= Buf[i];
end;
if algo=0 then XTeaBlockEncrypt(data, MasterKey);
if algo=1 then XXTeaEncrypt(data, MasterKey);
for i := 0 to (SizeOf(Buf) div 4) - 1 do
begin
Buf[i]:= data[i];
end;
BlockWrite(ToF, Buf, NumRead, NumWritten);
Сообщение отредактировал Ivan Kuznetzov - Mar 12 2010, 05:49
--------------------
Разработчик
|
|
|
|
|
|
|
|
Mar 12 2010, 09:49
|
Гуру
Группа: Свой
Сообщений: 3 123
Регистрация: 7-04-07
Из: Химки
Пользователь №: 26 847
|
Цитата(V_G @ Mar 11 2010, 15:59) Про собственно шифрование ничего не скажу. А вот про переворот вроде понятно.
На Си существует следующий порядок размещения многобайтных переменных в памяти: младший байт - по младшему адресу.
На Паскале (и в Дельфях) - похоже, наоборот К C/Pascal это не имеет НИКАКОГО отношения. Порядок следования байтов в long'е определяется архитектурой процессора. Для Intel'овских процессоров используется LSB размещение (младшие биты/байты идут в памяти первыми). На МК видимо наоборот. Есть нюанс - если МК аппаратно не поддерживает работу более чем с байтовыми переменными, то решение о LSB/MSB остается полностью на усмотрение компилятора. Цитата Чтобы не мучить МК, перепишите паскалевский код на Си Не поможет - на x86 LSB будет везде, вне зависимости от C/Pascal/Delphi/etc
|
|
|
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|
|
