перевод файла в "0" и "1"
От: Serega_mexanik Украина  
Дата: 04.12.08 22:56
Оценка:
доброго времени суток.

т.к. тупой комп не понимает ничего, кроме 0 и 1

то можно сделать из любого файла, любого формата... и что в Винде что на Линухе "00000010" = 2, те.е файл один и тот же...

нашел ресурс
http://www.cyberforum.ru/delphi-beginners/thread14612.html

не могу разобраться в паскалевском коде.


помогите придумать нечто такое-же на Сях...


P.S.
все что пришло в голову:

AnsiString Int_To_StrBin(int A)
  {
  AnsiString S = "", S1 = "";
  int I = 1;

  if (A == 0) S = "0";

  while(A > 0)
    {
    S = S + char((A % 2) + 48);//xz
                A = A/2;

    if ((I % 4) == 0)
                S = S + " ";

                I++;
    }

  if ((S.Length() % 5) == 1) S = S + "000 ";
  if ((S.Length() % 5) == 2) S = S + "00 ";
  if ((S.Length() % 5) == 3) S = S + "0 ";

  for (int I = 1; I < (S.Length() + 1); I++)
    {
    S1 = S1 + S[S.Length() + 1 - I];
    }

  return S1;
  }
Красота — в глазах смотрящего...
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.