Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Имитировать испорченный txt файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Неформальное общение » Имитировать испорченный txt файл
Имитировать испорченный txt файл
RAN Дата: Воскресенье, 08.09.2013, 16:35 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Приветствую!
Закинул вопрос в курилке на Планете, но там тишина...
Возникла необходимость имитировать испорченный txt файл.
Т.е. файл на компе как бы есть, но открыть его нельзя.
Вспомнил тему
http://www.planetaexcel.ru/forum....e216785

Попробовал применить.
Но оказалось, что метод подходит только для файлов Excel.
Word документ восстанавливает (по крайней мере на том же компе), а txt вообще открывается без проблем, только без первых символов.

Существует ли возможность испортить или создать файл, чтобы его вообще нельзя было открыть блокнотом?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПриветствую!
Закинул вопрос в курилке на Планете, но там тишина...
Возникла необходимость имитировать испорченный txt файл.
Т.е. файл на компе как бы есть, но открыть его нельзя.
Вспомнил тему
http://www.planetaexcel.ru/forum....e216785

Попробовал применить.
Но оказалось, что метод подходит только для файлов Excel.
Word документ восстанавливает (по крайней мере на том же компе), а txt вообще открывается без проблем, только без первых символов.

Существует ли возможность испортить или создать файл, чтобы его вообще нельзя было открыть блокнотом?
Автор - RAN
Дата добавления - 08.09.2013 в 16:35
MCH Дата: Воскресенье, 08.09.2013, 16:40 | Сообщение № 2
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

Текстовый файл испортить сложно, т.к. он текстовый и каждый байт в нем - буква, поэтому если испортить начальные байты, то ничего с остальным текстом не случится.
Можно зашифровать, например XOR ключем (самый простой вариант)
Либо покапатся в файловой системе, и попортить там что нибудь, но чревато
 
Ответить
СообщениеТекстовый файл испортить сложно, т.к. он текстовый и каждый байт в нем - буква, поэтому если испортить начальные байты, то ничего с остальным текстом не случится.
Можно зашифровать, например XOR ключем (самый простой вариант)
Либо покапатся в файловой системе, и попортить там что нибудь, но чревато
Автор - MCH
Дата добавления - 08.09.2013 в 16:40
RAN Дата: Воскресенье, 08.09.2013, 16:43 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата (MCH, Воскресенье, 08.09.2013, 16:40 # 2)
Можно зашифровать, например XOR ключем

А поподробнее можно?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата (MCH, Воскресенье, 08.09.2013, 16:40 # 2)
Можно зашифровать, например XOR ключем

А поподробнее можно?
Автор - RAN
Дата добавления - 08.09.2013 в 16:43
Serge_007 Дата: Воскресенье, 08.09.2013, 16:52 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Андрей, тебе надо что бы не открывалось или что бы прочитать нельзя было?

http://src-code.net/operaciya-xor-i-prostejshee-shifrovanie-fajlov/

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеАндрей, тебе надо что бы не открывалось или что бы прочитать нельзя было?

http://src-code.net/operaciya-xor-i-prostejshee-shifrovanie-fajlov/
Автор - Serge_007
Дата добавления - 08.09.2013 в 16:52
MCH Дата: Воскресенье, 08.09.2013, 16:54 | Сообщение № 5
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

операция Xor с байтами, повторное применение приводит к дешифрации (востановлению к первоначальному состоянию)

Я не очень помню как работать с файлами, но основа примерно такая:
[vba]
Код
Sub www()
     Dim s$, i&, psw$
     psw = "Password"
      
     Open "c:\input.txt" For Input As #1
     Open "c:\output.txt" For Output As #2
      
     While Not EOF(1)
         s = Input(1, #1)
         i = i Mod Len(psw) + 1
         Print #2, Chr$(Asc(s) Xor Asc(Mid$(psw, i, 1)));
     Wend
     Close
End Sub
[/vba]


Сообщение отредактировал MCH - Воскресенье, 08.09.2013, 17:15
 
Ответить
Сообщениеоперация Xor с байтами, повторное применение приводит к дешифрации (востановлению к первоначальному состоянию)

Я не очень помню как работать с файлами, но основа примерно такая:
[vba]
Код
Sub www()
     Dim s$, i&, psw$
     psw = "Password"
      
     Open "c:\input.txt" For Input As #1
     Open "c:\output.txt" For Output As #2
      
     While Not EOF(1)
         s = Input(1, #1)
         i = i Mod Len(psw) + 1
         Print #2, Chr$(Asc(s) Xor Asc(Mid$(psw, i, 1)));
     Wend
     Close
End Sub
[/vba]
Автор - MCH
Дата добавления - 08.09.2013 в 16:54
RAN Дата: Воскресенье, 08.09.2013, 17:15 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Оптимально, мне бы хотелось, чтобы при попытке открыть кричало - файл испорчен.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеОптимально, мне бы хотелось, чтобы при попытке открыть кричало - файл испорчен.
Автор - RAN
Дата добавления - 08.09.2013 в 17:15
Serge_007 Дата: Воскресенье, 08.09.2013, 17:26 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
С txt так вряд ли получится

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеС txt так вряд ли получится
Автор - Serge_007
Дата добавления - 08.09.2013 в 17:26
RAN Дата: Воскресенье, 08.09.2013, 17:44 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Абыдно... :(

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеАбыдно... :(
Автор - RAN
Дата добавления - 08.09.2013 в 17:44
Serge_007 Дата: Воскресенье, 08.09.2013, 17:48 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Андрей, я не утверждаю что это на 100% невозможно, но подозрения такие есть...
Если надо просто ввести в заблуждение кого-то, то можно изменить расширение какого-нибудь файла, например gif на txt, тогда при открытии в нем будет полная абракадабра и догадаться о том что это был именно gif - практически невозможно
Однако алерта "файло эррор" таким образом не добиться...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеАндрей, я не утверждаю что это на 100% невозможно, но подозрения такие есть...
Если надо просто ввести в заблуждение кого-то, то можно изменить расширение какого-нибудь файла, например gif на txt, тогда при открытии в нем будет полная абракадабра и догадаться о том что это был именно gif - практически невозможно
Однако алерта "файло эррор" таким образом не добиться...
Автор - Serge_007
Дата добавления - 08.09.2013 в 17:48
Мир MS Excel » Работа и общение » Неформальное общение » Имитировать испорченный txt файл
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!