• 0
#WAMACO

Генерация CRC32 hash строки

Вопросы

CRC32B получаю так (использую indy)

на форме edit1 (исходная строка), edit2 (результат - crc32b хэш)

uses
  ...
  IdGlobal,
  IdHash, IdHashCRC, IdHashMessageDigest,
  ...
  ;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button2Click(Sender: TObject);
var
  IdHash: TIdHashCRC32;
begin
  IdHash := TIdHashCRC32.Create;
  Edit2.Text := IdGlobal.IndyLowerCase(IdHash.HashStringAsHex(Edit1.Text));
end;

Вопрос: 

1. Как получить CRC32 (сейчас только CRC32B)

2. Как сгенерировать CRC32 и CRC32B не используя Indy?

ВАЖНО! Решение должно быть кросс-платформа. 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

2 ответа на этот вопрос

  • 0
const    
  /// <summary>
  ///   CRC32 table
  /// </summary>
  CRC32_TABLE: array[Low(Byte)..High(Byte)] of DWORD = (
    $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
    );

/// <summary>
///   Вычисление кода CRC32-строки
/// </summary>
/// <param name="ASource">
///   Строка, код CRC32 которой необходимо вычислить
/// </param>
/// <returns>
///   Вычисленный код CRC32
/// </returns>
function CalcCrc32(const ASource: string): Cardinal;
var
  I: Integer;
{$IF SizeOf(Char) = 1}
  LValue8: Byte;
{$ELSE}
  LValue16: Word;
{$ENDIF}
  LIndex: Byte;
begin
  Result := $FFFFFFFF;
  if Length(ASource) > 0 then
  begin
    for I := Low(ASource) to High(ASource) do
    begin
    {$IF SizeOf(Char) = 1}
      LValue8 := Byte(ASource[I]);
      LIndex := (Result xor LValue8) and $000000FF;
      Result := (Result shr 8) xor CRC32_TABLE[LIndex];
    {$ELSE}
      LValue16 := Word(ASource[I]);
      // 1 байт символа
      LIndex := (Result xor (LValue16 and $00FF)) and $000000FF;
      Result := (Result shr 8) xor CRC32_TABLE[LIndex];
      // 2 байт символа
      LIndex := (Result xor ((LValue16 and $FF00) shr 8)) and $000000FF;
      Result := (Result shr 8) xor CRC32_TABLE[LIndex];
    {$ENDIF}
    end;
  end;
end;

Работает на всех платформах, Indy не требуется.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Вот отличный набор всего-всего - Fundamentals 4 Library и Fundamentals 5 Library

https://github.com/fundamentalslib/fundamentals4 

https://github.com/fundamentalslib/fundamentals5

Я использую https://github.com/fundamentalslib/fundamentals4/blob/master/Source/Utils/cHash.pas

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу