| author | paulson | 
| Mon, 08 Nov 2021 09:31:26 +0000 | |
| changeset 74730 | 25f5f1fa31bb | 
| parent 72654 | 99a6bcd1e8e4 | 
| child 75307 | dc1c53d14c38 | 
| permissions | -rw-r--r-- | 
| 38473 | 1 | /* Title: Pure/General/sha1.scala | 
| 2 | Author: Makarius | |
| 3 | ||
| 41954 | 4 | Digest strings according to SHA-1 (see RFC 3174). | 
| 38473 | 5 | */ | 
| 6 | ||
| 7 | package isabelle | |
| 8 | ||
| 9 | ||
| 48409 | 10 | import java.io.{File => JFile, FileInputStream}
 | 
| 38473 | 11 | import java.security.MessageDigest | 
| 12 | ||
| 13 | ||
| 14 | object SHA1 | |
| 15 | {
 | |
| 55802 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 16 | final class Digest private[SHA1](val rep: String) | 
| 41954 | 17 |   {
 | 
| 55802 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 18 | override def hashCode: Int = rep.hashCode | 
| 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 19 | override def equals(that: Any): Boolean = | 
| 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 20 |       that match {
 | 
| 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 21 | case other: Digest => rep == other.rep | 
| 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 22 | case _ => false | 
| 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 23 | } | 
| 41954 | 24 | override def toString: String = rep | 
| 25 | } | |
| 26 | ||
| 48343 | 27 | private def make_result(digest: MessageDigest): Digest = | 
| 38473 | 28 |   {
 | 
| 29 | val result = new StringBuilder | |
| 48343 | 30 |     for (b <- digest.digest()) {
 | 
| 38473 | 31 | val i = b.asInstanceOf[Int] & 0xFF | 
| 32 | if (i < 16) result += '0' | |
| 33 | result ++= Integer.toHexString(i) | |
| 34 | } | |
| 55802 
f7ceebe2f1b5
prefer abstract datatype -- in accordance to ML version;
 wenzelm parents: 
54440diff
changeset | 35 | new Digest(result.toString) | 
| 38473 | 36 | } | 
| 37 | ||
| 62702 | 38 | def fake(rep: String): Digest = new Digest(rep) | 
| 39 | ||
| 48409 | 40 | def digest(file: JFile): Digest = | 
| 48343 | 41 |   {
 | 
| 42 |     val digest = MessageDigest.getInstance("SHA")
 | |
| 43 | ||
| 69393 
ed0824ef337e
static type for Library.using: avoid Java 11 warnings on "Illegal reflective access";
 wenzelm parents: 
64370diff
changeset | 44 | using(new FileInputStream(file))(stream => | 
| 
ed0824ef337e
static type for Library.using: avoid Java 11 warnings on "Illegal reflective access";
 wenzelm parents: 
64370diff
changeset | 45 |     {
 | 
| 
ed0824ef337e
static type for Library.using: avoid Java 11 warnings on "Illegal reflective access";
 wenzelm parents: 
64370diff
changeset | 46 | val buf = new Array[Byte](65536) | 
| 
ed0824ef337e
static type for Library.using: avoid Java 11 warnings on "Illegal reflective access";
 wenzelm parents: 
64370diff
changeset | 47 | var m = 0 | 
| 71775 | 48 |       do {
 | 
| 49 | m = stream.read(buf, 0, buf.length) | |
| 50 | if (m != -1) digest.update(buf, 0, m) | |
| 51 | } while (m != -1) | |
| 69393 
ed0824ef337e
static type for Library.using: avoid Java 11 warnings on "Illegal reflective access";
 wenzelm parents: 
64370diff
changeset | 52 | }) | 
| 48343 | 53 | |
| 54 | make_result(digest) | |
| 55 | } | |
| 56 | ||
| 62704 
478b49f0d726
proper SHA1 digest as annex to heap file: Poly/ML reads precise segment length;
 wenzelm parents: 
62702diff
changeset | 57 | def digest(path: Path): Digest = digest(path.file) | 
| 
478b49f0d726
proper SHA1 digest as annex to heap file: Poly/ML reads precise segment length;
 wenzelm parents: 
62702diff
changeset | 58 | |
| 48343 | 59 | def digest(bytes: Array[Byte]): Digest = | 
| 60 |   {
 | |
| 61 |     val digest = MessageDigest.getInstance("SHA")
 | |
| 62 | digest.update(bytes) | |
| 63 | ||
| 64 | make_result(digest) | |
| 65 | } | |
| 66 | ||
| 54440 | 67 | def digest(bytes: Bytes): Digest = bytes.sha1_digest | 
| 68 | def digest(string: String): Digest = digest(Bytes(string)) | |
| 72654 | 69 | def digest_set(digests: List[Digest]): Digest = | 
| 70 | digest(cat_lines(digests.map(_.toString).sorted)) | |
| 57638 
ed58e740a699
less authentic SHA1.digest: trust Scala side on blobs and avoid re-calculation via Foreign Language Interface, which might be a cause of problems;
 wenzelm parents: 
55802diff
changeset | 71 | |
| 62702 | 72 |   val digest_length: Int = digest("").rep.length
 | 
| 38473 | 73 | } |