The more complicated way of Encoding

[rimasx]

Hello

Is there any more complicated way of encoding my flv files to eff ? Can I use my own some encryption/decryption "key" Please let us know other ways , different from

Code: Select all

 // Encoding (very simple)
         DestStream.Write(IsSWF, sizeof(IsSWF));
         EncodingThread := TEncodingThread.Create(SourceStream, DestStream, SourceStream.Size);

that was shown in Sample8_Streaming example tutoreal.
We'd like to get shure that our encoded videos will not be decoded by the exe from this example

Best Regards

[Softanics]

Thank you for your question.

Yes, of course; you can use any algorithm, you just decode bytes from FSourceStream to FDestStream:

Code: Select all

procedure TEncodingThread.Execute;
var
   b: Byte;
begin
   Synchronize(SetupProgressForm);

   while FSourceStream.Read(b, sizeof(b)) > 0 do
   begin
      b := b xor Mask;

      FDestStream.Write(b, sizeof(b));

      if ProgressForm.IsClosed then break;

      Synchronize(ChangeProgress);
   end;

   FSourceStream.Free;
   FDestStream.Free;

   Synchronize(CloseProgressForm);
end;


Thank you.

[rimasx]

Could you produce a demo tutorial with encryption\decryption functions of FlashPLayerControl component, because, in my humble opinion it is the one of the fundamental and useful fitures ot your ptoduct.
... and I coannot find enough help material about this subject

[Softanics]

But this sample is exact what you need: encryption/decryption is just a XOR operation.

Thank you.

[rimasx]

You are right..

The encryption/decryption key is

Code: Select all

const Mask = $43 

in your sample kode

So how can I change the .EFF extension of my encoded files for my own, say, .XYZ extension

I mean, i would like the program to encode flv files in xyz format.. I dont want to change eff extension for xyz manually

regards

[Softanics]

Not sure that understood your question right, but... replace just all "eff" into "xyz" in source code...

Thank you.