| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите перевести на русский, т.е. на дельфийский язык!

NewCipher ©   (2003-01-14 14:31:00) 

Здесь две функции на С, но я ничего не понимаю в нем. Помогите, пожалуйста.

void str_to_key(unsigned char *str,unsigned char *key)
{
void des_set_odd_parity(des_cblock *);
int i;

key[0] = str[0]>>1;
key[1] = ((str[0]&0x01)2);
key[2] = ((str[1]&0x03)3);
key[3] = ((str[2]&0x07)4);
key[4] = ((str[3]&0x0F)5);
key[5] = ((str[4]&0x1F)6);
key[6] = ((str[5]&0x3F)7);
key[7] = str[6]&0x7F;
for (i=0;i>16) & 0xFF);
s[3] = (unsigned char)((sid>>24) & 0xFF);
s[4] = s[0];
s[5] = s[1];
s[6] = s[2];

str_to_key(s,deskey);
}

---

GiDRAvlic   (2003-01-16 12:16:00) [1]

Да я не со зла :-) Я для корректности, чтобы не вводить в заблуждение человека

---

E_Dimon   (2003-01-16 01:31:00) [2]

NewCipher,
Что ж ты хочешь - 3 часа ночи

---

NewCipher   (2003-01-15 14:07:00) [3]

Спасибо всем. Хоть Димон и как-то криво написал, но я разобрался.

---

GiDRAvlic   (2003-01-15 11:02:00) [4]

А + не хочешь? Почитай камасутру(MSDN) для начала!

---

icWasya   (2003-01-15 09:03:00) [5]

E_Dimon
вместо &надо and

---

E_Dimon   (2003-01-15 02:54:00) [6]

procedure str_to_key(str,key:string);
var
i:Integer;
procedure des_set_odd_parity(^des_cblock);
Begin
key[0] := str[0] shr 1;
key[1] := ((str[0]&0x01)shl 6) | (str[1]shr 2);
key[2] := ((str[1]&0x03)shl 5) | (str[2]shr 3);
key[3] := ((str[2]&0x07)shl 4) | (str[3]shr 4);
key[4] := ((str[3]&0x0F)shl 3) | (str[4]shr 5);
key[5] := ((str[4]&0x1F)shl 2) | (str[5]shr 6);
key[6] := ((str[5]&0x3F)shl 1) | (str[6]shr 7);
key[7] := str[6] and 0x7F;
for i:=0 to 8-1 do
key[i] := (key[i] shl 1);

des_set_odd_parity( ^des_cblock( key));
End;

//и так далее

---

Наверх