1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

Помогите с простой задачей.. что-то туплю..

Тема в разделе "Delphi - FAQ", создана пользователем vital, 15 июл 2009.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.433
    Симпатии:
    31
    в единственном параметре проге передается имя файла
    1. прогармма считывает дату создания файла (получается к примеру "14072009")
    3. эта штука кодируется (к примеру смещается на 3 бита влево и XOR 01011010)
    4. то что получилось записывается в этот файл (со стиранием предыдущего содержимого)

    Сделал так..

    Код (Text):
    program Project1;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var
    fn,n:string;
    date:TDateTime;
    key:integer=0;
    f:file of integer;

    function GetFileDateTime(FileName: string): TDateTime;
    var
    intFileAge: LongInt;
    begin
    intFileAge := FileAge(FileName);
    if intFileAge = -1 then Result := 0
    else Result := FileDateToDateTime(intFileAge)
    end;

    begin
    fn:=paramstr(1);
    if fn='' then exit;
    date:=getfiledatetime(fn);
    DateTimeToString(n,'ddmmyy',date);
    key:=strtoint(n) shl 3;
    key:=key xor 01011010;
    AssignFile(f,fn);
    Rewrite(f);
    Write(f,key);
    close(f);
    end.
    Но в обратную сторону изначальная дата не получается.. а должна(( почему?

    Но в обратную сторону дата не получается((

    Получилась.. а Я идиот.

    Удалите тему плиз.
     
  2. etc

    etc Гость

    Почему должна?
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей