ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Необходима помощь в переводе с C++ на Delphi двух функций
  #1  
Старый 21.02.2009, 23:50
Аватар для KIR@PRO
KIR@PRO
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389

Репутация: 332
Отправить сообщение для KIR@PRO с помощью ICQ
По умолчанию Необходима помощь в переводе с C++ на Delphi двух функций

Доброго времени суток!
Прошу перевести эти две функции на дэлфи:

Код:
#include <stdio.h>
#include <string.h>


//раз функция
static inline long hash_1(char *arKey, int nKeyLength)
{
        long h = 5381;
        char *arEnd = arKey + nKeyLength;
 
        while (arKey < arEnd) {
                h += (h << 5);
                h += (long) *arKey++;
        }
        return h;
}

//два функция
static inline long hash_2(char *arKey, int nKeyLength)
{
        long h = 5381;
        char *arEnd = arKey + nKeyLength;
 
        while (arKey < arEnd) {
                h += (h << 5);
                h ^= (long) *arKey++;
        }
        return h;
}


//это ненадо это я понимаю)
int main()
{
	char *chr = "GALLERY_BASEDIR"; 
	int len = strlen(chr)+1;
	printf("%ld\n", hash_php5(chr, len));
	printf("%ld\n", hash_php4(chr, len));
}
ввиду моих плохих знаний в C++ возможности перевести нет поэтому прошу помоч.
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шахматы на Delphi нужна помощь. Mobile С/С++, C#, Delphi, .NET, Asm 3 01.12.2008 02:53
Программа на Delphi. Помощь нужна. Happer С/С++, C#, Delphi, .NET, Asm 7 25.03.2006 21:08
Необходима помощь по взлому чата. ТЮРЯГА Чаты 4 31.05.2004 15:10



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