Как утащить данные с компа по аудио кабелю

[Sibedir]

Заранее извиняюсь перед модераторами, если тему не по адресу создал. Сам не знаю в какой раздел ее пихать.

А суть вопроса такова. Есть комп без приводов, дисководов, и USB-, COM- и LPT-портов. Скинуть на комп данные можно через админов. Скачать нельзя никак. А надо.
Вспомнились мне добрые 90-е, когда данные хранили на аудио кассетах, и я подумал, что байты с тех самых пор ничуть не изменились, и если их можно записать на кассету, то можно и передать на другой комп по аудио кабелю.
Предполагаю, что для этого понадобятся ноутбук и 2 кабеля (от аудио выхода компа к микрофону ноутбука и наоборот). Это имеется в наличии. Что дальше. Может кто уже видел такие программы. Если нет то, как ее написать (думаю это не сложно, просто у меня совершенно нет опыта работы с аудио сигналами) и нужны ли для этого права в системе. У меня простой пользователь.

[mihali4]

То есть не музыку, а информацию?
Ну, если б это было так просто, то и лаборатории по проверке уровня излучений ЭВТ и поиску закладок не нужны были бы.
Без спецаппаратуры у вас ничего не получится, тем более через аудио выход.
Или вы имели в виду написать для вас программу, преобразующую содержимое любого файла в некую звуковую последовательность? Чтобы получилось нечто похожее на "журчание" Спектрума?
И вторую - позволяющую сделать обратное преобразование?
Задачка забавная, но вряд ли найдется желающий делать ее "за так".
Так что вы действительно ошиблись разделом - вам во "Фриланс".

[Ulex]

Ну не знаю, может поможет чем нибудь

Это АМ-MSK модулятор (для вашего случая передатчик).
Делал я его годов так несколько назад, поэтому могут быть нюансы.

Ну и вобщем всё это на ассемблере, хотя там всё вполне очевидно.

[Sibedir]

СПС Ulex. Но ASM для меня - это слишком.
Вот чё нашел
http://www.delphisources.ru/pages/fa...soundcard.html

Немного подшаманил. Практически вслипую, так как формата WAVE не знаю. Но кое что получилось:

uses
  MMSystem;

type
  TVolumeLevel = 0..127;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  F: file of Byte;
  fs: Integer;
  b: Byte;
  WaveFormatEx: TWaveFormatEx;
  MS: TMemoryStream;
  i, TempInt, DataCount, FullDataCount, RiffCount: integer;
  SoundValue: byte;
  w: double; // omega ( 2 * pi * frequency)
  Frequency {Hz}: Integer;
  Duration {mSec}: Real;
  Volume: TVolumeLevel;
const
  Mono: Word = $0001;
  SampleRate: Integer = 22050; // 8000, 11025, 22050, or 44100
  RiffId: string = 'RIFF';
  WaveId: string = 'WAVE';
  FmtId: string = 'fmt ';
  DataId: string = 'data';
begin
  if OpenDialog1.Execute then begin
    AssignFile (F, OpenDialog1.FileName);
    Reset (F);
    fs := FileSize (F);

    with WaveFormatEx do begin
      wFormatTag := WAVE_FORMAT_PCM;
      nChannels := Mono;
      nSamplesPerSec := SampleRate;
      wBitsPerSample := $0008;
      nBlockAlign := (nChannels * wBitsPerSample) div 8;
      nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
      cbSize := 0;
    end;

    Duration := 0.1;
    Volume := 20;
    MS := TMemoryStream.Create;
    {Calculate length of sound data and of file data}
    DataCount := trunc((Duration * SampleRate) / 1000); // sound data
    FullDataCount := DataCount * fs;
    RiffCount := Length(WaveId) + Length(FmtId) + SizeOf(DWORD) +
      SizeOf(TWaveFormatEx) + Length(DataId) + SizeOf(DWORD) + FullDataCount;
        // file data
    {write out the wave header}
    MS.Write(RiffId[1], 4); // 'RIFF'
    MS.Write(RiffCount, SizeOf(DWORD)); // file data size
    MS.Write(WaveId[1], Length(WaveId)); // 'WAVE'
    MS.Write(FmtId[1], Length(FmtId)); // 'fmt '
    TempInt := SizeOf(TWaveFormatEx);
    MS.Write(TempInt, SizeOf(DWORD)); // TWaveFormat data size
    MS.Write(WaveFormatEx, SizeOf(TWaveFormatEx)); // WaveFormatEx record
    MS.Write(DataId[1], Length(DataId)); // 'data'
    MS.Write(FullDataCount, SizeOf(DWORD)); // sound data size

    while not Eof (F) do begin
      Read (F, b);
      Frequency := b * 40;
      {calculate and write out the tone signal}// now the data values
      w := 2 * Pi * Frequency; // omega
      for i := 0 to DataCount - 1 do
      begin
        SoundValue := 127 + trunc(Volume * sin(i * w / SampleRate));
          // wt = w * i / SampleRate
        MS.Write(SoundValue, SizeOf(Byte));
      end;
      {now play the sound}
    end;
    sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC);
    MS.Free;
    CloseFile (F);
  end;
end;

Осталось считать этот звук с микрофона и преобразовать его в набор байт.

[Beermonza]

Да, действительно, раздел на тему безопасности/защиты информации, а тут ухищрения по пережу последней, ...забавно.

[Ulex]

Неа, не выйдет. Модем должен быть именно побитным. Слишком сложный и нестабильный демодулятор получится в побайтном модеме.
Ну и вот это:

Frequency := b * 40;

сразу в брак (как нолик будет передаваться?).

[Sibedir]

