Search     or:     and:
 LINUX 
 Language 
 Kernel 
 Package 
 Book 
 Test 
 OS 
 Forum 
 iakovlev.org 
 Languages
 С
 GNU С Library 
 Qt 
 STL 
 Threads 
 C++ 
 Samples 
 stanford.edu 
 ANSI C
 Libs
 LD
 Socket
 Pusher
 Pipes
 Encryption
 Plugin
 Inter-Process
 Errors
 Deep C Secrets
 C + UNIX
 Linked Lists / Trees
 Asm
 Perl
 Python
 Shell
 Erlang
 Go
 Rust
 Алгоритмы
NEWS
Последние статьи :
  Тренажёр 16.01   
  Эльбрус 05.12   
  Алгоритмы 12.04   
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
 
TOP 20
 Secure Programming for Li...6507 
 Linux Kernel 2.6...5279 
 Trees...1119 
 Максвелл 3...1050 
 William Gropp...987 
 Go Web ...961 
 Ethreal 3...930 
 Ethreal 4...916 
 Gary V.Vaughan-> Libtool...913 
 Ext4 FS...903 
 Clickhouse...900 
 Rodriguez 6...899 
 Ethreal 1...897 
 Steve Pate 1...884 
 C++ Patterns 3...860 
 Assembler...854 
 Ulrich Drepper...844 
 DevFS...786 
 MySQL & PosgreSQL...771 
 Стивенс 9...757 
 
  01.01.2024 : 3621733 посещений 

iakovlev.org
 

Форматирование винчестера

Скрипт , представленный ниже , удаляет все партиции на устройстве /dev/hdb (slave drive на Primary IDE контроллере) , затем создает на нем одну партицию и копирует на нее подготовленный специальный массив шифрованных данных. Как все это проделывается ? Удаление партиций Для автоматизации утилиты fdisk используется Perl Expect script , имитирующий ввод пользователя. Копирование данных Простое удаление партиций недостаточно для удаления данных. Запись порции данных поверх созданной партиции гарантирует удаление всех данных. Для получения размера партиций используется sfdisk . Новая созданная партиция забивается шифрованными данными под завязку. В скрипте создаются случайные бинарные данные с использованием перловых функций random и chr. Эти данные шифруются с помощью модуля Blowfish . Форматирование вновь созданной партиции выполняется с помощью команды "mkfs" .

Perl Script

