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

← →
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... пиши, расскажку как =)

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

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

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

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

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

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