Как сделать нечитаемым JPG файл

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Bers
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 11.12.2004 (Сб) 20:52

Как сделать нечитаемым JPG файл

Сообщение Bers » 11.12.2004 (Сб) 20:57

Помогите плиззз.
Как быстро и без большой загрузки ЦП сделать нечитаемым JPG файл с получение пароля/кода c с помощью которого можно сделать его опять читаемым?

Заранее спасибо!

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 11.12.2004 (Сб) 21:01

Установить себе PGP и не ерундой не страдать :wink:

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 11.12.2004 (Сб) 21:15

Если у противников нет под рукой суперкомпьютера, просто заархивировать его с паролем достаточно.
Изображение

Mizin Alex
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 50
Зарегистрирован: 12.06.2004 (Сб) 9:46
Откуда: Россия , Ивдель

Сообщение Mizin Alex » 11.12.2004 (Сб) 21:19

Закодируй 2-3 кб начала файла .

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 12.12.2004 (Вс) 15:50

Да можно вообще запомнить последний символ в в файле, потом его стереть, как только вводится пароль вы этот символ опять добавляете! :lol:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 12.12.2004 (Вс) 16:24

_Мика_ писал(а):Да можно вообще запомнить последний символ в в файле, потом его стереть, как только вводится пароль вы этот символ опять добавляете! :lol:
Не сканает. Лучше из начала, и действительно, пару-тройку килобайт - для гарантии.
Изображение

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 12.12.2004 (Вс) 16:57

Нууу..... :roll: :roll: :roll:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Bers
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 11.12.2004 (Сб) 20:52

Сообщение Bers » 14.12.2004 (Вт) 12:11

xolod писал(а):Установить себе PGP и не ерундой не страдать :wink:
Спасибо за позитивный настрой меседжа :)
Мне нужно сделать это програмно. То есть, в что бы моя программа его сделала нечитаемым, а потом читаемым.

Mizin Alex писал(а):Закодируй 2-3 кб начала файла .

Mizin Alex, tyomitch а алгоритм особо не загружающий ЦП не подскажите? Или хотябы где посмотреть? :)

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.12.2004 (Вт) 12:56

Код: Выделить всё
Dim b As Long
For i = 1 to 2048 Step 4
   Get #1, i, b
   Put #1, i, Not b
Next

расшифровка такая же.
Изображение

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 14.12.2004 (Вт) 13:03

:thumright:, жаль только сломать это как... ну ты сам знаешь :)

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

Faust
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 649
Зарегистрирован: 29.12.2003 (Пн) 13:38
Откуда: лаборатория

Сообщение Faust » 14.12.2004 (Вт) 13:31

А если так:
Код: Выделить всё
Randomize 0
Dim b As Byte
For I=1 to 10000
get #1, CLng(Rnd*LOF(1)), b
put #1, CLng(Rnd*LOF(1)), Not b
Next I
Листинги не горят!

Bers
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 11.12.2004 (Сб) 20:52

Сообщение Bers » 14.12.2004 (Вт) 23:10

Но нужно что бы с каким то ключем шифровал. Так что бы пото можно было обратно вернуть!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.12.2004 (Вт) 23:16

Да блин, что пишешь-то? :-)
Изображение

Faust
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 649
Зарегистрирован: 29.12.2003 (Пн) 13:38
Откуда: лаборатория

Сообщение Faust » 15.12.2004 (Ср) 1:18

Bers писал(а):Но нужно что бы с каким то ключем шифровал. Так что бы пото можно было обратно вернуть!

Faust писал(а):Randomize 0

Чем Вам один байт не ключ, а "вернуть обратно" можно, зпустив этот же код ещё раз.
Листинги не горят!

Ariman
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 817
Зарегистрирован: 02.09.2003 (Вт) 16:23
Откуда: Великая наша держава, г.Москва

Сообщение Ariman » 15.12.2004 (Ср) 19:44

Можно каждый байт ксорить следующим. Это, конечно, тоже не трудно сломать, но как правило люди долго гадают, как выбрано то число, которым ксорят...
Так что можно по кругу, первый xor второй, второй xor третий, ...., последний xor первый.

Ariman
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 817
Зарегистрирован: 02.09.2003 (Вт) 16:23
Откуда: Великая наша держава, г.Москва

Сообщение Ariman » 15.12.2004 (Ср) 19:45

Можно каждый байт ксорить следующим. Это, конечно, тоже не трудно сломать, но как правило люди долго гадают, как выбрано то число, которым ксорят...
Так что можно по кругу, первый xor второй, второй xor третий, ...., последний xor первый.

Ariman
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 817
Зарегистрирован: 02.09.2003 (Вт) 16:23
Откуда: Великая наша держава, г.Москва

Сообщение Ariman » 15.12.2004 (Ср) 19:55

Простите, ошибся немного :oops:
Последний надо оставить для расксоривания......


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList  
cron