Текущий архив: 2002.10.21;
Скачать: CL | DM;
Вниз
---|Ветка была без названия|--- Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.025 c
