-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathtest.ml
88 lines (85 loc) · 5.08 KB
/
test.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
let testkey =
{___|-----BEGIN RSA PRIVATE KEY-----
MIIJKQIBAAKCAgEA6NYWGUldfWh2MTdQaUB+G0+EDZn6TWF0K6TMObd2mhe1r4YI
2h+Q9cep85f97yWug6dr2l9LUCqPLuvL7U3rmd5g2LIUab46ryegxBEn9Sg4jq3v
eWBAajZ6vsNqFaLMTVQ4a12TZn81GxQQOg3JWE1snDEm9JwH1P1dj0hd0uNff4Ff
/Zz+KoopHcPdQh/sB3wVl2w7IGu2cEVK2xUuHgTpY8eJl32JTWojYtYtRs9tSuOg
5vAJ/Zz1cyBjxct1BvO74nibTSrbsYVikh1fs4IJHQTJYpFyX0eEdUb72MKj2TcE
3z5LVXc04/oNhnmQF6rUHxj5s54L0Ginuu7T8yywLvfbB/VpNqz0QpHMYheEfnye
vYBDffOePHNBYfSMowjiOTAaACbA1A/2k8rG7bscybaDnrWPLZHJPcKIZQ0IBBlI
Mfj6GAEWmxurgzGDl+cBGfMyjGbCk35ouplSX5sEsOc+ctk8p1Yo/3UbVhkNCOpO
y7wyS5N5j+C0p1064sBOduehll+RKY8k4krG3HDn13+a32kuuCd1pMOYNRDrGbC/
RO/jNjV8FqqAikmJrIBaH4ajZXW6J0Y6oLOUMpVoM+/2HZqsYjTeo8hGnrHWzWL0
qQEBnBlYtGmxHQCy5WEWvmZZpUAVTjR5ETvGFGr/ZVDvvWGYDTMtcvfeYFMCAwEA
AQKCAgEA3/5VdC4oSqVcTyyvpxHsP8nXeF5Rdm/ymqoH7t6YstVsbFe93FnR0yEq
VrY6DP9rTCycjZBvm8fVx4YAwWLc7UIKWW24RaJEQo0VFIqMrkTrZBfg8huu3H9c
xniobfgYI6yKOn/jdg+av1ol4jOxJ8oUWo7OszQINNcqUtWDrYYgMUH9XrbRrYsM
0x3ClgKvxuOQwgPVPfNhp9CBmxJdM3P2M4+axqp2lIsvT75MAHs84XbrLEBw3BNL
7l2Sno6FHxMMBWuRvEMm5zkzAu5PSxomOkyIkNLr/M2ImGqZjoZxql5LyZjcUHRF
5ayBpoT8IkitmN0mG65IH08PTb7FFq55E2rX/5SoHlP6zaVCEkizxGRlBgcQ18wG
rc4bbUz9nDRH5kYnYQSExFinQJv6VYsn+P92Doafa+LawJtMDRuaGlstJNNg+xG4
ITaJMoYrNqY+U+rpjWH7FKlu06F7abEHnaSS7bx5dyn61dAu2mD730BfJ7Toggff
UdwRyOUp1+qkHzETxTrrMYLtFrfY4EcjxInOxoHEHs+I3Ec5/cgUJgPrGifJDoN8
7K7GR+BqBzGIb0iF2aNx2+Ji2bszGvnH/xX3UTGUwwkDcwWoq6S9FxyEPqwgwZUr
n8VSTlbfUDTyt1Wf2Am/z671UfTJ1/Fq85HoppOgPZIzy/2sBIECggEBAPafoJX4
QtV9AaprlyYXPNTPIHrWlSLkNZnjOpgod9v8tEg1tMzdyX/TSOoKb8y5oxdLQ2IN
4cCrfseQBWP7dwC1LBegeMorgc/BbBi77JqfOQiw9G2v/xwhhI+ATrfZtBb6Ksoj
sdJtw4VWIwwINhkGrY0ezz8ZUqSTTlnMsNjwKIpXwzCUM3s2yvMnCyYrnMxY7FJU
gzO358ENd9xGNG4MEPNJ0VG995wf5oRwLi2SGWfIFpeEY41mnhGhgy3vxS13q0JE
zc8R7JCD2qbOekj/jGPtJ16bksxCJfSW4FeaIwE1oqVVSvPCDWaSNizJM19WSYJt
kvr97ain7dKW2CkCggEBAPGwRLHQJbX2uDFeuir4Qfbmjv2u6I0YNsoxh+1QvTwm
6N2ROIwbzHLdySLzq+vhwgacI1LOnssPMzbzRRQD4bS4O2qDT0kYQ83r1ClSPEGZ
tGQGsXyODL2/ZzRHHy/Kzpywxzm4ScAxZYoh1BUehCV8LCYR6BKd5d0wzD+4fB/X
v66noWfpRZj1Mu1VzFaqKGrRuL2E6+mKTTfTzyghnVvz3RUYCa2ozu+WyXyem/Gq
jv0XV7OwQ3QOBlA/FnLY7XemPcfQypQAHPjRK6XSw9j4Rg6bjUMHvzckDKaZMukp
wHDS3QcN2OlAiXlkh4kkQxEKgWT0FQq+kIH5EfRLdBsCggEAATcqMHMHyUuTbYaY
ORzWNOpMa66RD5n2VarUCBny9Ueaj9yL5pKVQqcE7fpdMLIdhqjdTSdqXGu79TnV
fPepT3yVGgy1a7GpMx/t63VJpj1wp4VPvxal+DqGD7r/KFLPW2miOlrQrovR8d9J
zu5fbeIlitODC/mQ+bSsJy8mE/ujB4OFN8ETO+E6QNaJbIe8fxlVGNbHysJ2RvJN
C+3gpkYy8zAC8xcvmDpkBXUUFS9qJqPK0LZbU0AVOVsFbX2ICEBVvL7gEMwy0UeF
FVthKOjxhTCPCB1WLOGKlFkGBAiDcacVBSGVe/wR2taPo8reEPM464akuc30lOc2
+dm6eQKCAQEAnGpFqwZYwZDw2BLETXbpyg6g0BFYs6fOHcE8hRvRvJI59ts7S4Ha
KSTcPWCSDVDIL1rxiW/rWON3c8KxHCj+8+Sfn2ln8JhhmW1cm3l7QcFl+65RQ5jz
KgIrmqvExTttx/6okPRx1o6hdmo6RYjAYTohoGnKVfIWh7ZDGaIdwsXwaepXDVbt
EfbuhKcYXaY2Dhu4gf76ZuR44P6VfRV0L8R9el9aNCeh9XES6TIFHrwRWj63JbWX
kg5Zi6mor58w4FSYey7nTC1ekrFcnC7xTQQw4tdM7uqel+MexNs1Fa1NvDbbkOsn
TJ3V2thy1xC+ztKLt3g3/gIip9s4AXCrrQKCAQBaLYP9Z4MAYemFjd/SxwAzTtEf
qeWFyGKZ0ZSdr2lgJ76KiNAjJqDc0VYAhi+3Qwavb31EcSgSRwg//C1jJhBO7IHp
zsKXU0CI3ZAixkvMw0EyBD/9KWVatb/WpJbLaGd3Yom9/QDAWI5Q8lDtlp2qY76W
5KLfHPkCEUKK2MtMinhCJ2aVhIXXF0dh272gJnOOZ5fxOV3nvQjWofoc6DlVkHF1
YGSCvGASwvB8g/vhU+6Z4eJTTAzEjPzrV1DrGmutZaSThbjeW3UNFdPEchhIndXv
oz/WhWiGgMGbDVHPVRp/1BAU1Czehc8iFtTeRmIpTJ+y2r0BghA2eb74Shfa
-----END RSA PRIVATE KEY-----|___}
let testcert =
{___|-----BEGIN CERTIFICATE-----
MIIE2DCCAsCgAwIBAgIIXAI6qAIsyrYwDQYJKoZIhvcNAQELBQAwGDEWMBQGA1UE
AwwNQlRDIFBpbmF0YSBDQTAeFw0xNjA0MjMxODU2MzZaFw0xNzA0MjMxODU2MzZa
MBgxFjAUBgNVBAMMDUJUQyBQaW5hdGEgQ0EwggIiMA0GCSqGSIb3DQEBAQUAA4IC
DwAwggIKAoICAQDo1hYZSV19aHYxN1BpQH4bT4QNmfpNYXQrpMw5t3aaF7Wvhgja
H5D1x6nzl/3vJa6Dp2vaX0tQKo8u68vtTeuZ3mDYshRpvjqvJ6DEESf1KDiOre95
YEBqNnq+w2oVosxNVDhrXZNmfzUbFBA6DclYTWycMSb0nAfU/V2PSF3S419/gV/9
nP4qiikdw91CH+wHfBWXbDsga7ZwRUrbFS4eBOljx4mXfYlNaiNi1i1Gz21K46Dm
8An9nPVzIGPFy3UG87vieJtNKtuxhWKSHV+zggkdBMlikXJfR4R1RvvYwqPZNwTf
PktVdzTj+g2GeZAXqtQfGPmzngvQaKe67tPzLLAu99sH9Wk2rPRCkcxiF4R+fJ69
gEN98548c0Fh9IyjCOI5MBoAJsDUD/aTysbtuxzJtoOetY8tkck9wohlDQgEGUgx
+PoYARabG6uDMYOX5wEZ8zKMZsKTfmi6mVJfmwSw5z5y2TynVij/dRtWGQ0I6k7L
vDJLk3mP4LSnXTriwE5256GWX5EpjyTiSsbccOfXf5rfaS64J3Wkw5g1EOsZsL9E
7+M2NXwWqoCKSYmsgFofhqNldbonRjqgs5QylWgz7/YdmqxiNN6jyEaesdbNYvSp
AQGcGVi0abEdALLlYRa+ZlmlQBVONHkRO8YUav9lUO+9YZgNMy1y995gUwIDAQAB
oyYwJDASBgNVHRMBAf8ECDAGAQH/AgEBMA4GA1UdDwEB/wQEAwICBDANBgkqhkiG
9w0BAQsFAAOCAgEA4xVBlQIHI4VQHVkl4Xk9gnoZ/kKbyKs8N+SVoekWCGI8MLNk
ThTD5hdEXzLpXheS+qWrKeLO0zpC8j2dZ5wRgtGvbmsN0nrnPSXS8AKwDOOLQc9X
T/OVQ31UVEx80+R+FBo3FDbO0mTgvKHEXlOXDyBvo+WkY4L5HvydBfSqrrGXqOwA
ij6PQHMzL2EeNOVvgjQ4M5Y+Pe57DdjC6DGMY66nK2+t1iMPNk9xTZYoWmScFg3R
191IUuCRvFTHmDV3sBX8MJjzjyd4NWEhSaNQSsMRFPYF+FPOs4Lro38MhezCQ38j
IrVGHSKWoyAt3qo5vnsujqONhPwXhyKrUfyfpO/26jDPiFcHxUalsjwichrUBY7t
ijOxF18Qh0EiS/UIyTwgtD2q7IrG9nDs9iiptuxoihnNzLYBdBvAgZsKscpsUAsV
XxDk9G49ylYyCDL9MF9kIG75l5IfoiZkiXb1NljOkiiWJ0i74NNQB0gLtJYhN3dj
Ay1vvsXQXAPN3pEvVSddBLCpbzXtASzHbt8kcE7vJRIN+5vzvViZ8DOW7ytkk8mo
eUknbBpAGKMrOWSGYAYsXU6du5UkZh5HLMhVxIrXZKR4ZmsoQUg2sgb+Qb1OgyWX
vBVnNQufMzcPTFs03ZnKB6RhwVrCYXO9vFkGgM+jBPr3lAANnTtuyptcpfk=
-----END CERTIFICATE-----|___}
let ca =
let open X509.Encoding.Pem in
(Private_key.of_pem_cstruct1 (Cstruct.of_string testkey),
Certificate.of_pem_cstruct1 (Cstruct.of_string testcert))