Был использован Perl 5.005_03 . Были затрачены определенные усилия на то , чтобы сделать скрипт более дружественным. В скрипте выполняется проверка ошибок и ведется диалог с пользователем . (Text version of this listing) #!/usr/bin/perl use strict; use Expect; use Crypt::Blowfish; #----------------------------------------------- my $Junk; ### Устанавливаем на slave drive Primary IDE контроллера. my $Drive = "hdb"; ### Для получения реального random используем /etc/passwd my $time = time(); my $Ran = rand($time); my $Ran = rand(10000000000000); my $LastLine = `tail -n 1 /etc/passwd`; chomp $LastLine; $LastLine = substr ($LastLine,0,30); my $Blowfish_Key = $LastLine . $Ran . $time; $Blowfish_Key = substr ($Blowfish_Key,0,20); while (length ($Blowfish_Key) < 56) { $Blowfish_Key .= $Ran = rand($time); } $Blowfish_Key = substr ($Blowfish_Key,0,56); ### Сгенерировав ключ , создаем обьект Blowfish Encryption . my $Blowfish_Cipher = new Crypt::Blowfish $Blowfish_Key; #------------------------------------ system "clear"; print "Внимание! Сейчас мы сотрем все данные на /dev/$Drive\n"; print "Нажмите enter\n"; my $R = <STDIN>; ### Получим сисок партиций my @Mounted = `df`; @Mounted = grep($_ =~ /\/dev\/hdb/, @Mounted); ### Foreach mounted partition, umount it foreach my $Mount (@Mounted) { my ($Partition,$Junk) = split(/\s+/, $Mount,2); print "Unmounting $Partition\n"; my $Result = system ("umount $Partition"); if ($Result > 0) { print "ОШИБКА, невозможно применить umount к $Partition, выход, Error = $Result\n"; exit; } } ### Запуск expect script, имитирующего набор в командной строке my $Fdisk = Expect->spawn("/sbin/fdisk /dev/$Drive"); ### Распечатаем таблицу партиций print $Fdisk "p\n"; my $match=$Fdisk->expect(30,"Device Boot Start"); my $Temp = $Fdisk->exp_after(); my @Temp = split(/\n/, $Temp); my @Partitions = grep($_ =~ /^\/dev\//, @Temp); ## Собственно удаление партиций в цикле foreach my $Line (reverse @Partitions) { ## Часть /dev/hdb с номером my ($Part,$Junk) = split(/[\t ]/, $Line,2); my $No = $Part; $No =~ s/^\/dev\/$Drive//; print "Партиция для удаления $Drive $No\n"; ## удаление print $Fdisk "d\n"; $match=$Fdisk->expect(30,"Partition number"); ## Подставляем expect-rjl print $Fdisk "$No\n"; $match=$Fdisk->expect(30,"Command (m for help):"); } $Fdisk->clear_accum(); if (@Partitions < 1) {print $Fdisk "q\n"; $Fdisk->expect(2,":");} else { print $Fdisk "w\n"; $Fdisk->expect(30,"Command (m for help):"); } #------------------------------- ## Геометрия диска my $Geometry = `/sbin/sfdisk -g /dev/$Drive`; my ($Junk, $Cyl, $Junk2, $Head, $Junk3, $Sector,@Junk) = split(/\s+/,$Geometry); if ($Cyl < 1) {print "ERROR: невозможно определить цилиндры. выход\n"; exit;} ### симулируем вызов fdisk из командной строки my $Fdisk = Expect->spawn("/sbin/fdisk /dev/$Drive"); #### Создаем новую партицию print $Fdisk "n\n"; $Fdisk->expect(5,"primary"); ### Делаем ее primary partition print $Fdisk "p\n"; $Fdisk->expect(5,":"); ### Работаем с первой партицией print $Fdisk "1\n"; $Fdisk->expect(5,":"); ### Начинаем с 1-го цилиндра print $Fdisk "1\n"; $Fdisk->expect(5,":"); ### Заканчиваем print $Fdisk "$Cyl\n"; $Fdisk->expect(5,":"); ### Сохраняем print $Fdisk "w\n"; $Fdisk->expect(30,"Command (m for help):"); #------------------------------------------ ### Форматирование и монтирование партиции my $Partition = "/dev/$Drive" . "1"; my $Result = system ("mkfs -t ext2 $Partition"); if ($Result > 0) {print "Ошибка при создани партиции,выход.\n"; exit;} ### Проверка ошибок system "umount /tmp/WIPE_IT"; system "rm -rf /tmp/WIPE_IT"; system "mkdir -p /tmp/WIPE_IT"; system "chmod 700 /tmp/WIPE_IT"; ## Подготовка монтирования my $Result = system ("mount $Partition /tmp/WIPE_IT"); if ($Result > 0) {print "Ошибка монтирования устройства, выход.\n"; exit;} system "chmod 700 /tmp/WIPE_IT"; #-------------------------------- ### Создаем файл. my $Count = 0; my $Written_Size = 0; ### Открываем новый файл. open(FILE,">>/tmp/WIPE_IT/Message.txt"); my $Ran = rand 259200000; # 10 лет ($Ran, $Junk) = split(/\./, $Ran, 2); ## Новый данные минус случайное число в секундах my $Date = `date --date '-$Ran seconds'`; print FILE "DATE CREATED $Date\n"; my $Ran = rand 50; ($Ran, $Junk) = split(/\./, $Ran, 2); $Ran = $Ran + 10; print FILE "Секретные данные :-) Доступ запрещен.\n"; ### Создаем random number + 25000 my $Ran = rand 25000; ($Ran, $Junk) = split(/\./, $Ran, 2); $Ran = $Ran + 25000; ### Создаем массив my @Blank = (1..$Ran); ### Масиив переводим в строку my $Blank = "@Blank"; ### Удалим массив @Blank = (); my $B_Length = length $Blank; ### Определим свободное место на партиции my @Temp = `df`; @Temp = grep($_ =~ /^$Partition/, @Temp); my $Line = $Temp[0]; my ($Junk,$Blocks,@Junk) = split(/\s+/, $Line,4); ### Блок в 1 килобайт my $Size = $Blocks*1000; ## Заполняем партицию в цикле while ($Written_Size < $Size) { $Count++; ### Периодически разбавляем пробелами my $Ran = rand (10); if ($Ran > 1) { print FILE $Blank; $Written_Size = $Written_Size + $B_Length; } else { ## Создадим длинную строку (10000 bytes) my $Garbage = ""; my $Length = rand(10000); ($Length, $Junk) = split(/\./, $Length, 2); for (my $i = 0; $i < $Length; $i++) { my $Ran = rand 256; ($Ran, $Junk) = split(/\./, $Ran, 2); $Garbage .= chr $Ran; } ## 8-битное шифрование my $Temp = $Garbage; my $Encrypted = ""; while (length $Temp > 0) { while (length $Temp < 8) {$Temp .= "\t";} my $Temp2 = $Blowfish_Cipher->encrypt(substr($Temp,0,8)); $Encrypted .= $Temp2; if (length $Temp > 8) {$Temp = substr($Temp,8);} else {$Temp = "";} } ### Сохраняем в файл. print FILE $Encrypted; $Length = length $Encrypted; $Written_Size = $Written_Size + $Length; my $Rest = $Size - $Written_Size; print "$Size - $Written_Size = $Rest to go\n"; } ### С периодичностью 1/50 пишем в файл if ($Count =~ /500$/) { close FILE; open(FILE,">>/tmp/WIPE_IT/$Count"); } } close FILE; #---------------------------------------------------- my $Result = system ("umount $Partition"); if ($Result > 0) {print "Error unmounting partition $Partition, aborting.\n"; exit; } ### Форматирование партиции. Данные копируем my $Result = system ("mkfs -t ext2 $Partition"); if ($Result > 0) {print "Error making partition, aborting.\n"; exit;}

Заключение

Использование Expect необязательно - показано просто для наглядности. Использвание Blowfish необязательно.

References

  1. Perl.com website.
  2. Expect Perl Module
  3. Blowfish Perl Module
Copyright © 2001, Mark Nielsen.
Copying license http://www.linuxgazette.com/copying.html
Published in Issue 63 of Linux Gazette, Mid-February (EXTRA) 2001
Оставьте свой комментарий !

Ваше имя:
Комментарий:
Оба поля являются обязательными

 Автор  Комментарий к данной статье