Skip to content

Commit f8052e6

Browse files
svanassvanas
committed
now testing Trezor's vectors
1 parent 6cbef84 commit f8052e6

5 files changed

+204
-24
lines changed

Diff for: ‎web3.bip39.pas

+20-10
Original file line numberDiff line numberDiff line change
@@ -33,35 +33,45 @@ interface
3333

3434
type
3535
TMnemonic = record
36-
private
36+
strict private
3737
FEntropy: TArray<Integer>;
3838
class function sha256(const input: TBytes): TBytes; static;
3939
class function from8bitTo11bit(const input: TBytes): TArray<Integer>; static;
4040
public
41-
constructor Create(const hex: string);
41+
constructor Create(entropy: TBytes);
4242
class function English: TStrings; static;
4343
function ToString(const wordlist: TStrings): string;
4444
end;
4545

46+
function create: TMnemonic;
47+
4648
implementation
4749

4850
uses
4951
// Delphi
5052
System.Hash,
51-
System.Types;
53+
System.Types,
54+
// CryptoLib4Pascal
55+
ClpSecureRandom;
5256

5357
{$R 'web3.bip39.res'}
5458

59+
function create: TMnemonic;
60+
begin
61+
const rng = TSecureRandom.Create;
62+
try
63+
Result := TMnemonic.Create(rng.GenerateSeed(16));
64+
finally
65+
rng.Free;
66+
end;
67+
end;
68+
5569
{ TMnemonic }
5670

57-
constructor TMnemonic.Create(const hex: string);
71+
constructor TMnemonic.Create(entropy: TBytes);
5872
begin
59-
// convert hex to bytes, reserve 1 byte for the checksum
60-
const len = (Length(hex) div 2) + 1;
61-
var entropy: TBytes;
62-
SetLength(entropy, len);
63-
for var I := 0 to len - 2 do
64-
entropy[I] := StrToInt('$' + Copy(hex, 1 + (I * 2), 2));
73+
// reserve 1 extra byte for the checksum
74+
SetLength(entropy, Length(entropy) + 1);
6575
// checksum is the 1st byte of the SHA256 digest
6676
const checksum = TMnemonic.sha256(entropy)[0];
6777
entropy[High(entropy)] := checksum;

Diff for: ‎web3.bip39.tests.json

