wavstego.pas

[HiredKiller1]

Доброго времени суток.
Задание - скрыть в wav файле любой другой файл.
Так как в дельфи не очень силен приступил к поискам в гугле.
Копаясь в гугле нашел интересный клас для себя (в вложении)
может кто навести примеры работы с ним? или любые другие примеры стеганографии в wav


Inject - внедрить (?)
Catch - извлечь (?)
LoadToBA - загрузить (но вот что?? где грузить вав и файл(текст) черт его знает)
SaveToBA - сохранить. (если я правильно понял на выходе должен быть вав файл с текстом)
гружу вав а вот куда текст (?)

var
dir:string;
begin
GetDir(0, dir);
twav.LoadToBA(dir+'/test.wav');

переменные вообще не задействованы

 var
    TexFileTMP, TexFile: string;

[raxp]

...пример работы с классом (функции доработал для универсальности):


Сами модифицированные функции:

procedure TWFile.LoadToBA (fn: ansistring; textorfile: boolean);
  var
    FS: TFileStream;
  var
    i:  integer;
    d:  byte;

  begin
    if textorfile then begin
     i:= length(fn) * 8 + 48;
     SetLength(BitA, i);
     BitAPos := 0;
     PutWord(Header);
     PutInteger(length(fn));

     for I := 1 to length(fn) do begin
      PutByte(ord(fn[i]));
      end;
     end else begin


    FS := TFileStream.Create(fn, fmOpenRead);
    SetLength(BitA, fs.Size * 8 + 48);
    BitAPos := 0;
    PutWord(Header);
    PutInteger(fs.Size);

    for I := 0 to FS.Size - 1 do
      begin
      FS.Read(d, 1);
      PutByte(d);
      end;

    FS.Free;
  end;
end;


procedure TWFile.SaveToBA (var fn: ansistring; textorfile: boolean);
  var
    FS: TFileStream;
  var
    i, size: integer;
    d:  byte;

  begin
    if textorfile then begin
     fn:= '';
     BitAPos := 16;
     size := GetInteger;

     for I := 0 to size - 1 do begin
      d := GetByte();
      fn:= fn + ansichar(d)
     end;
    end else begin



    FS := TFileStream.Create(fn, fmCreate);
    BitAPos := 16;
    size := GetInteger;

    for I := 0 to size - 1 do
      begin
      d := GetByte();
      FS.Write(d, 1);
      end;

    FS.Free;
    end;
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var t,tt: string;
begin
 sb.Panels[0].Text:= 'Начинаем шифрование...';

 w:= TWFile.Create(0);
 t:= get_file(paramstr(0), 'Выберите исходный WAV');
 if t='' then exit;
 w.LoadWave(t);

 if rg1.ItemIndex=0 then
  w.LoadToBA(memo1.Lines.GetText, true)
 else begin
  tt:= get_file(paramstr(0), 'Выберите текстовый файл для зашифровки');
  if tt='' then exit;
  
  w.LoadToBA(tt, false);
 end;

 w.Inject;
 w.SaveWave('xxx_'+ extractfilename(t));
 w.Free;

 sb.Panels[0].Text:= 'Шифрование выполнено!'
end;

procedure TForm1.Button2Click(Sender: TObject);
var t,tt: string;
begin
 sb.Panels[0].Text:= 'Начинаем дешифровку...';

 w:= TWFile.Create(0);
 t:= get_file(paramstr(0), 'Выберите WAV для расшифровки');
 if t='' then exit;
 w.LoadWave(t);
 w.Catch;

 t:= '';
 if rg2.ItemIndex=0 then begin
  w.SaveToBA(t, true);
  memo2.Lines.SetText(pchar(t));
 end else begin
  t:= get_file(paramstr(0), 'Выберите куда сохранить расшифровку из WAV');
  if t='' then exit;

  w.SaveToBA(t, false);
 end;


 w.Free;
 sb.Panels[0].Text:= 'Дешифрование выполнено!'
end;

Удачи!

[HiredKiller1]

Сообщение от raxp

...пример работы с классом (функции доработал для универсальности)

огромное человеческое Спасибо!
Даже не представляешь как выручил
буду лепить =D

[raxp]

карма такая, выручать.