jak zabezpieczyc program wykorzystujac sumy kontrolne execa przed pachowaniem ?
zdaje się, że widziałem o CRC artykuł (albo to w FAQ było) na 4p
jak zabezpieczyc program wykorzystujac sumy kontrolne execa przed pachowaniem ?
const
CRC32TAB : array[0..255] of LONGINT = (
$00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F,
$E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91, $1DB71064, $6AB020F2,
$F3B97148, $84BE41DE, $1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC, $14015C4F, $63066CD9,
$FA0F3D63, $8D080DF5, $3B6E20C8, $4C69105E, $D56041E4, $A2677172,
$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B, $35B5A8FA, $42B2986C,
$DBBBC9D6, $ACBCF940, $32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
$26D930AC, $51DE003A, $C8D75180, $BFD06116, $21B4F4B5, $56B3C423,
$CFBA9599, $B8BDA50F, $2802B89E, $5F058808, $C60CD9B2, $B10BE924,
$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D, $76DC4190, $01DB7106,
$98D220BC, $EFD5102A, $71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
$7807C9A2, $0F00F934, $9609A88E, $E10E9818, $7F6A0DBB, $086D3D2D,
$91646C97, $E6635C01, $6B6B51F4, $1C6C6162, $856530D8, $F262004E,
$6C0695ED, $1B01A57B, $8208F4C1, $F50FC457, $65B0D9C6, $12B7E950,
$8BBEB8EA, $FCB9887C, $62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2, $4ADFA541, $3DD895D7,
$A4D1C46D, $D3D6F4FB, $4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9, $5005713C, $270241AA,
$BE0B1010, $C90C2086, $5768B525, $206F85B3, $B966D409, $CE61E49F,
$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4, $59B33D17, $2EB40D81,
$B7BD5C3B, $C0BA6CAD, $EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
$EAD54739, $9DD277AF, $04DB2615, $73DC1683, $E3630B12, $94643B84,
$0D6D6A3E, $7A6A5AA8, $E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
$F00F9344, $8708A3D2, $1E01F268, $6906C2FE, $F762575D, $806567CB,
$196C3671, $6E6B06E7, $FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5, $D6D6A3E8, $A1D1937E,
$38D8C2C4, $4FDFF252, $D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60, $DF60EFC3, $A867DF55,
$316E8EEF, $4669BE79, $CB61B38C, $BC66831A, $256FD2A0, $5268E236,
$CC0C7795, $BB0B4703, $220216B9, $5505262F, $C5BA3BBE, $B2BD0B28,
$2BB45A92, $5CB36A04, $C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
$9B64C2B0, $EC63F226, $756AA39C, $026D930A, $9C0906A9, $EB0E363F,
$72076785, $05005713, $95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21, $86D3D2D4, $F1D4E242,
$68DDB3F8, $1FDA836E, $81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
$88085AE6, $FF0F6A70, $66063BCA, $11010B5C, $8F659EFF, $F862AE69,
$616BFFD3, $166CCF45, $A00AE278, $D70DD2EE, $4E048354, $3903B3C2,
$A7672661, $D06016F7, $4969474D, $3E6E77DB, $AED16A4A, $D9D65ADC,
$40DF0B66, $37D83BF0, $A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6, $BAD03605, $CDD70693,
$54DE5729, $23D967BF, $B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D );
const
CRCSEED = $FFFFFFFF;
var Plik :file;
Buf : array[1..1024*10]of byte;
Res, x : cardinal;
CRC : cardinal;
implementation
{$R *.dfm}
function CRC32(VALUE: BYTE; CRC: LONGINT) : LONGINT;
begin
Result := CRC32TAB[BYTE(CRC xor LONGINT(VALUE))] xor ((CRC shr 8) and $00FFFFFF);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CRC := CRCSEED;
AssignFile(Plik, 'Dane.dat');
Reset(Plik, 1);
repeat
BlockRead(Plik, Buf, SizeOf(Buf), Res);
for x:=1 to Res do
CRC:=CRC32(Buf[x], CRC);
until Res<>SizeOf(Buf);
CloseFile(Plik);
Crc:=CRC xor CRCSEED; //Ostateczny wynik sumy kontrolnej
showmessage(inttostr(crc));
end;
on sprawdza crc pliku dane.dat? jak zrobic by sprawdzal samgo siebie?
albo jak do tej tablicy dat wczytac program?
</delphi>
procedure test;
const Size=12810241024;
var data:array of byte;
i:cardinal;
d:tdatetime;
begin
setlength(data,size);
for i:=0 to size-1 do data[i]:=i;
d:=now;
x:=CalculateCRC32(data[0],Size);
s:=formatdatetime('hhss;zzz',now-d);
showmessage(inttostr(x));
showmessage(s);
end;
</delphi>
moze cos z asm ? mam tu procedury z komponentu do sprawdzania CRC:
{Supported bit width: 8,16,24,32,...,256 (stepped by 8 bits)
Polynom - Direct mathematical formula without msb bit.
eg. [0,4,5] means x^8+x^5+x^4+x^0
ByteWidth - Width of CRC in bytes. Range : [1,32]
Masked - Fill initial value of CRC by $FF... and xor output value by $FF... too.
Usage:
var
x,y:longword;
CRC:TCRC;
CRC8:TCRC8;
begin
CRC:=TCRC.Create([0,1,2,4,5,7,8,10,11,12,16,22,23,26],4);
x:=1;
y:=0;
CRC.CalculateCRC(x,y,4);
CRC8:=TCRC8.Create;
x:=1;
y:=0;
CRC8.CalculateCRC(x,y,1);
end;}
unit CRC;
interface
type
TPolynom=set of byte;
TCRC=class
private
FByteWidth:cardinal;
FTable:array of byte;
FMasked:boolean;
FPolynom:TPolynom;
protected
procedure SetMasked(const AValue:boolean);
public
constructor Create(const APolynom:TPolynom;const AByteWidth:cardinal);
property ByteWidth:cardinal read FByteWidth;
property Polynom:TPolynom read FPolynom;
property Masked:boolean read FMasked write SetMasked;
procedure CalculateCRC(var Buffer;var Result;const BufferSize:integer);
end;
TCRC8=class(TCRC) public constructor Create; end;
TCRC16=class(TCRC) public constructor Create; end;
TCRC24=class(TCRC) public constructor Create; end;
TCRC32=class(TCRC) public constructor Create; end;
TCTC64=class(TCRC) public constructor Create; end;
implementation
type TEntry=array [0..31] of byte;
PByteArray=^TByteArray;
TByteArray=array [0..999] of byte;
procedure ReverseBits(var buffer;const Size:longword);
asm
push esi
push edi
mov esi,eax
lea edi,esi+edx-1
mov ecx,edx
shr ecx,1
adc ecx,0
@Loop:
jecxz @End
mov al,[esi]
mov ah,[edi]
mov edx,ecx
mov ecx,8
@Loop2:
rcl ah,1
rcr al,1
loop @Loop2
rcl ah,1
mov ecx,edx
mov [esi],al
mov [edi],ah
inc esi
dec edi
loop @Loop
@End:
pop edi
pop esi
end;
procedure ShrByOneBit(var buffer;const Size:longword);
asm
push edi
mov edi,eax
mov ecx,edx
jecxz @End
dec ecx
jecxz @Rest
@Loop:
mov ax,[edi]
shr ax,1
stosb
loop @Loop
mov [edi],ah
jmp @End
@Rest:
shr byte ptr [edi],1
@End:
pop edi
end;
procedure ShrByEightBits(var Source,Dest;const Size:longword);
asm
push esi
push edi
lea esi,[eax+1]
mov edi,edx
mov edx,ecx
or edx,edx
jz @End
dec edx
mov ecx,edx
jecxz @End
shr ecx,2
rep movsd
mov ecx,edx
and ecx,3
rep movsb
mov [edi],cl
@End:
pop edi
pop esi
end;
procedure XorBuffers(var Source,Dest;const Size:longword); overload;
asm
push esi
push edi
mov esi,eax
mov edi,edx
mov edx,ecx
shr ecx,2
jecxz @Rest
@Loop:
mov eax,[esi]
xor [edi],eax
add esi,4
add edi,4
loop @Loop
@Rest:
mov ecx,edx
and ecx,3
jecxz @End
@Loop2:
mov al,[esi]
xor [edi],al
inc esi
inc edi
loop @Loop2
@End:
pop edi
pop esi
end;
procedure XorBuffers(const Source1,Source2;var Dest;const Size:longword); overload;
asm
push esi
push edi
mov esi,eax
mov edi,ecx
mov ecx,Size
shr ecx,2
jecxz @Rest
@Loop:
mov eax,[esi]
xor eax,[edx]
mov [edi],eax
add esi,4
add edi,4
add edx,4
loop @Loop
@Rest:
mov ecx,Size
and ecx,3
jecxz @End
@Loop2:
mov al,[esi]
xor al,[edx]
mov [edi],al
inc esi
inc edi
inc edx
loop @Loop2
@End:
pop edi
pop esi
end;
procedure BuildTable(const SourcePolynom:TPolynom;var buffer;const ByteCount:cardinal);
var i,j:integer;
Polynom:TEntry;
Value:TEntry;
ByteArray:PByteArray absolute buffer;
Offset:cardinal;
begin
assert((ByteCount>=1) and (ByteCount<=32),'Invalid ByteCount');
move(SourcePolynom,Polynom,ByteCount);
ReverseBits(Polynom,ByteCount);
Offset:=0;
for i:=0 to 255 do
begin
fillchar(Value,ByteCount,0);
Value[0]:=i;
for j:=0 to 7 do if (value[0] and 1)<>0 then
begin
ShrByOneBit(Value,ByteCount);
XorBuffers(Polynom,Value,ByteCount);
end
else ShrByOneBit(Value,ByteCount);
move(Value,ByteArray[Offset],ByteCount);
inc(Offset,ByteCount);
end;
end;
{ TCRC }
constructor TCRC.Create(const APolynom: TPolynom;const AByteWidth: cardinal);
begin
if (APolynom<>Polynom) or (AByteWidth<>ByteWidth) then
begin
setlength(FTable,AByteWidth*256);
BuildTable(APolynom,FTable,AByteWidth);
FPolynom:=APolynom;
FByteWidth:=AByteWidth;
end;
end;
procedure TCRC.SetMasked(const AValue: boolean);
begin
if AValue<>FMasked then FMasked:=AValue;
end;
procedure TCRC.CalculateCRC(var Buffer; var Result;const BufferSize:integer);
var i:integer;
ByteArray:TByteArray absolute Buffer;
ValueArray:TEntry;
TempArray:TEntry;
begin
if FMasked then fillchar(ValueArray,ByteWidth,$ff) else fillchar(ValueArray,ByteWidth,0);
for i:=0 to BufferSize-1 do
begin
ShrByEightBits(ValueArray,TempArray,ByteWidth);
XorBuffers(TempArray,FTable[(ValueArray[0] xor ByteArray[i])*FByteWidth],ValueArray,ByteWidth);
end;
if Masked then
begin
fillchar(TempArray,ByteWidth,$ff);
XorBuffers(TempArray,ValueArray,ByteWidth);
end;
move(ValueArray,Result,ByteWidth);
end;
{ TCRC8 }
constructor TCRC8.Create;
begin
inherited Create([0,1,3,4,7],1);
end;
{ TCRC16 }
constructor TCRC16.Create;
begin
inherited Create([0,5,12],2);
end;
{ TCRC24 }
constructor TCRC24.Create;
begin
inherited Create([0,1,5,6,23],3);
end;
{ TCRC32 }
constructor TCRC32.Create;
begin
inherited Create([0,1,2,4,5,7,8,10,11,12,16,22,23,26],4);
end;
{ TCTC64 }
constructor TCTC64.Create;
begin
inherited Create([0,1,4,7,9,10,12,13,17,19,21,22,23,24,27,29,31,32,33,35,37,38,39,40,45,46,47,52,53,54,55,57,62],8);
end;
{
CRC8=x8+x5+x4+x0
CRC8=x8+x7+x4+x3+x1+x0
CRC12=x12+x11+x3+x2+x1+x0
CRC16=x16+x12+x5+x0
CRC24=x24+x23+x6+x5+x1+x0
CRC32=x32+x26+x23+x22+x16+x12+x11+x10+x8+x7+x5+x4+x2+x1+x0
CRC64=x64+x4+x3+x1+x0
CRC64=x64+x62+x57+x55+x54+x53+x52+x47+x46+x45+x40+x39+x38+x37+x35+x33+x32+x31+x29+x27+x24+x23+x22+x21+x19+x17+x13+x12+x10+x9+x7+x4+x1+x0
}
end.
moze by zabezpieczyc program zrobie dll-a w ktorym bedzie logowanie i deszyfrator a suma kontrolna bedzie ltyko dla tego dll-a ?/
albo jeszcze inaczej - program robi swoja kopie exeka i ja potem sprawdza :D
macie cos lepszego?