Как найти уникальное число для символьной строки?

[Virtson]

а я понял, что человеку нужен просто алгоритм, и не обязательно обладающий повышенной криптостойкостью..

т.е. представьте, что известын алгоритмов CRC нет ..
а понятие 'контрольная сумма' - только появляется .

[rpy3uH]

Сообщение от Virtson

а я понял, что человеку нужен просто алгоритм, и не обязательно обладающий повышенной криптостойкостью..

прямо в точку!! уверен на 100% что топикстартёру именно это и надо!
по сути CRC32 - это и есть контрольная сумма.

function GetCRC32(DPTR:pointer;DataSize:DWORD):DWORD;
asm
	push esi
	push edi
	push ecx
	push ebx
	push edx

  mov esi,DPTR
  mov edi,DataSize

	cld
	xor	ecx,ecx
	dec	ecx
	mov	edx,ecx
 @@NextByteCRC:
	xor	eax,eax
	xor	ebx,ebx
	lodsb
	xor	al,cl
	mov	cl,ch
	mov	ch,dl
	mov	dl,dh
	mov	dh,8
 @@NextBitCRC:
	shr	bx,1
	rcr	ax,1
	jnc	@@NoCRC
	xor	ax,08320h
	xor	bx,0EDB8h
 @@NoCRC:
	dec	dh
	jnz	@@NextBitCRC
	xor	ecx,eax
	xor	edx,ebx
	dec	edi
	jnz	@@NextByteCRC
	not	edx
	not	ecx
	mov	eax,edx
	rol	eax,16
	mov	ax,cx

	pop edx
	pop ebx
	pop ecx
	pop edi
	pop esi
	ret
end;

пример использования:

нахождение контрольной суммы от строки "CreateFileA".

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='CreateFileA';
  ShowMessage(inttohex(GetCRC32(Pchar(str),length(str)),8));
end;

[Paul Hindenburg]

Сообщение от Virtson

а я понял, что человеку нужен просто алгоритм, и не обязательно обладающий повышенной криптостойкостью..

т.е. представьте, что известын алгоритмов CRC нет ..
а понятие 'контрольная сумма' - только появляется .

точно !!!! вот это мне и нужно!!!
всех благодарю, тему можно закрывать

[Paul Hindenburg]

и еще одно: мне был нужен именно алгоритм, а язык программирования не имеет значения все должно быть универсальным