+148
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,148 @@
1+
{
2+
"english": [
3+
[
4+
"00000000000000000000000000000000",
5+
"abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon about",
6+
"c55257c360c07c72029aebc1b53c05ed0362ada38ead3e3e9efa3708e53495531f09a6987599d18264c1e1c92f2cf141630c7a3c4ab7c81b2f001698e7463b04",
7+
"xprv9s21ZrQH143K3h3fDYiay8mocZ3afhfULfb5GX8kCBdno77K4HiA15Tg23wpbeF1pLfs1c5SPmYHrEpTuuRhxMwvKDwqdKiGJS9XFKzUsAF"
8+
],
9+
[
10+
"7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f",
11+
"legal winner thank year wave sausage worth useful legal winner thank yellow",
12+
"2e8905819b8723fe2c1d161860e5ee1830318dbf49a83bd451cfb8440c28bd6fa457fe1296106559a3c80937a1c1069be3a3a5bd381ee6260e8d9739fce1f607",
13+
"xprv9s21ZrQH143K2gA81bYFHqU68xz1cX2APaSq5tt6MFSLeXnCKV1RVUJt9FWNTbrrryem4ZckN8k4Ls1H6nwdvDTvnV7zEXs2HgPezuVccsq"
14+
],
15+
[
16+
"80808080808080808080808080808080",
17+
"letter advice cage absurd amount doctor acoustic avoid letter advice cage above",
18+
"d71de856f81a8acc65e6fc851a38d4d7ec216fd0796d0a6827a3ad6ed5511a30fa280f12eb2e47ed2ac03b5c462a0358d18d69fe4f985ec81778c1b370b652a8",
19+
"xprv9s21ZrQH143K2shfP28KM3nr5Ap1SXjz8gc2rAqqMEynmjt6o1qboCDpxckqXavCwdnYds6yBHZGKHv7ef2eTXy461PXUjBFQg6PrwY4Gzq"
20+
],
21+
[
22+
"ffffffffffffffffffffffffffffffff",
23+
"zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo wrong",
24+
"ac27495480225222079d7be181583751e86f571027b0497b5b5d11218e0a8a13332572917f0f8e5a589620c6f15b11c61dee327651a14c34e18231052e48c069",
25+
"xprv9s21ZrQH143K2V4oox4M8Zmhi2Fjx5XK4Lf7GKRvPSgydU3mjZuKGCTg7UPiBUD7ydVPvSLtg9hjp7MQTYsW67rZHAXeccqYqrsx8LcXnyd"
26+
],
27+
[
28+
"000000000000000000000000000000000000000000000000",
29+
"abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon agent",
30+
"035895f2f481b1b0f01fcf8c289c794660b289981a78f8106447707fdd9666ca06da5a9a565181599b79f53b844d8a71dd9f439c52a3d7b3e8a79c906ac845fa",
31+
"xprv9s21ZrQH143K3mEDrypcZ2usWqFgzKB6jBBx9B6GfC7fu26X6hPRzVjzkqkPvDqp6g5eypdk6cyhGnBngbjeHTe4LsuLG1cCmKJka5SMkmU"
32+
],
33+
[
34+
"7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f",
35+
"legal winner thank year wave sausage worth useful legal winner thank year wave sausage worth useful legal will",
36+
"f2b94508732bcbacbcc020faefecfc89feafa6649a5491b8c952cede496c214a0c7b3c392d168748f2d4a612bada0753b52a1c7ac53c1e93abd5c6320b9e95dd",
37+
"xprv9s21ZrQH143K3Lv9MZLj16np5GzLe7tDKQfVusBni7toqJGcnKRtHSxUwbKUyUWiwpK55g1DUSsw76TF1T93VT4gz4wt5RM23pkaQLnvBh7"
38+
],
39+
[
40+
"808080808080808080808080808080808080808080808080",
41+
"letter advice cage absurd amount doctor acoustic avoid letter advice cage absurd amount doctor acoustic avoid letter always",
42+
"107d7c02a5aa6f38c58083ff74f04c607c2d2c0ecc55501dadd72d025b751bc27fe913ffb796f841c49b1d33b610cf0e91d3aa239027f5e99fe4ce9e5088cd65",
43+
"xprv9s21ZrQH143K3VPCbxbUtpkh9pRG371UCLDz3BjceqP1jz7XZsQ5EnNkYAEkfeZp62cDNj13ZTEVG1TEro9sZ9grfRmcYWLBhCocViKEJae"
44+
],
45+
[
46+
"ffffffffffffffffffffffffffffffffffffffffffffffff",
47+
"zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo when",
48+
"0cd6e5d827bb62eb8fc1e262254223817fd068a74b5b449cc2f667c3f1f985a76379b43348d952e2265b4cd129090758b3e3c2c49103b5051aac2eaeb890a528",
49+
"xprv9s21ZrQH143K36Ao5jHRVhFGDbLP6FCx8BEEmpru77ef3bmA928BxsqvVM27WnvvyfWywiFN8K6yToqMaGYfzS6Db1EHAXT5TuyCLBXUfdm"
50+
],
51+
[
52+
"0000000000000000000000000000000000000000000000000000000000000000",
53+
"abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon art",
54+
"bda85446c68413707090a52022edd26a1c9462295029f2e60cd7c4f2bbd3097170af7a4d73245cafa9c3cca8d561a7c3de6f5d4a10be8ed2a5e608d68f92fcc8",
55+
"xprv9s21ZrQH143K32qBagUJAMU2LsHg3ka7jqMcV98Y7gVeVyNStwYS3U7yVVoDZ4btbRNf4h6ibWpY22iRmXq35qgLs79f312g2kj5539ebPM"
56+
],
57+
[
58+
"7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f",
59+
"legal winner thank year wave sausage worth useful legal winner thank year wave sausage worth useful legal winner thank year wave sausage worth title",
60+
"bc09fca1804f7e69da93c2f2028eb238c227f2e9dda30cd63699232578480a4021b146ad717fbb7e451ce9eb835f43620bf5c514db0f8add49f5d121449d3e87",
61+
"xprv9s21ZrQH143K3Y1sd2XVu9wtqxJRvybCfAetjUrMMco6r3v9qZTBeXiBZkS8JxWbcGJZyio8TrZtm6pkbzG8SYt1sxwNLh3Wx7to5pgiVFU"
62+
],
63+
[
64+
"8080808080808080808080808080808080808080808080808080808080808080",
65+
"letter advice cage absurd amount doctor acoustic avoid letter advice cage absurd amount doctor acoustic avoid letter advice cage absurd amount doctor acoustic bless",
66+
"c0c519bd0e91a2ed54357d9d1ebef6f5af218a153624cf4f2da911a0ed8f7a09e2ef61af0aca007096df430022f7a2b6fb91661a9589097069720d015e4e982f",
67+
"xprv9s21ZrQH143K3CSnQNYC3MqAAqHwxeTLhDbhF43A4ss4ciWNmCY9zQGvAKUSqVUf2vPHBTSE1rB2pg4avopqSiLVzXEU8KziNnVPauTqLRo"
68+
],
69+
[
70+
"ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff",
71+
"zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo zoo vote",
72+
"dd48c104698c30cfe2b6142103248622fb7bb0ff692eebb00089b32d22484e1613912f0a5b694407be899ffd31ed3992c456cdf60f5d4564b8ba3f05a69890ad",
73+
"xprv9s21ZrQH143K2WFF16X85T2QCpndrGwx6GueB72Zf3AHwHJaknRXNF37ZmDrtHrrLSHvbuRejXcnYxoZKvRquTPyp2JiNG3XcjQyzSEgqCB"
74+
],
75+
[
76+
"9e885d952ad362caeb4efe34a8e91bd2",
77+
"ozone drill grab fiber curtain grace pudding thank cruise elder eight picnic",
78+
"274ddc525802f7c828d8ef7ddbcdc5304e87ac3535913611fbbfa986d0c9e5476c91689f9c8a54fd55bd38606aa6a8595ad213d4c9c9f9aca3fb217069a41028",
79+
"xprv9s21ZrQH143K2oZ9stBYpoaZ2ktHj7jLz7iMqpgg1En8kKFTXJHsjxry1JbKH19YrDTicVwKPehFKTbmaxgVEc5TpHdS1aYhB2s9aFJBeJH"
80+
],
81+
[
82+
"6610b25967cdcca9d59875f5cb50b0ea75433311869e930b",
83+
"gravity machine north sort system female filter attitude volume fold club stay feature office ecology stable narrow fog",
84+
"628c3827a8823298ee685db84f55caa34b5cc195a778e52d45f59bcf75aba68e4d7590e101dc414bc1bbd5737666fbbef35d1f1903953b66624f910feef245ac",
85+
"xprv9s21ZrQH143K3uT8eQowUjsxrmsA9YUuQQK1RLqFufzybxD6DH6gPY7NjJ5G3EPHjsWDrs9iivSbmvjc9DQJbJGatfa9pv4MZ3wjr8qWPAK"
86+
],
87+
[
88+
"68a79eaca2324873eacc50cb9c6eca8cc68ea5d936f98787c60c7ebc74e6ce7c",
89+
"hamster diagram private dutch cause delay private meat slide toddler razor book happy fancy gospel tennis maple dilemma loan word shrug inflict delay length",
90+
"64c87cde7e12ecf6704ab95bb1408bef047c22db4cc7491c4271d170a1b213d20b385bc1588d9c7b38f1b39d415665b8a9030c9ec653d75e65f847d8fc1fc440",
91+
"xprv9s21ZrQH143K2XTAhys3pMNcGn261Fi5Ta2Pw8PwaVPhg3D8DWkzWQwjTJfskj8ofb81i9NP2cUNKxwjueJHHMQAnxtivTA75uUFqPFeWzk"
92+
],
93+
[
94+
"c0ba5a8e914111210f2bd131f3d5e08d",
95+
"scheme spot photo card baby mountain device kick cradle pact join borrow",
96+
"ea725895aaae8d4c1cf682c1bfd2d358d52ed9f0f0591131b559e2724bb234fca05aa9c02c57407e04ee9dc3b454aa63fbff483a8b11de949624b9f1831a9612",
97+
"xprv9s21ZrQH143K3FperxDp8vFsFycKCRcJGAFmcV7umQmcnMZaLtZRt13QJDsoS5F6oYT6BB4sS6zmTmyQAEkJKxJ7yByDNtRe5asP2jFGhT6"
98+
],
99+
[
100+
"6d9be1ee6ebd27a258115aad99b7317b9c8d28b6d76431c3",
101+
"horn tenant knee talent sponsor spell gate clip pulse soap slush warm silver nephew swap uncle crack brave",
102+
"fd579828af3da1d32544ce4db5c73d53fc8acc4ddb1e3b251a31179cdb71e853c56d2fcb11aed39898ce6c34b10b5382772db8796e52837b54468aeb312cfc3d",
103+
"xprv9s21ZrQH143K3R1SfVZZLtVbXEB9ryVxmVtVMsMwmEyEvgXN6Q84LKkLRmf4ST6QrLeBm3jQsb9gx1uo23TS7vo3vAkZGZz71uuLCcywUkt"
104+
],
105+
[
106+
"9f6a2878b2520799a44ef18bc7df394e7061a224d2c33cd015b157d746869863",
107+
"panda eyebrow bullet gorilla call smoke muffin taste mesh discover soft ostrich alcohol speed nation flash devote level hobby quick inner drive ghost inside",
108+
"72be8e052fc4919d2adf28d5306b5474b0069df35b02303de8c1729c9538dbb6fc2d731d5f832193cd9fb6aeecbc469594a70e3dd50811b5067f3b88b28c3e8d",
109+
"xprv9s21ZrQH143K2WNnKmssvZYM96VAr47iHUQUTUyUXH3sAGNjhJANddnhw3i3y3pBbRAVk5M5qUGFr4rHbEWwXgX4qrvrceifCYQJbbFDems"
110+
],
111+
[
112+
"23db8160a31d3e0dca3688ed941adbf3",
113+
"cat swing flag economy stadium alone churn speed unique patch report train",
114+
"deb5f45449e615feff5640f2e49f933ff51895de3b4381832b3139941c57b59205a42480c52175b6efcffaa58a2503887c1e8b363a707256bdd2b587b46541f5",
115+
"xprv9s21ZrQH143K4G28omGMogEoYgDQuigBo8AFHAGDaJdqQ99QKMQ5J6fYTMfANTJy6xBmhvsNZ1CJzRZ64PWbnTFUn6CDV2FxoMDLXdk95DQ"
116+
],
117+
[
118+
"8197a4a47f0425faeaa69deebc05ca29c0a5b5cc76ceacc0",
119+
"light rule cinnamon wrap drastic word pride squirrel upgrade then income fatal apart sustain crack supply proud access",
120+
"4cbdff1ca2db800fd61cae72a57475fdc6bab03e441fd63f96dabd1f183ef5b782925f00105f318309a7e9c3ea6967c7801e46c8a58082674c860a37b93eda02",
121+
"xprv9s21ZrQH143K3wtsvY8L2aZyxkiWULZH4vyQE5XkHTXkmx8gHo6RUEfH3Jyr6NwkJhvano7Xb2o6UqFKWHVo5scE31SGDCAUsgVhiUuUDyh"
122+
],
123+
[
124+
"066dca1a2bb7e8a1db2832148ce9933eea0f3ac9548d793112d9a95c9407efad",
125+
"all hour make first leader extend hole alien behind guard gospel lava path output census museum junior mass reopen famous sing advance salt reform",
126+
"26e975ec644423f4a4c4f4215ef09b4bd7ef924e85d1d17c4cf3f136c2863cf6df0a475045652c57eb5fb41513ca2a2d67722b77e954b4b3fc11f7590449191d",
127+
"xprv9s21ZrQH143K3rEfqSM4QZRVmiMuSWY9wugscmaCjYja3SbUD3KPEB1a7QXJoajyR2T1SiXU7rFVRXMV9XdYVSZe7JoUXdP4SRHTxsT1nzm"
128+
],
129+
[
130+
"f30f8c1da665478f49b001d94c5fc452",
131+
"vessel ladder alter error federal sibling chat ability sun glass valve picture",
132+
"2aaa9242daafcee6aa9d7269f17d4efe271e1b9a529178d7dc139cd18747090bf9d60295d0ce74309a78852a9caadf0af48aae1c6253839624076224374bc63f",
133+
"xprv9s21ZrQH143K2QWV9Wn8Vvs6jbqfF1YbTCdURQW9dLFKDovpKaKrqS3SEWsXCu6ZNky9PSAENg6c9AQYHcg4PjopRGGKmdD313ZHszymnps"
134+
],
135+
[
136+
"c10ec20dc3cd9f652c7fac2f1230f7a3c828389a14392f05",
137+
"scissors invite lock maple supreme raw rapid void congress muscle digital elegant little brisk hair mango congress clump",
138+
"7b4a10be9d98e6cba265566db7f136718e1398c71cb581e1b2f464cac1ceedf4f3e274dc270003c670ad8d02c4558b2f8e39edea2775c9e232c7cb798b069e88",
139+
"xprv9s21ZrQH143K4aERa2bq7559eMCCEs2QmmqVjUuzfy5eAeDX4mqZffkYwpzGQRE2YEEeLVRoH4CSHxianrFaVnMN2RYaPUZJhJx8S5j6puX"
140+
],
141+
[
142+
"f585c11aec520db57dd353c69554b21a89b20fb0650966fa0a9d6f74fd989d8f",
143+
"void come effort suffer camp survey warrior heavy shoot primary clutch crush open amazing screen patrol group space point ten exist slush involve unfold",
144+
"01f5bced59dec48e362f2c45b5de68b9fd6c92c6634f44d6d40aab69056506f0e35524a518034ddc1192e1dacd32c1ed3eaa3c3b131c88ed8e7e54c49a5d0998",
145+
"xprv9s21ZrQH143K39rnQJknpH1WEPFJrzmAqqasiDcVrNuk926oizzJDDQkdiTvNPr2FYDYzWgiMiC63YmfPAa2oPyNB23r2g7d1yiK6WpqaQS"
146+
]
147+
]
148+
}

