Модераторы: bsa
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> из c в delphi 
:(
    Опции темы
GreedyFly
Дата 10.7.2013, 03:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 21.3.2009

Репутация: нет
Всего: нет
доброй ночи!!!

Не пойму как перевести в Дельфи данный код:

len = hex2byte(str);
    for(i = len - 1; i >= 0; i--) {
        for(j = 0; j < len; j++) {
            if(i == j) continue;
            str[i] = (str[i] - str[j]) - j;
PM MAIL   Вверх
bsa
Дата 10.7.2013, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 9185
Регистрация: 6.4.2006
Где: Москва, Россия

Репутация: 85
Всего: 196
Как-то так:
Код
len = hex2byte(str);
for i = 1 to len
begin
   x = len - i;
   for j = 0 to len - 1
   begin
      if x <> j then
         str[x+1] = Chr(Ord(str[x+1]) - Ord(str[j+1]) - j);
   end;
end;



--------------------
Правильно заданный вопрос - половина ответа
Отзывы о работе модератора.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "C/C++: Для новичков"
JackYF
bsa

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, JackYF, bsa.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C/C++: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0400 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.