Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

---|Ветка была без названия|---   Найти похожие ветки 

 
NaM   (2002-10-09 18:59) [0]

ПОМОГИТЕ ПЕРЕДЕЛАТЬ!
Доброе время суток! Большое спасибо за то что вы обратили внимание на поднятую мною тему и очень важную для меня!
Я не знал куда обратиться, поэтому решил обратится сюда! Для начала сообщу, что я только начанаю изучать паскаль [delphi]
Ну нет - не считайте меня за совершенно не понимающего, т.к. я занимаюсь PHP, PERL, C++... и некоторые понятия конечно
понимяю! Проблемма состоит вот в чём: есть кусок кода, точнее функции, которую мне надо "перевернуть" т.е переделать.
Сама функция:
var
Topper :String;
i, Code: integer;
TopStr: string;
Num: Int64;
FRegCodeSize: integer;
MinChars, MaxChars, Seed: Int64;
begin
if (Length(Topper) > MaxChars) or (Length(Topper) < MinChars) then
begin
Result := "";
Exit;
end;
i := Length(Topper);

while (i >= Length(Topper) - 6) and (i > 0) do
begin
TopStr := TopStr + IntToStr(Seed mod Ord(Topper[i]));
Dec(i);
end;
Val(Topper, Num, Code);
if FRegCodeSize <= 0 then
Result := IntToHex(Num, 0)
else begin
Result := IntToHex(Num, FRegCodeSize);
Delete(Result, FRegCodeSize + 1, Length(Result) - FRegCodeSize);
end;
end;


Так вот, мне известно Code, i, Topper, MinChars, MaxChars, Num, хотя я не уверен... Но я ТОЧНО знаю, что мне не
известно SEED и мне каким бы то ни было образом необходимо его найти!

Господа Модераторы-Администраторы, не посчитайте мою просьбу дурной, но поднятый мною вопрос очень важен для меня
и если я обратился "не по адресу", т.е попал не в тот раздел форума, то перенесите данный (очень ВАЖНЫЙ для меня
[ещё раз это подтчёркиваю]) вопрос в другую тематику форума!


 
Mike Kouzmine   (2002-10-09 19:03) [1]

А поиском не пробовал найти?


 
BOA_KAA   (2002-10-09 19:20) [2]

Сидел, врубался, так и не понял, как тебе его перевернуть надо? Может туплю?..


 
TTCustomDelphiMaster   (2002-10-09 19:34) [3]

Если это все что Вы знаете - тогда никак.


 
Darlock   (2002-10-09 19:47) [4]

Да, данных маловато ИМХО


 
Юрий Зотов   (2002-10-09 19:47) [5]

Дык... может, пусть ее, чужую функцию, а лучше свою написать?
В чем задача-то?


 
TTCustomDelphiMaster   (2002-10-09 19:53) [6]

Похоже генератор паролей


 
Задумавшийся   (2002-10-09 19:54) [7]

В приведённой тобой функции Seed никак не инициализируется.
(нет кода Seed := чему-нибудь), а сразу используется.
В ней вообще должен быть мусор.


 
cypher   (2002-10-10 00:05) [8]

Предлагаю для переворачивания поставить монитор на ногами вверх! =) будет перевернутый код... ровна на 180 градусов, если нужно на 270 или 90... пиши, расскажку как =)


 
Rouse_   (2002-10-10 00:13) [9]

Почему это тебе сид не известна?
> MinChars, MaxChars, Seed: Int64;

Желаю успехов


 
cypher   (2002-10-10 00:19) [10]

Известна, но не определена....
где Seed := какое-то-число ?


 
Rouse_   (2002-10-10 00:43) [11]

Таким образом Seed не используется следовательно не нужна ;)

Желаю успехов



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.036 c
1-68710
dimonf
2002-10-08 20:41
2002.10.21
Как правильно округлить 3.0299999 в 3.03?


3-68623
sasha123
2002-09-27 08:44
2002.10.21
Подскажите метод преобразования CSV файла в DBF.


14-68938
FLIZ
2002-09-27 13:22
2002.10.21
Вопрос к интернетчикам! по серверам IIS и Apache


1-68726
Saninsky
2002-10-10 19:48
2002.10.21
Запуск DOS приложений из Delphi


4-69076
Jokle
2002-09-08 21:51
2002.10.21
DisableThreadLibraryCalls?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский