Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

---|Ветка была без названия|---

NaM © (2002-10-09 18:59:00)
ПОМОГИТЕ ПЕРЕДЕЛАТЬ!
Доброе время суток! Большое спасибо за то что вы обратили внимание на поднятую мною тему и очень важную для меня!
Я не знал куда обратиться, поэтому решил обратится сюда! Для начала сообщу, что я только начанаю изучать паскаль [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 и мне каким бы то ни было образом необходимо его найти!

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

Rouse_ (2002-10-10 00:43:00) [1]
Таким образом Seed не используется следовательно не нужна ;)

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

cypher (2002-10-10 00:19:00) [2]
Известна, но не определена....
где Seed := какое-то-число?

Rouse_ (2002-10-10 00:13:00) [3]
Почему это тебе сид не известна?
> MinChars, MaxChars, Seed: Int64;

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

cypher (2002-10-10 00:05:00) [4]
Предлагаю для переворачивания поставить монитор на ногами вверх! =) будет перевернутый код... ровна на 180 градусов, если нужно на 270 или 90... пиши, расскажку как =)

Задумавшийся (2002-10-09 19:54:00) [5]
В приведённой тобой функции Seed никак не инициализируется.
(нет кода Seed := чему-нибудь), а сразу используется.
В ней вообще должен быть мусор.

TTCustomDelphiMaster (2002-10-09 19:53:00) [6]
Похоже генератор паролей

Darlock (2002-10-09 19:47:00) [7]
Да, данных маловато ИМХО

Юрий Зотов (2002-10-09 19:47:00) [8]
Дык... может, пусть ее, чужую функцию, а лучше свою написать?
В чем задача-то?

TTCustomDelphiMaster (2002-10-09 19:34:00) [9]
Если это все что Вы знаете - тогда никак.

BOA_KAA (2002-10-09 19:20:00) [10]
Сидел, врубался, так и не понял, как тебе его перевернуть надо? Может туплю?..

Mike Kouzmine (2002-10-09 19:03:00) [11]
А поиском не пробовал найти?

Наверх

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