Transpose procedure - what it is ??

[Isaac]

I found this procedure "Transpose" but no resource on the net about it,
any one know what it do ?

[Bill Todd [TeamB]]

Isaac wrote:

> I found this procedure "Transpose" but no resource on the net about
> it, any one know what it do ?

Where did you find it?

--
Bill Todd (TeamB)

[Isaac]

Bill Todd [TeamB] wrote:
> Isaac wrote:
>
>> I found this procedure "Transpose" but no resource on the net about
>> it, any one know what it do ?
>
> Where did you find it?
>

sorry it was a predefined procedure in Free UDF Library, however I am
getting this error when compiling with D7

[Error] Encrypt.pas(270): Constant object cannot be passed as var parameter

at line
Transpose(OutBits, IP);

procedure definition:
=======================
procedure Transpose(var Data, OrderData: array of Byte);
var
TmpData: array[0..63] of Byte;
i : Byte;
begin
{$ifdef FULDebug}
WriteDebug('Transpose() - Enter');
{$endif}
StrMove(@TmpData, @Data, SizeOf(Data));
for i := 0 to High(OrderData) do
Data[i] := TmpData[OrderData[i]];
{$ifdef FULDebug}
WriteDebug('Transpose() - Exit');
{$endif}
end;

any idea ???

Thanks

[Bill Todd [TeamB]]

Isaac wrote:

> Constant object cannot be passed as var

The error means exactly what it says. The procedure declaration accepts
two var parameters. Somewhere the code is calling the procedure and
passing a constant or litteral value as one of the parameters. The
error message should show the line number.

--
Bill Todd (TeamB)

[Isaac]

Many Thanks !!!