HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 03.07.2008, 17:11
nbd
Познающий
Регистрация: 27.10.2006
Сообщений: 90
Провел на форуме:
560577

Репутация: 68
По умолчанию

PHP код:
<?php  
//function H(Text,Key: String; Encode: boolean): String;
//var
//  i, KeyLength: integer;
//  Sign: ShortInt;
//begin
// KeyLength:=Length(Key);
// if Encode then Sign :=-1 else Sign:=1;
// for i:=1 to Length(Text) do
//  Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1]));
//  Result:=Text;
//end;
function H($text,$key,$encode) {
$keylength=strlen($key);
if (
$encode) {$sign=-1;} else {$sign=1;}
$text_len=strlen($text);
for (
$i=0;$i<=$text_len;$i++){
$text[$i]=chr(ord($text[$i])+$sign*ord($key[fmod($i,$keylenght+1)]));}
return 
$text;
}
?>
Найт, выложи суда результат работы функции в Дельфях,

верни в for $i=0 так правильнее, а вообще трабл может быть и в кодировках браузера.

Последний раз редактировалось nbd; 03.07.2008 в 17:46..
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[c/c++] Новичкам: задаем вопросы _Great_ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 5421 21.04.2026 07:37
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости. Обсуждения. 4 07.07.2006 16:53
Вопросы по Ipb 2.0 Voodoo_People Уязвимости CMS / форумов 26 15.02.2005 22:57



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


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




ANTICHAT ™ © 2001- Antichat Kft.