mirror of
https://github.com/zellyn/a2audit.git
synced 2024-06-08 05:29:36 +00:00
shasum: asm and go versions now compute w[16:80]
This commit is contained in:
Zellyn Hunter
parent
18ab07be67
commit
5f66a516f7
186
shasum/shasum.a
186
shasum/shasum.a
|
|
@ -9,9 +9,11 @@
|
|||
;; FA-FD
|
||||
|
||||
!addr SRC = $06
|
||||
!addr DEST = $08
|
||||
!addr DST = $08
|
||||
!addr INPUT = $eb
|
||||
!addr LENGTH = $ee
|
||||
!addr TMP1 = $fa
|
||||
!addr TMP2 = $fb
|
||||
|
||||
!addr PRBYTE = $FDDA
|
||||
!addr COUT = $FDED
|
||||
|
|
@ -24,6 +26,7 @@ h4: !32 0
|
|||
ml: !32 0, 0 ; message length
|
||||
w: !fill 64, 0
|
||||
w_next: !fill 64, 0
|
||||
k: !32 0
|
||||
kh0: !be32 $67452301 ; initial values for h0..h4
|
||||
kh1: !be32 $EFCDAB89
|
||||
kh2: !be32 $98BADCFE
|
||||
|
|
@ -34,9 +37,33 @@ k2: !be32 $6ED9EBA1
|
|||
k3: !be32 $8F1BBCDC
|
||||
k4: !be32 $CA62C1D6
|
||||
|
||||
!macro cp32 .source, .target {
|
||||
lda .source
|
||||
sta .target
|
||||
lda .source+1
|
||||
sta .target+1
|
||||
lda .source+2
|
||||
sta .target+2
|
||||
lda .source+3
|
||||
sta .target+3
|
||||
}
|
||||
|
||||
!macro setSRC .source {
|
||||
lda #<.source
|
||||
sta SRC
|
||||
lda #>.source
|
||||
sta SRC+1
|
||||
}
|
||||
!macro setDST .dest {
|
||||
lda #<.dest
|
||||
sta DST
|
||||
lda #>.dest
|
||||
sta DST+1
|
||||
}
|
||||
|
||||
;;; Print a string of bytes, as hex.
|
||||
;;; Address in SRC, count in A.
|
||||
;;; Burns Y, A.
|
||||
;;; Burns A,Y.
|
||||
prbytes:
|
||||
ldy #0
|
||||
- pha
|
||||
|
|
@ -166,14 +193,159 @@ shasum:
|
|||
rts
|
||||
|
||||
do_chunk:
|
||||
lda #<w
|
||||
ldy #0 ; y is index into w
|
||||
|
||||
;; First 20: k1
|
||||
+cp32 k1, k
|
||||
|
||||
ldx #16
|
||||
- jsr kind1
|
||||
dex
|
||||
bne -
|
||||
jsr fill
|
||||
ldx #4
|
||||
- jsr kind1
|
||||
dex
|
||||
bne -
|
||||
;; Second 20: k2
|
||||
+cp32 k2, k
|
||||
|
||||
ldx #12
|
||||
- jsr kind2
|
||||
dex
|
||||
bne -
|
||||
jsr fill
|
||||
ldx #8
|
||||
- jsr kind2
|
||||
dex
|
||||
bne -
|
||||
|
||||
;; Third 20: k3
|
||||
+cp32 k3, k
|
||||
|
||||
ldx #8
|
||||
- jsr kind3
|
||||
dex
|
||||
bne -
|
||||
jsr fill
|
||||
ldx #12
|
||||
- jsr kind3
|
||||
dex
|
||||
bne -
|
||||
|
||||
;; Fourth 20: k4
|
||||
+cp32 k4, k
|
||||
|
||||
ldx #4
|
||||
- jsr kind4
|
||||
dex
|
||||
bne -
|
||||
jsr fill
|
||||
ldx #16
|
||||
- jsr kind4
|
||||
dex
|
||||
bne -
|
||||
|
||||
rts
|
||||
|
||||
kind1:
|
||||
kind2:
|
||||
kind3:
|
||||
kind4:
|
||||
sty TMP1
|
||||
|
||||
clc
|
||||
tya
|
||||
adc #<w
|
||||
sta SRC
|
||||
lda #>w
|
||||
lda #0
|
||||
adc #>w
|
||||
sta SRC+1
|
||||
lda #$40
|
||||
lda #4
|
||||
jsr prbytes
|
||||
lda #$8D
|
||||
jsr COUT
|
||||
|
||||
ldy TMP1
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
iny
|
||||
rts
|
||||
|
||||
;; Replace w[i:i+16] with w[i+16:i+32]. Burns a. Sets y=0.
|
||||
fill:
|
||||
stx TMP2
|
||||
|
||||
+setDST w_next
|
||||
+setSRC w
|
||||
ldx #0x10
|
||||
|
||||
- sec
|
||||
lda DST
|
||||
sbc #16*4
|
||||
sta SRC
|
||||
jsr cp32 ; w[i] = w[i-16]
|
||||
clc
|
||||
lda SRC
|
||||
adc #2*4
|
||||
sta SRC
|
||||
jsr xor32 ; ^ w[i-14]
|
||||
lda SRC
|
||||
adc #6*4
|
||||
sta SRC
|
||||
jsr xor32 ; ^ w[i-8]
|
||||
lda SRC
|
||||
adc #5*4
|
||||
sta SRC
|
||||
jsr xor32 ; ^ w[i-3]
|
||||
jsr rol1
|
||||
clc
|
||||
lda DST
|
||||
adc #4 ; i++
|
||||
sta DST
|
||||
|
||||
dex
|
||||
bne -
|
||||
|
||||
ldx #w_next-w-1
|
||||
- lda w_next,x
|
||||
sta w,x
|
||||
dex
|
||||
bpl -
|
||||
|
||||
ldy #0
|
||||
ldx TMP2
|
||||
rts
|
||||
|
||||
;; Rotate-left DST. Burns a,y.
|
||||
rol1:
|
||||
ldy #0
|
||||
lda (DST),y
|
||||
rol
|
||||
ldy #3
|
||||
- lda (DST),y
|
||||
rol
|
||||
sta (DST),y
|
||||
dey
|
||||
bpl -
|
||||
rts
|
||||
|
||||
;; Xor SRC into DST. Burns a,y.
|
||||
xor32:
|
||||
ldy #3
|
||||
- lda (SRC),y
|
||||
eor (DST),y
|
||||
sta (DST),y
|
||||
dey
|
||||
bpl -
|
||||
rts
|
||||
|
||||
;; Copy DST to SRC. Burns a,y.
|
||||
cp32:
|
||||
ldy #3
|
||||
- lda (SRC),y
|
||||
sta (DST),y
|
||||
dey
|
||||
bpl -
|
||||
rts
|
||||
|
||||
!eof
|
||||
|
|
|
|||
90
shasum/shasum.go
Normal file
90
shasum/shasum.go
Normal file
|
|
@ -0,0 +1,90 @@
|
|||
package main
|
||||
|
||||
import (
|
||||
"encoding/binary"
|
||||
"encoding/hex"
|
||||
"fmt"
|
||||
"strings"
|
||||
)
|
||||
|
||||
var rom = []byte{
|
||||
0xA9, 0x16, 0x20, 0xC9, 0xFC, 0x85, 0x2E, 0x20,
|
||||
0xFA, 0xFC, 0xA0, 0x24, 0x20, 0xFD, 0xFC, 0xB0,
|
||||
0xF9, 0x20, 0xFD, 0xFC, 0xA0, 0x3B, 0x20, 0xEC,
|
||||
0xFC, 0x81, 0x3C, 0x45, 0x2E, 0x85, 0x2E, 0x20,
|
||||
0xBA, 0xFC, 0xA0, 0x35, 0x90, 0xF0, 0x20, 0xEC,
|
||||
0xFC, 0xC5, 0x2E, 0xF0, 0x0D, 0xA9, 0xC5, 0x20,
|
||||
0xED, 0xFD, 0xA9, 0xD2, 0x20, 0xED, 0xFD, 0x20,
|
||||
0xED, 0xFD, 0xA9, 0x87, 0x4C, 0xED, 0xFD, 0xA5,
|
||||
0x48, 0x48, 0xA5, 0x45, 0xA6, 0x46, 0xA4, 0x47,
|
||||
0x28, 0x60, 0x85, 0x45, 0x86, 0x46, 0x84, 0x47,
|
||||
0x08, 0x68, 0x85, 0x48, 0xBA, 0x86, 0x49, 0xD8,
|
||||
0x60, 0x20, 0x84, 0xFE, 0x20, 0x2F, 0xFB, 0x20,
|
||||
0x93, 0xFE, 0x20, 0x89, 0xFE, 0xD8, 0x20, 0x3A,
|
||||
0xFF, 0xA9, 0xAA, 0x85, 0x33, 0x20, 0x67, 0xFD,
|
||||
0x20, 0xC7, 0xFF, 0x20, 0xA7, 0xFF, 0x84, 0x34,
|
||||
0xA0, 0x17, 0x88, 0x30, 0xE8, 0xD9, 0xCC, 0xFF,
|
||||
0xD0, 0xF8, 0x20, 0xBE, 0xFF, 0xA4, 0x34, 0x4C,
|
||||
0x73, 0xFF, 0xA2, 0x03, 0x0A, 0x0A, 0x0A, 0x0A,
|
||||
0x0A, 0x26, 0x3E, 0x26, 0x3F, 0xCA, 0x10, 0xF8,
|
||||
0xA5, 0x31, 0xD0, 0x06, 0xB5, 0x3F, 0x95, 0x3D,
|
||||
0x95, 0x41, 0xE8, 0xF0, 0xF3, 0xD0, 0x06, 0xA2,
|
||||
0x00, 0x86, 0x3E, 0x86, 0x3F, 0xB9, 0x00, 0x02,
|
||||
0xC8, 0x49, 0xB0, 0xC9, 0x0A, 0x90, 0xD3, 0x69,
|
||||
0x88, 0xC9, 0xFA, 0xB0, 0xCD, 0x60, 0xA9, 0xFE,
|
||||
0x48, 0xB9, 0xE3, 0xFF, 0x48, 0xA5, 0x31, 0xA0,
|
||||
0x00, 0x84, 0x31, 0x60, 0xBC, 0xB2, 0xBE, 0xB2,
|
||||
0xEF, 0xC4, 0xB2, 0xA9, 0xBB, 0xA6, 0xA4, 0x06,
|
||||
0x95, 0x07, 0x02, 0x05, 0xF0, 0x00, 0xEB, 0x93,
|
||||
0xA7, 0xC6, 0x99, 0xB2, 0xC9, 0xBE, 0xC1, 0x35,
|
||||
0x8C, 0xC4, 0x96, 0xAF, 0x17, 0x17, 0x2B, 0x1F,
|
||||
0x83, 0x7F, 0x5D, 0xCC, 0xB5, 0xFC, 0x17, 0x17,
|
||||
0xF5, 0x03, 0xFB, 0x03, 0x62, 0xFA, 0x59, 0xFF,
|
||||
}
|
||||
|
||||
func main() {
|
||||
print40s(expand(pad(rom[:0x37])))
|
||||
}
|
||||
|
||||
func print40s(in []byte) {
|
||||
for i := 0; i < len(in); i += 20 {
|
||||
end := i + 20
|
||||
if end > len(in) {
|
||||
end = len(in)
|
||||
}
|
||||
fmt.Println(strings.ToUpper(hex.EncodeToString(in[i:end])))
|
||||
}
|
||||
fmt.Printf("length: %d 0x%x\n", len(in), len(in))
|
||||
}
|
||||
|
||||
func pad(in []byte) []byte {
|
||||
out := make([]byte, len(in))
|
||||
copy(out, in)
|
||||
out = append(out, 0x80)
|
||||
for len(out)%64 != 56 {
|
||||
out = append(out, 0)
|
||||
}
|
||||
l := uint64(len(in)) << 3
|
||||
for i := uint(0); i < 8; i++ {
|
||||
out = append(out, byte(l>>(56-8*i)))
|
||||
}
|
||||
return out
|
||||
}
|
||||
|
||||
func expand(in []byte) []byte {
|
||||
var w [80]uint32
|
||||
for i := 0; i < 16; i++ {
|
||||
w[i] = binary.BigEndian.Uint32(in[i*4:])
|
||||
}
|
||||
|
||||
for i := 16; i < 80; i++ {
|
||||
w[i] = w[i-3] ^ w[i-8] ^ w[i-14] ^ w[i-16]
|
||||
w[i] = w[i]<<1 + w[i]>>31
|
||||
}
|
||||
|
||||
out := make([]byte, len(w)*4)
|
||||
for i, wi := range w {
|
||||
binary.BigEndian.PutUint32(out[i*4:], wi)
|
||||
}
|
||||
return out
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user