Diff for: ‎web3.bip39.tests.pas

+35-14
Original file line numberDiff line numberDiff line change
@@ -37,29 +37,50 @@ interface
3737
TTests = class
3838
public
3939
[Test]
40-
procedure TestCase0;
41-
[Test]
42-
procedure TestCase1;
40+
procedure TestCase;
4341
end;
4442

4543
implementation
4644

4745
uses
46+
// Delphi
47+
System.Classes,
48+
System.JSON,
49+
System.SysUtils,
50+
System.Types,
4851
// web3
49-
web3.bip39;
52+
web3.bip39,
53+
web3.json,
54+
web3.utils;
5055

51-
procedure TTests.TestCase0;
52-
begin
53-
const mnemonic = TMnemonic.Create('00000000000000000000000000000000');
54-
const secret = mnemonic.ToString(TMnemonic.English);
55-
Assert.AreEqual(secret, 'abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon abandon about');
56-
end;
56+
{$R 'web3.bip39.tests.res'}
5757

58-
procedure TTests.TestCase1;
58+
procedure TTests.TestCase;
5959
begin
60-
const mnemonic = TMnemonic.Create('7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f7f');
61-
const secret = mnemonic.ToString(TMnemonic.English);
62-
Assert.AreEqual(secret, 'legal winner thank year wave sausage worth useful legal winner thank yellow');
60+
const RS = TResourceStream.Create(hInstance, 'BIP39_TEST_VECTORS', RT_RCDATA);
61+
try
62+
const buf = (function: TBytes
63+
begin
64+
SetLength(Result, RS.Size);
65+
RS.Read(Result[0], RS.Size);
66+
end)();
67+
const vectors = web3.json.unmarshal(TEncoding.UTF8.GetString(buf));
68+
if Assigned(vectors) then
69+
try
70+
const english = web3.json.getPropAsArr(vectors, 'english');
71+
if Assigned(english) then
72+
for var vector in english do
73+
begin
74+
const entropy = ((vector as TJsonArray)[0] as TJsonString).Value;
75+
const mnemonic = ((vector as TJsonArray)[1] as TJsonString).Value;
76+
Assert.AreEqual(TMnemonic.Create(web3.utils.fromHex(entropy)).ToString(TMnemonic.English), mnemonic);
77+
end;
78+
finally
79+
vectors.Free;
80+
end;
81+
finally
82+
RS.Free;
83+
end;
6384
end;
6485

6586
initialization

Diff for: ‎web3.bip39.tests.rc

+1
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
BIP39_TEST_VECTORS RCDATA "web3.bip39.tests.json"

Diff for: ‎web3.bip39.tests.res

11.5 KB
Binary file not shown.

0 commit comments

Comments
 (0)