băm mật mã (sha1 hoặc md5) của dữ liệu được coi là một chuỗi trong Mathematica

Question

Các sha1 hash của "abc" là

a9993e364706816aba3e25717850c26c9cd0d89d 

Cách duy nhất để có được Mathematica để cho bạn biết rằng với chức năng Hash của nó là

Hash[abc, "SHA"] // IntegerString[#, 16]& 

(điều IntegerString chỉ là đầu ra nó trong hex như hầu hết các trường thực hiện.)

Lưu ý rằng

Hash["abc", "SHA"] 

cung cấp hàm băm "\" abc \ "" - không phải thứ bạn muốn! Trên thực tế, lý do duy nhất chúng tôi có thể nhận được băm chính xác của "abc" là do biểu diễn Mathematica của ký hiệu abc xảy ra là chuỗi "abc". Đối với phần lớn các chuỗi, điều này sẽ không xảy ra.

Vậy làm cách nào để bạn lấy hàm băm của chuỗi tùy ý trong Mathematica?

Answer 1

Bạn có thể làm điều đó ít kludgily bằng cách sử dụng StringToStream và thực tế là FileHash có thể lấy một luồng đầu vào làm đối số. Sau đó, hàm sha1 của bạn sẽ trở thành:

sha1[s_String] := Module[{stream = StringToStream[s], hash}, 
    hash = FileHash[stream,"SHA"]; 
    Close[stream]; 
    hash] 

Answer 2

Đây là kludge hoạt động. Viết chuỗi vào một tập tin tạm thời và sử dụng FileHash:

sha1[s_String] := Module[{stream, file, hash}, 
    stream = OpenWrite[]; 
    WriteString[stream, s]; 
    file = Close[stream]; 
    hash = FileHash[file, "SHA"]; 
    DeleteFile[file]; 
    hash] 

Bạn cũng có thể muốn xác định

hex = IntegerString[#, 16]&; 

và trở hex@hash trong hàm trên.