Ну да. Собственно поэтому и помесил сюда. Расчитывал на готовое решение. Но теперь ее видимо надо в раздел по мультимедиа.

[Sibedir]

как нолик будет передаваться?

Точно. Надо

Frequency := (b+1) * 20;

Модем должен быть именно побитным. Слишком сложный и нестабильный демодулятор получится в побайтном модеме.
Ну и вот это:

Возможно. Но это уже нюансы. Все будет зависеть от того, как этот сигнал будет считываться с микрофона и преобразовываться в байты. Если методом обратным приведенному, то речи нет, нужны биты. Замучаешься тон сигнала определять. Но я слышал, что есть модули для работы со звуком, так в них вроде есть функции, которые сразу выдают тон.

[Ulex]

Замучаешься тон сигнала определять. Но я слышал, что есть модули для работы со звуком, так в них вроде есть функции, которые сразу выдают тон.

Не просто замучаешься. А это принципиально невозможно. Шаг в данном случае 20 Гц, т.е. от 20-5100 Гц - весь диапазон. А как же АЧХ линии - это коаксиал, который имеет свои ёмкости и индуктивности (по сути фильтр).
Нееет. Надо две частоты (0/1-1200/2400).

[Sibedir]

Ulex, а зачем именно по битам и почему именно частоты 1200 и 2400 Гц. Ведь для обеспечения более или менее приемлемой скорости придется значительно уменьшать интервал импульса, что в свою очередь приведет к увеличению влияния этой самой индукции.
Мне все-таки кажется лучше работать сразу с байтами. Я вообще решил уйти от частотных характеристик. Каждый байт это сигнал определенной силы. Вот что получилось:

uses
  MMSystem;

...

var
  F: TFileStream;
  MS: TMemoryStream;
  NameSize: Word;
  FileSize, FullSize: Integer;
  FullTime, Speed: Real;
  WaveFormatEx: TWaveFormatEx;
  i, j, TempInt, DataCount, RiffCount: integer;
  SampleRate: Integer;
const
  Mono: Word = $0001;
  RiffId: string = 'RIFF';
  WaveId: string = 'WAVE';
  FmtId: string = 'fmt ';
  DataId: string = 'data';
begin
  if OpenDialog1.Execute then begin
    FullSize := 0;
    for i := 0 to OpenDialog1.Files.Count - 1 do begin
      F := TFileStream.Create (OpenDialog1.Files [i], fmOpenRead);

      NameSize := Length (OpenDialog1.Files [i]);
      FileSize := F.Size;

      FullSize := FullSize + 2 + NameSize + 4 + FileSize;

      F.Free;
    end;

    SampleRate := 44100; // Количество тактов в секунду (8000, 11025, 22050, или 44100)
    with WaveFormatEx do begin
      wFormatTag := WAVE_FORMAT_PCM;
      nChannels := Mono;
      nSamplesPerSec := SampleRate;
      wBitsPerSample := 16; // Это получается вроде как количество бит за такт (8 или 16)
      nBlockAlign := (nChannels * wBitsPerSample) div 8;
      nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
      cbSize := 0;
    end;

    DataCount := 1; // sound data
    FullSize := DataCount * FullSize;
    RiffCount := Length(WaveId) + Length(FmtId) + SizeOf(DWORD) +
      SizeOf(TWaveFormatEx) + Length(DataId) + SizeOf(DWORD) + FullSize;
        // file data
    {write out the wave header}

    MS := TMemoryStream.Create;
    MS.Write(RiffId[1], 4); // 'RIFF'
    MS.Write(RiffCount, SizeOf(DWORD)); // file data size
    MS.Write(WaveId[1], Length(WaveId)); // 'WAVE'
    MS.Write(FmtId[1], Length(FmtId)); // 'fmt '
    TempInt := SizeOf(TWaveFormatEx);
    MS.Write(TempInt, SizeOf(DWORD)); // TWaveFormat data size
    MS.Write(WaveFormatEx, TempInt); // WaveFormatEx record
    MS.Write(DataId[1], Length(DataId)); // 'data'
    MS.Write(FullSize, SizeOf(DWORD)); // sound data size

    for i := 0 to OpenDialog1.Files.Count - 1 do begin
      F := TFileStream.Create (OpenDialog1.Files [i], fmOpenRead);

      NameSize := Length (OpenDialog1.Files [i]);
      FileSize := F.Size;

      MS.Write (NameSize, 2);
      for j := 1 to NameSize do
        MS.Write (OpenDialog1.Files [i][j], 1);
      MS.Write (FileSize, 4);
      MS.CopyFrom (F, FileSize);

      F.Free;
    end;

    Speed := WaveFormatEx.wBitsPerSample * SampleRate;
    FullTime := FullSize / (Speed / 8);
    Label1.Caption := 'FullTime = ' + FloatToStr (FullTime) + ' сек'   ;
    Label2.Caption := 'FullSize = ' + FloatToStr (FullSize / 1024) + ' кБ'    ;
    Label3.Caption := 'Speed = '    + FloatToStr (Speed / 1024)        + ' кб/сек';
    Application.ProcessMessages;

    sndPlaySound(MS.Memory, SND_MEMORY or SND_SYNC);
    MS.Free;
  end;
end;

Пока немножко топорно, но чисто теоретически удалось добиться скорости 689.0625 кб/сек. Хотя верится в эту скорость маловато. У обычной звуковой карты, думаю, нет такой чувствительности, да и помехи наведенные и от индукции будут слишком сильно влиять. В общем, практика покажет. Кстати, можно увеличить пропускную способность сигнала использую стереозвук. И еще можно поразбираться с wav-форматами, думаю параметр WaveFormatEx.wBitsPerSample может принимать большее значение, чем 16.