{"id":669,"date":"2012-05-15T13:21:21","date_gmt":"2012-05-15T12:21:21","guid":{"rendered":"http:\/\/www.phillips321.co.uk\/?p=669"},"modified":"2015-05-05T12:40:59","modified_gmt":"2015-05-05T11:40:59","slug":"hash-generator-perl-script-hash-generator-pl","status":"publish","type":"post","link":"https:\/\/www.phillips321.co.uk\/2012\/05\/15\/hash-generator-perl-script-hash-generator-pl\/","title":{"rendered":"Hash Generator perl script (hash-generator.pl)"},"content":{"rendered":"

So I used a test script made by atom<\/a> a while back to create a bit of code<\/a> that outputs a hash for a given password. It didn’t support stdin so I thought I would update it, and here it is.<\/p>\n

Note: Don’t copy\/paste the code, instead get it from here: googlecode.com<\/a><\/p>\n

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
<\/div><\/td>
#!\/usr\/bin\/perl<\/span>
\n#__________________________________________________________<\/span>
\n# Author:     phillips321 contact through phillips321.co.uk<\/span>
\n# License:    CC BY-SA 3.0<\/span>
\n# Use:        Hash generator<\/span>
\n# Released:   www.phillips321.co.uk<\/span>
\n# Thanks to:  atom for the origional script which i have used<\/span>
\n# Dependencies:<\/span>
\n#   see header below<\/span>
\n# ToDo:<\/span>
\n#   Make code neater<\/span>
\n# ChangeLog:<\/span>
\n#   v0.2 - thanks to atom<\/span>
\n#   v0.1 - first release<\/span>
\n
\nuse<\/span> strict;<\/span>
\nuse<\/span> warnings;<\/span>
\nuse<\/span> Digest::<\/span>MD4<\/span> qw<\/span><\/a> (<\/span>md4 md4_hex)<\/span>;<\/span>
\nuse<\/span> Digest::<\/span>MD5<\/span> qw<\/span><\/a> (<\/span>md5 md5_hex)<\/span>;<\/span>
\nuse<\/span> Digest::<\/span>SHA<\/span> qw<\/span><\/a> (<\/span>sha1 sha1_hex sha256_hex sha512_hex)<\/span>;<\/span>
\nuse<\/span> Crypt::<\/span>MySQL<\/span> qw<\/span><\/a> (<\/span>password41)<\/span>;<\/span>
\nuse<\/span> Crypt::<\/span>PasswdMD5<\/span>;<\/span>
\nuse<\/span> Crypt::<\/span>PBKDF2<\/span>;<\/span>
\nuse<\/span> Crypt::<\/span>CBC<\/span>;<\/span>
\nuse<\/span> MIME::<\/span>Base64<\/span>;<\/span>
\nuse<\/span> Authen::<\/span>Passphrase<\/span>::<\/span>PHPass<\/span>;<\/span>
\nuse<\/span> Authen::<\/span>Passphrase<\/span>::<\/span>LANManager<\/span>;<\/span>
\nuse<\/span> Encode;<\/span>
\n
\nmy<\/span> @modes<\/span> =<\/span> (<\/span>0<\/span>,<\/span> 11<\/span>,<\/span> 21<\/span>,<\/span> 100<\/span>,<\/span> 101<\/span>,<\/span> 111<\/span>,<\/span> 112<\/span>,<\/span> 121<\/span>,<\/span> 122<\/span>,<\/span> 131<\/span>,<\/span> 132<\/span>,<\/span> 300<\/span>,<\/span> 400<\/span>,<\/span> 500<\/span>,<\/span> 900<\/span>,<\/span> 1000<\/span>,<\/span> 1100<\/span>,<\/span> 1400<\/span>,<\/span> 1500<\/span>,<\/span> 1600<\/span>,<\/span> 1700<\/span>,<\/span> 1722<\/span>,<\/span> 2100<\/span>,<\/span> 2400<\/span>,<\/span> 2600<\/span>,<\/span> 2611<\/span>,<\/span> 2711<\/span>,<\/span> 2811<\/span>,<\/span> 3000<\/span>,<\/span> 3100<\/span>)<\/span>;<\/span>
\n
\nif<\/span> (<\/span>scalar<\/span><\/a> @<\/span>ARGV<\/span> <<\/span> 1<\/span>)<\/span>{<\/span>die<\/span><\/a> (<\/span>"usage: $0 [mode] ['password' or stdin]
\nHash types:
\n    0 = MD5
\n   11 = Joomla
\n   21 = osCommerce, xt:Commerce
\n  100 = SHA1
\n  101 = nsldap, SHA-1(Base64), Netscape LDAP SHA
\n  111 = nsldaps, SSHA-1(Base64), Netscape LDAP SSHA
\n  112 = Oracle 11g
\n  121 = SMF > v1.1
\n  122 = OSX v10.4, v10.5, v10.6
\n  131 = MSSQL(2000)
\n  132 = MSSQL(2005)
\n  300 = MySQL
\n  400 = phpass, MD5(Wordpress), MD5(phpBB3)
\n  500 = md5crypt, MD5(Unix), FreeBSD MD5, Cisco-IOS MD5
\n  900 = MD4
\n 1000 = NTLM
\n 1100 = Domain Cached Credentials, mscash
\n 1400 = SHA256
\n 1500 = descrypt, DES(Unix), Traditional DES
\n 1600 = md5apr1, MD5(APR), Apache MD5
\n 1700 = SHA512
\n 1722 = OSX v10.7
\n 2100 = Domain Cached Credentials2, mscash2
\n 2400 = Cisco-PIX MD5
\n 2600 = Double MD5
\n 2611 = vBulletin < v3.8.5
\n 2711 = vBulletin > v3.8.5
\n 2811 = IPB2+, MyBB1.2+
\n 3000 = LM
\n 3100 = Oracle 7-10g, DES(Oracle)
\n"<\/span>)<\/span>;<\/span>}<\/span>
\n
\nmy<\/span> $mode<\/span> =<\/span> shift<\/span><\/a> @<\/span>ARGV<\/span>;<\/span>
\nmy<\/span> $password<\/span> =<\/span> shift<\/span><\/a> @<\/span>ARGV<\/span> \/\/<\/span> <STDIN><\/span>;<\/span>
\n
\nsingle (<\/span>$mode<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>
\nsub<\/span> single{<\/span> #mode #password<\/span>
\n  my<\/span> $mode<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $password<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  if<\/span> (<\/span>defined<\/span><\/a> $mode<\/span>)<\/span>
\n  {<\/span>
\n    @modes<\/span> =<\/span> (<\/span>$mode<\/span>)<\/span>;<\/span>
\n  }<\/span>
\n  for<\/span> (<\/span>my<\/span> $j<\/span> =<\/span> 0<\/span>;<\/span> $j<\/span> <<\/span> scalar<\/span><\/a> @modes<\/span>;<\/span> $j<\/span>++<\/span>)<\/span>
\n  {<\/span>
\n    my<\/span> $mode<\/span> =<\/span> $modes<\/span>[<\/span>$j<\/span>]<\/span>;<\/span>
\n    if<\/span> (<\/span>$mode<\/span> ==<\/span> 0<\/span> ||<\/span> $mode<\/span> ==<\/span> 100<\/span> ||<\/span> $mode<\/span> ==<\/span> 101<\/span> ||<\/span> $mode<\/span> ==<\/span> 300<\/span> ||<\/span> $mode<\/span> ==<\/span> 600<\/span> ||<\/span> $mode<\/span> ==<\/span> 900<\/span> ||<\/span> $mode<\/span> ==<\/span> 1000<\/span> ||<\/span> $mode<\/span> ==<\/span> 1400<\/span> ||<\/span> $mode<\/span> ==<\/span> 1700<\/span> ||<\/span> $mode<\/span> ==<\/span> 2400<\/span> ||<\/span> $mode<\/span> ==<\/span> 2600<\/span>)<\/span>
\n    {<\/span>rnd (<\/span>$mode<\/span>,<\/span> 0<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 11<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 32<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 21<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 2<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 111<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 112<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 20<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 121<\/span>)<\/span>{<\/span>my<\/span> $salt_len<\/span> =<\/span> get_random_num (<\/span>1<\/span>,<\/span> 15<\/span>)<\/span>;<\/span>rnd (<\/span>$mode<\/span>,<\/span> $salt_len<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 122<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 131<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 132<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 400<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 500<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 1100<\/span>)<\/span>{<\/span>my<\/span> $salt_len<\/span> =<\/span> get_random_num (<\/span>1<\/span>,<\/span> 15<\/span>)<\/span>;<\/span>rnd (<\/span>$mode<\/span>,<\/span> $salt_len<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 1500<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 2<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 1600<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 1722<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 8<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 2100<\/span>)<\/span>{<\/span>my<\/span> $salt_len<\/span> =<\/span> get_random_num (<\/span>1<\/span>,<\/span> 15<\/span>)<\/span>;<\/span>rnd (<\/span>$mode<\/span>,<\/span> $salt_len<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 2611<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 3<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 2711<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 30<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 2811<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 5<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 3000<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 0<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n    elsif<\/span> (<\/span>$mode<\/span> ==<\/span> 3100<\/span>)<\/span>{<\/span>rnd (<\/span>$mode<\/span>,<\/span> 10<\/span>,<\/span> $password<\/span>)<\/span>;<\/span>}<\/span>
\n  }<\/span>
\n}<\/span>
\n
\nexit<\/span><\/a>;<\/span>
\n
\nsub<\/span> gen_hash{<\/span> #mode #password #salt<\/span>
\n  my<\/span> $mode<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $word_buf<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $salt_buf<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $tmp_hash<\/span>;<\/span>
\n  my<\/span> $hash_buf<\/span>;<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 0<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>$word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 11<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>$word_buf<\/span> .<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 21<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>$salt_buf<\/span> .<\/span> $word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 100<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> sha1_hex (<\/span>$word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 101<\/span>)<\/span>{<\/span>
\n    my<\/span> $ctx<\/span> =<\/span> Digest::<\/span>SHA1<\/span>-><\/span>new<\/span>;<\/span>
\n    $ctx<\/span>-><\/span>add<\/span> (<\/span>$word_buf<\/span>)<\/span>;<\/span>
\n    my<\/span> $hash_buf<\/span> =<\/span> encode_base64 (<\/span>$ctx<\/span>-><\/span>digest<\/span>)<\/span>;<\/span>
\n    chomp<\/span><\/a> (<\/span>$hash_buf<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"{SHA}%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 111<\/span>)<\/span>{<\/span>
\n    my<\/span> $ctx<\/span> =<\/span> Digest::<\/span>SHA1<\/span>-><\/span>new<\/span>;<\/span>
\n    $ctx<\/span>-><\/span>add<\/span> (<\/span>$word_buf<\/span>)<\/span>;<\/span>
\n    $ctx<\/span>-><\/span>add<\/span> (<\/span>$salt_buf<\/span>)<\/span>;<\/span>
\n    my<\/span> $hash_buf<\/span> =<\/span> encode_base64 (<\/span>$ctx<\/span>-><\/span>digest<\/span> .<\/span> $salt_buf<\/span>)<\/span>;<\/span>
\n    chomp<\/span><\/a> (<\/span>$hash_buf<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"{SSHA}%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 112<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt_buf_bin<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> (<\/span>my<\/span> $pos<\/span> =<\/span> 0<\/span>;<\/span> $pos<\/span> <<\/span> length<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>;<\/span> $pos<\/span> +=<\/span> 2<\/span>)<\/span>
\n    {<\/span>
\n      my<\/span> $num<\/span> =<\/span> substr<\/span><\/a> (<\/span>$salt_buf<\/span>,<\/span> $pos<\/span>,<\/span> 2<\/span>)<\/span>;<\/span>
\n      $salt_buf_bin<\/span> .=<\/span> chr<\/span><\/a> (<\/span>hex<\/span><\/a> (<\/span>$num<\/span>)<\/span>)<\/span>;<\/span>
\n    }<\/span>
\n    $hash_buf<\/span> =<\/span> sha1_hex (<\/span>$word_buf<\/span> .<\/span> $salt_buf_bin<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 121<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> sha1_hex (<\/span>$salt_buf<\/span> .<\/span> $word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 122<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt_buf_bin<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> (<\/span>my<\/span> $pos<\/span> =<\/span> 0<\/span>;<\/span> $pos<\/span> <<\/span> length<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>;<\/span> $pos<\/span> +=<\/span> 2<\/span>)<\/span>
\n    {<\/span>
\n      my<\/span> $num<\/span> =<\/span> substr<\/span><\/a> (<\/span>$salt_buf<\/span>,<\/span> $pos<\/span>,<\/span> 2<\/span>)<\/span>;<\/span>
\n      $salt_buf_bin<\/span> .=<\/span> chr<\/span><\/a> (<\/span>hex<\/span><\/a> (<\/span>$num<\/span>)<\/span>)<\/span>;<\/span>
\n    }<\/span>
\n    $hash_buf<\/span> =<\/span> sha1_hex (<\/span>$salt_buf_bin<\/span> .<\/span> $word_buf<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s%s"<\/span>,<\/span> $salt_buf<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 131<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt_buf_bin<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> (<\/span>my<\/span> $pos<\/span> =<\/span> 0<\/span>;<\/span> $pos<\/span> <<\/span> length<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>;<\/span> $pos<\/span> +=<\/span> 2<\/span>)<\/span>
\n    {<\/span>
\n      my<\/span> $num<\/span> =<\/span> substr<\/span><\/a> (<\/span>$salt_buf<\/span>,<\/span> $pos<\/span>,<\/span> 2<\/span>)<\/span>;<\/span>
\n      $salt_buf_bin<\/span> .=<\/span> chr<\/span><\/a> (<\/span>hex<\/span><\/a> (<\/span>$num<\/span>)<\/span>)<\/span>;<\/span>
\n    }<\/span>
\n    $hash_buf<\/span> =<\/span> sha1_hex (<\/span>encode (<\/span>"UTF-16LE"<\/span>,<\/span> $word_buf<\/span>)<\/span> .<\/span> $salt_buf_bin<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"0x0100%s%s%s"<\/span>,<\/span> $salt_buf<\/span>,<\/span> "0"<\/span> x 40<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 132<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt_buf_bin<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> (<\/span>my<\/span> $pos<\/span> =<\/span> 0<\/span>;<\/span> $pos<\/span> <<\/span> length<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>;<\/span> $pos<\/span> +=<\/span> 2<\/span>)<\/span>
\n    {<\/span>
\n      my<\/span> $num<\/span> =<\/span> substr<\/span><\/a> (<\/span>$salt_buf<\/span>,<\/span> $pos<\/span>,<\/span> 2<\/span>)<\/span>;<\/span>
\n      $salt_buf_bin<\/span> .=<\/span> chr<\/span><\/a> (<\/span>hex<\/span><\/a> (<\/span>$num<\/span>)<\/span>)<\/span>;<\/span>
\n    }<\/span>
\n    $hash_buf<\/span> =<\/span> sha1_hex (<\/span>encode (<\/span>"UTF-16LE"<\/span>,<\/span> $word_buf<\/span>)<\/span> .<\/span> $salt_buf_bin<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"0x0100%s%s"<\/span>,<\/span> $salt_buf<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 300<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> substr<\/span><\/a> (<\/span>password41 (<\/span>$word_buf<\/span>)<\/span>,<\/span> 1<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 400<\/span>)<\/span>{<\/span>
\n    my<\/span> $ppr<\/span> =<\/span> Authen::<\/span>Passphrase<\/span>::<\/span>PHPass<\/span>-><\/span>new<\/span>
\n    (<\/span>
\n      cost =><\/span> 11<\/span>,<\/span>
\n      salt =><\/span> $salt_buf<\/span>,<\/span>
\n      passphrase =><\/span> $word_buf<\/span>,<\/span>
\n    )<\/span>;<\/span>
\n    $hash_buf<\/span> =<\/span> $ppr<\/span>-><\/span>as_rfc2307<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> substr<\/span><\/a> (<\/span>$hash_buf<\/span>,<\/span> 7<\/span>)<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 500<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> unix_md5_crypt (<\/span>$word_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 900<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md4_hex (<\/span>$word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1000<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md4_hex (<\/span>encode (<\/span>"UTF-16LE"<\/span>,<\/span> $word_buf<\/span>)<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1100<\/span>)<\/span>{<\/span>
\n    $hash_buf<\/span> =<\/span> md4_hex (<\/span>md4 (<\/span>encode (<\/span>"UTF-16LE"<\/span>,<\/span> $word_buf<\/span>)<\/span>)<\/span> .<\/span> encode (<\/span>"UTF-16LE"<\/span>,<\/span> lc<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>)<\/span>)<\/span>,<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1400<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> sha256_hex (<\/span>$word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1500<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> crypt<\/span><\/a> (<\/span>$word_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1600<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> apache_md5_crypt (<\/span>$word_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1700<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> sha512_hex (<\/span>$word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 1722<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt_buf_bin<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> (<\/span>my<\/span> $pos<\/span> =<\/span> 0<\/span>;<\/span> $pos<\/span> <<\/span> length<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>;<\/span> $pos<\/span> +=<\/span> 2<\/span>)<\/span>{<\/span>my<\/span> $num<\/span> =<\/span> substr<\/span><\/a> (<\/span>$salt_buf<\/span>,<\/span> $pos<\/span>,<\/span> 2<\/span>)<\/span>;<\/span>$salt_buf_bin<\/span> .=<\/span> chr<\/span><\/a> (<\/span>hex<\/span><\/a> (<\/span>$num<\/span>)<\/span>)<\/span>;<\/span>}<\/span>
\n    $hash_buf<\/span> =<\/span> sha512_hex (<\/span>$salt_buf_bin<\/span> .<\/span> $word_buf<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s%s"<\/span>,<\/span> $salt_buf<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2100<\/span>)<\/span>{<\/span>
\n    my<\/span> $salt<\/span> =<\/span> encode (<\/span>"UTF-16LE"<\/span>,<\/span> lc<\/span><\/a> (<\/span>$salt_buf<\/span>)<\/span>)<\/span>;<\/span>
\n    my<\/span> $pbkdf2<\/span> =<\/span> Crypt::<\/span>PBKDF2<\/span>-><\/span>new<\/span>
\n    (<\/span>
\n      hash_class =><\/span> 'HMACSHA1'<\/span>,<\/span>
\n      iterations =><\/span> 10240<\/span>,<\/span>
\n      output_len =><\/span> 16<\/span>,<\/span>
\n      salt_len   =><\/span> length<\/span><\/a> (<\/span>$salt<\/span>)<\/span>,<\/span>
\n    )<\/span>;<\/span>
\n    my<\/span> $hash_buf<\/span> =<\/span> unpack<\/span><\/a> (<\/span>"H*"<\/span>,<\/span> $pbkdf2<\/span>-><\/span>PBKDF2<\/span> (<\/span>$salt<\/span>,<\/span> md4 (<\/span>md4 (<\/span>encode (<\/span>"UTF-16LE"<\/span>,<\/span> $word_buf<\/span>)<\/span>)<\/span> .<\/span> $salt<\/span>)<\/span>)<\/span>)<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>
\n  }<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2400<\/span>)<\/span>{<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> pseudo_base64 (<\/span>Digest::<\/span>MD5<\/span>::<\/span>md5<\/span> (<\/span>$word_buf<\/span> .<\/span> "\\0<\/span>"<\/span> x (<\/span>16<\/span> -<\/span> length<\/span><\/a> (<\/span>$word_buf<\/span>)<\/span>)<\/span>)<\/span>)<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2600<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>md5_hex (<\/span>$word_buf<\/span>)<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2611<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>md5_hex (<\/span>$word_buf<\/span>)<\/span> .<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2711<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>md5_hex (<\/span>$word_buf<\/span>)<\/span> .<\/span> $salt_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 2811<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> md5_hex (<\/span>md5_hex (<\/span>$salt_buf<\/span>)<\/span> .<\/span> md5_hex (<\/span>$word_buf<\/span>)<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 3000<\/span>)<\/span>{<\/span>
\n    my<\/span> $ppr<\/span> =<\/span> Authen::<\/span>Passphrase<\/span>::<\/span>LANManager<\/span>-><\/span>new<\/span> (<\/span>"passphrase"<\/span> =><\/span> $word_buf<\/span>)<\/span>;<\/span>
\n    $hash_buf<\/span> =<\/span> $ppr<\/span>-><\/span>hash_hex<\/span>;<\/span>
\n    $tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s"<\/span>,<\/span> $hash_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  if<\/span> (<\/span>$mode<\/span> ==<\/span> 3100<\/span>)<\/span>{<\/span>$hash_buf<\/span> =<\/span> oracle_hash (<\/span>$salt_buf<\/span>,<\/span> $word_buf<\/span>)<\/span>;<\/span>$tmp_hash<\/span> =<\/span> sprintf<\/span><\/a> (<\/span>"%s:%s"<\/span>,<\/span> $hash_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>}<\/span>
\n  return<\/span><\/a> (<\/span>$tmp_hash<\/span>)<\/span>;<\/span>
\n}<\/span>
\nsub<\/span> rnd{<\/span> #mode #saltlength #password<\/span>
\n  my<\/span> $mode<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $salt_len<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $password<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $word_buf<\/span> =<\/span> $password<\/span>;<\/span>
\n  my<\/span> @salt_arr<\/span>;<\/span>
\n  for<\/span> (<\/span>my<\/span> $i<\/span> =<\/span> 0<\/span>;<\/span> $i<\/span> <<\/span> $salt_len<\/span>;<\/span> $i<\/span>++<\/span>)<\/span>{<\/span>my<\/span> $c<\/span> =<\/span> get_random_chr (<\/span>0x30,<\/span> 0x39)<\/span>;<\/span>push<\/span><\/a> (<\/span>@salt_arr<\/span>,<\/span> $c<\/span>)<\/span>;<\/span>}<\/span>
\n  my<\/span> $salt_buf<\/span> =<\/span> join<\/span><\/a> (<\/span>""<\/span>,<\/span> @salt_arr<\/span>)<\/span>;<\/span>
\n  my<\/span> $tmp_hash<\/span> =<\/span> gen_hash (<\/span>$mode<\/span>,<\/span> $word_buf<\/span>,<\/span> $salt_buf<\/span>)<\/span>;<\/span>
\n  printf<\/span><\/a> (<\/span>"$tmp_hash\\n<\/span>"<\/span>)<\/span>;<\/span>
\n}<\/span>
\n
\nsub<\/span> get_random_num{<\/span> #min #max<\/span>
\n  my<\/span> $min<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  my<\/span> $max<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n  return<\/span><\/a> int<\/span><\/a> (<\/span>(<\/span>rand<\/span><\/a> (<\/span>$max<\/span> -<\/span> $min<\/span>)<\/span>)<\/span> +<\/span> $min<\/span>)<\/span>;<\/span>}<\/span>
\nsub<\/span> get_random_chr{<\/span>return<\/span><\/a> chr<\/span><\/a> get_random_num (<\/span>@_<\/span>)<\/span>;<\/span>}<\/span>
\nsub<\/span> pseudo_base64{<\/span>
\n    my<\/span> $itoa64<\/span> =<\/span> ".\/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"<\/span>;<\/span>
\n    my<\/span> $md5<\/span> =<\/span> shift<\/span><\/a>;<\/span>
\n    my<\/span> $s64<\/span> =<\/span> ""<\/span>;<\/span>
\n    for<\/span> my<\/span> $i<\/span> (<\/span>0<\/span>..<\/span>3<\/span>)<\/span> {<\/span>
\n        my<\/span> $v<\/span> =<\/span> unpack<\/span><\/a> "V"<\/span>,<\/span> substr<\/span><\/a>(<\/span>$md5<\/span>,<\/span> $i<\/span>*<\/span>4<\/span>,<\/span> 4<\/span>)<\/span>;<\/span>
\n        for<\/span> (<\/span>1<\/span>..<\/span>4<\/span>)<\/span> {<\/span>$s64<\/span> .=<\/span> substr<\/span><\/a>(<\/span>$itoa64<\/span>,<\/span> $v<\/span> &<\/span> 0x3f,<\/span> 1<\/span>)<\/span>;<\/span>$v<\/span> >>=<\/span> 6<\/span>;<\/span>}<\/span>
\n    }<\/span>
\n    return<\/span><\/a> $s64<\/span>;<\/span>}<\/span>
\nsub<\/span> oracle_hash{<\/span>
\n  my<\/span> (<\/span>$username<\/span>,<\/span> $password<\/span>)<\/span> =<\/span> @_<\/span>;<\/span>
\n  my<\/span> $userpass<\/span> =<\/span> pack<\/span><\/a>(<\/span>'n*'<\/span>,<\/span> unpack<\/span><\/a>(<\/span>'C*'<\/span>,<\/span> uc<\/span><\/a>(<\/span>$username<\/span>.<\/span>$password<\/span>)<\/span>)<\/span>)<\/span>;<\/span>
\n  $userpass<\/span> .=<\/span> pack<\/span><\/a>(<\/span>'C'<\/span>,<\/span> 0<\/span>)<\/span> while<\/span> (<\/span>length<\/span><\/a>(<\/span>$userpass<\/span>)<\/span> %<\/span> 8<\/span>)<\/span>;<\/span>
\n  my<\/span> $key<\/span> =<\/span> pack<\/span><\/a>(<\/span>'H*'<\/span>,<\/span> "0123456789ABCDEF"<\/span>)<\/span>;<\/span>
\n  my<\/span> $iv<\/span> =<\/span> pack<\/span><\/a>(<\/span>'H*'<\/span>,<\/span> "0000000000000000"<\/span>)<\/span>;<\/span>
\n  my<\/span> $c<\/span> =<\/span> new<\/span> Crypt::<\/span>CBC<\/span>(<\/span>
\n    -<\/span>literal_key =><\/span> 1<\/span>,<\/span>
\n    -<\/span>cipher =><\/span> "DES"<\/span>,<\/span>
\n    -<\/span>key =><\/span> $key<\/span>,<\/span>
\n    -<\/span>iv =><\/span> $iv<\/span>,<\/span>
\n    -<\/span>header =><\/span> "none"<\/span>
\n  )<\/span>;<\/span>
\n  my<\/span> $key2<\/span> =<\/span> substr<\/span><\/a>(<\/span>$c<\/span>-><\/span>encrypt<\/span>(<\/span>$userpass<\/span>)<\/span>,<\/span> length<\/span><\/a>(<\/span>$userpass<\/span>)<\/span>-<\/span>8<\/span>,<\/span> 8<\/span>)<\/span>;<\/span>
\n  my<\/span> $c2<\/span> =<\/span> new<\/span> Crypt::<\/span>CBC<\/span>(<\/span>
\n    -<\/span>literal_key =><\/span> 1<\/span>,<\/span>
\n    -<\/span>cipher =><\/span> "DES"<\/span>,<\/span>
\n    -<\/span>key =><\/span> $key2<\/span>,<\/span>
\n    -<\/span>iv =><\/span> $iv<\/span>,<\/span>
\n    -<\/span>header =><\/span> "none"<\/span>
\n  )<\/span>;<\/span>
\n  my<\/span> $hash<\/span> =<\/span> substr<\/span><\/a>(<\/span>$c2<\/span>-><\/span>encrypt<\/span>(<\/span>$userpass<\/span>)<\/span>,<\/span> length<\/span><\/a>(<\/span>$userpass<\/span>)<\/span>-<\/span>8<\/span>,<\/span> 8<\/span>)<\/span>;<\/span>
\n  return<\/span><\/a> uc<\/span><\/a>(<\/span>unpack<\/span><\/a>(<\/span>'H*'<\/span>,<\/span> $hash<\/span>)<\/span>)<\/span>;<\/span>}<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

What this code does is takes a password and creates a hash for it determined by the algorithm:
\nHash types:<\/p>\n

    \n
  • 0 = MD5<\/li>\n
  • 11 = Joomla<\/li>\n
  • 21 = osCommerce, xt:Commerce<\/li>\n
  • 100 = SHA1<\/li>\n
  • 101 = nsldap, SHA-1(Base64), Netscape LDAP SHA<\/li>\n
  • 111 = nsldaps, SSHA-1(Base64), Netscape LDAP SSHA<\/li>\n
  • 112 = Oracle 11g<\/li>\n
  • 121 = SMF > v1.1<\/li>\n
  • 122 = OSX v10.4, v10.5, v10.6<\/li>\n
  • 131 = MSSQL(2000)<\/li>\n
  • 132 = MSSQL(2005)<\/li>\n
  • 300 = MySQL<\/li>\n
  • 400 = phpass, MD5(WordPress), MD5(phpBB3)<\/li>\n
  • 500 = md5crypt, MD5(Unix), FreeBSD MD5, Cisco-IOS MD5<\/li>\n
  • 900 = MD4<\/li>\n
  • 1000 = NTLM<\/li>\n
  • 1100 = Domain Cached Credentials, mscash<\/li>\n
  • 1400 = SHA256<\/li>\n
  • 1500 = descrypt, DES(Unix), Traditional DES<\/li>\n
  • 1600 = md5apr1, MD5(APR), Apache MD5<\/li>\n
  • 1700 = SHA512<\/li>\n
  • 1722 = OSX v10.7<\/li>\n
  • 2100 = Domain Cached Credentials2, mscash2<\/li>\n
  • 2400 = Cisco-PIX MD5<\/li>\n
  • 2600 = Double MD5<\/li>\n
  • 2611 = vBulletin < v3.8.5<\/li>\n
  • 2711 = vBulletin > v3.8.5<\/li>\n
  • 2811 = IPB2+, MyBB1.2+<\/li>\n
  • 3000 = LM<\/li>\n
  • 3100 = Oracle 7-10g, DES(Oracle)<\/li>\n<\/ul>\n

    It can either be run on it’s own or can take the password from standard input:<\/p>\n

    1
    2
    3
    4
    <\/div><\/td>
    $ .\/hash-generator.pl 0 password
    \n5f4dcc3b5aa765d61d8327deb882cf99
    \n$ echo -En 'password' | .\/hash-generator.pl 0
    \n5f4dcc3b5aa765d61d8327deb882cf99<\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

    Enojy!<\/p>\n","protected":false},"excerpt":{"rendered":"

    So I used a test script made by atom a while back to create a bit of code that outputs a hash for a given password. It didn’t support stdin so I thought I would update it, and here it is. Note: Don’t copy\/paste the code, instead get it from here: googlecode.com 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264#!\/usr\/bin\/perl #__________________________________________________________ # […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[249,248,188,183,250],"_links":{"self":[{"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/posts\/669"}],"collection":[{"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/comments?post=669"}],"version-history":[{"count":7,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/posts\/669\/revisions"}],"predecessor-version":[{"id":1234,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/posts\/669\/revisions\/1234"}],"wp:attachment":[{"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/media?parent=669"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/categories?post=669"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.phillips321.co.uk\/wp-json\/wp\/v2\/tags?post=669"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}