xref: /plugin/botmon/captcha.js (revision cdc02cd4c39f99df88e41b6048475b40280560ad)
112993035SSascha Leib"use strict";
212993035SSascha Leib/* DokuWiki BotMon Captcha JavaScript */
3*cdc02cd4SSascha Leib/* 23.10.2025 - 0.1.2 - pre-release */
412993035SSascha Leib/* Author: Sascha Leib <ad@hominem.info> */
512993035SSascha Leib
612993035SSascha Leibconst $BMCaptcha = {
712993035SSascha Leib
812993035SSascha Leib	init: function() {
912993035SSascha Leib		/* mark the page to contain the captcha styles */
1012993035SSascha Leib		document.getElementsByTagName('body')[0].classList.add('botmon_captcha');
1112993035SSascha Leib
1212993035SSascha Leib		$BMCaptcha.install()
1312993035SSascha Leib	},
1412993035SSascha Leib
1512993035SSascha Leib	install: function() {
1612993035SSascha Leib		// find the parent element:
1712993035SSascha Leib		let bm_parent = document.getElementsByTagName('body')[0];
1812993035SSascha Leib
1912993035SSascha Leib		// create the dialog:
2012993035SSascha Leib		const dlg = document.createElement('dialog');
2112993035SSascha Leib		dlg.setAttribute('closedby', 'none');
2212993035SSascha Leib		dlg.setAttribute('open', 'open');
23*cdc02cd4SSascha Leib		dlg.classList.add('checking');
2412993035SSascha Leib		dlg.id = 'botmon_captcha_box';
25*cdc02cd4SSascha Leib		dlg.innerHTML = '<h2>Captcha box</h2><p>Making sure you are a human:</p>';
2612993035SSascha Leib
2712993035SSascha Leib		// Checkbox:
2812993035SSascha Leib		const lbl = document.createElement('label');
29*cdc02cd4SSascha Leib		lbl.innerHTML = '<span class="confirm">Click to confirm.</span><span class="busy"></span><span class="checking">Checking&nbsp;&hellip;</span><span class="loading">Loading&nbsp;&hellip;</span>';
3012993035SSascha Leib		const cb = document.createElement('input');
3112993035SSascha Leib		cb.setAttribute('type', 'checkbox');
32*cdc02cd4SSascha Leib		cb.setAttribute('disabled', 'disabled');
3312993035SSascha Leib		cb.addEventListener('click', $BMCaptcha._cbCallback);
34*cdc02cd4SSascha Leib		lbl.prepend(cb);
3512993035SSascha Leib
3612993035SSascha Leib		dlg.appendChild(lbl);
3712993035SSascha Leib
3812993035SSascha Leib		bm_parent.appendChild(dlg);
39*cdc02cd4SSascha Leib
40*cdc02cd4SSascha Leib		// call the delayed callback in a couple of seconds:
41*cdc02cd4SSascha Leib		setTimeout($BMCaptcha._delayedCallback, 1500);
4212993035SSascha Leib	},
4312993035SSascha Leib
4412993035SSascha Leib	/* creates a digest hash for the cookie function */
4512993035SSascha Leib	digest: {
4612993035SSascha Leib
4712993035SSascha Leib		/* simple SHA hash function - adapted from https://geraintluff.github.io/sha256/ */
4812993035SSascha Leib		hash: function(ascii) {
4912993035SSascha Leib
5012993035SSascha Leib			// shortcut:
5112993035SSascha Leib			const sha256 = $BMCaptcha.digest.hash;
5212993035SSascha Leib
5312993035SSascha Leib			// helper function
5412993035SSascha Leib			const rightRotate = function(v, a) {
5512993035SSascha Leib				return (v>>>a) | (v<<(32 - a));
5612993035SSascha Leib			};
5712993035SSascha Leib
5812993035SSascha Leib			var mathPow = Math.pow;
5912993035SSascha Leib			var maxWord = mathPow(2, 32);
6012993035SSascha Leib			var lengthProperty = 'length'
6112993035SSascha Leib			var i, j;
6212993035SSascha Leib			var result = ''
6312993035SSascha Leib
6412993035SSascha Leib			var words = [];
6512993035SSascha Leib			var asciiBitLength = ascii[lengthProperty]*8;
6612993035SSascha Leib
6712993035SSascha Leib			//* caching results is optional - remove/add slash from front of this line to toggle
6812993035SSascha Leib			// Initial hash value: first 32 bits of the fractional parts of the square roots of the first 8 primes
6912993035SSascha Leib			// (we actually calculate the first 64, but extra values are just ignored)
7012993035SSascha Leib			var hash = sha256.h = sha256.h || [];
7112993035SSascha Leib			// Round constants: first 32 bits of the fractional parts of the cube roots of the first 64 primes
7212993035SSascha Leib			var k = sha256.k = sha256.k || [];
7312993035SSascha Leib			var primeCounter = k[lengthProperty];
7412993035SSascha Leib			/*/
7512993035SSascha Leib			var hash = [], k = [];
7612993035SSascha Leib			var primeCounter = 0;
7712993035SSascha Leib			//*/
7812993035SSascha Leib
7912993035SSascha Leib			var isComposite = {};
8012993035SSascha Leib			for (var candidate = 2; primeCounter < 64; candidate++) {
8112993035SSascha Leib				if (!isComposite[candidate]) {
8212993035SSascha Leib					for (i = 0; i < 313; i += candidate) {
8312993035SSascha Leib						isComposite[i] = candidate;
8412993035SSascha Leib					}
8512993035SSascha Leib					hash[primeCounter] = (mathPow(candidate, .5)*maxWord)|0;
8612993035SSascha Leib					k[primeCounter++] = (mathPow(candidate, 1/3)*maxWord)|0;
8712993035SSascha Leib				}
8812993035SSascha Leib			}
8912993035SSascha Leib
9012993035SSascha Leib			ascii += '\x80' // Append Ƈ' bit (plus zero padding)
9112993035SSascha Leib			while (ascii[lengthProperty]%64 - 56) ascii += '\x00' // More zero padding
9212993035SSascha Leib			for (i = 0; i < ascii[lengthProperty]; i++) {
9312993035SSascha Leib				j = ascii.charCodeAt(i);
9412993035SSascha Leib				if (j>>8) return; // ASCII check: only accept characters in range 0-255
9512993035SSascha Leib				words[i>>2] |= j << ((3 - i)%4)*8;
9612993035SSascha Leib			}
9712993035SSascha Leib			words[words[lengthProperty]] = ((asciiBitLength/maxWord)|0);
9812993035SSascha Leib			words[words[lengthProperty]] = (asciiBitLength)
9912993035SSascha Leib
10012993035SSascha Leib			// process each chunk
10112993035SSascha Leib			for (j = 0; j < words[lengthProperty];) {
10212993035SSascha Leib				var w = words.slice(j, j += 16); // The message is expanded into 64 words as part of the iteration
10312993035SSascha Leib				var oldHash = hash;
10412993035SSascha Leib				// This is now the undefinedworking hash", often labelled as variables a...g
10512993035SSascha Leib				// (we have to truncate as well, otherwise extra entries at the end accumulate
10612993035SSascha Leib				hash = hash.slice(0, 8);
10712993035SSascha Leib
10812993035SSascha Leib				for (i = 0; i < 64; i++) {
10912993035SSascha Leib					var i2 = i + j;
11012993035SSascha Leib					// Expand the message into 64 words
11112993035SSascha Leib					// Used below if
11212993035SSascha Leib					var w15 = w[i - 15], w2 = w[i - 2];
11312993035SSascha Leib
11412993035SSascha Leib					// Iterate
11512993035SSascha Leib					var a = hash[0], e = hash[4];
11612993035SSascha Leib					var temp1 = hash[7]
11712993035SSascha Leib						+ (rightRotate(e, 6) ^ rightRotate(e, 11) ^ rightRotate(e, 25)) // S1
11812993035SSascha Leib						+ ((e&hash[5])^((~e)&hash[6])) // ch
11912993035SSascha Leib						+ k[i]
12012993035SSascha Leib						// Expand the message schedule if needed
12112993035SSascha Leib						+ (w[i] = (i < 16) ? w[i] : (
12212993035SSascha Leib								w[i - 16]
12312993035SSascha Leib								+ (rightRotate(w15, 7) ^ rightRotate(w15, 18) ^ (w15>>>3)) // s0
12412993035SSascha Leib								+ w[i - 7]
12512993035SSascha Leib								+ (rightRotate(w2, 17) ^ rightRotate(w2, 19) ^ (w2>>>10)) // s1
12612993035SSascha Leib							)|0
12712993035SSascha Leib						);
12812993035SSascha Leib					// This is only used once, so *could* be moved below, but it only saves 4 bytes and makes things unreadble
12912993035SSascha Leib					var temp2 = (rightRotate(a, 2) ^ rightRotate(a, 13) ^ rightRotate(a, 22)) // S0
13012993035SSascha Leib						+ ((a&hash[1])^(a&hash[2])^(hash[1]&hash[2])); // maj
13112993035SSascha Leib
13212993035SSascha Leib					hash = [(temp1 + temp2)|0].concat(hash); // We don't bother trimming off the extra ones, they're harmless as long as we're truncating when we do the slice()
13312993035SSascha Leib					hash[4] = (hash[4] + temp1)|0;
13412993035SSascha Leib				}
13512993035SSascha Leib
13612993035SSascha Leib				for (i = 0; i < 8; i++) {
13712993035SSascha Leib					hash[i] = (hash[i] + oldHash[i])|0;
13812993035SSascha Leib				}
13912993035SSascha Leib			}
14012993035SSascha Leib
14112993035SSascha Leib			for (i = 0; i < 8; i++) {
14212993035SSascha Leib				for (j = 3; j + 1; j--) {
14312993035SSascha Leib					var b = (hash[i]>>(j*8))&255;
14412993035SSascha Leib					result += ((b < 16) ? 0 : '') + b.toString(16);
14512993035SSascha Leib				}
14612993035SSascha Leib			}
14712993035SSascha Leib			return result;
14812993035SSascha Leib		}
14912993035SSascha Leib	},
15012993035SSascha Leib
15112993035SSascha Leib	_cbCallback: function(e) {
15212993035SSascha Leib		if (e.target.checked) {
15312993035SSascha Leib			//document.getElementById('botmon_captcha_box').close();
15412993035SSascha Leib
155*cdc02cd4SSascha Leib			const dat = [ // the data to encode
156*cdc02cd4SSascha Leib				document._botmon.seed || '',
157*cdc02cd4SSascha Leib				location.hostname,
158*cdc02cd4SSascha Leib				document._botmon.ip || '0.0.0.0',
159*cdc02cd4SSascha Leib				(document._botmon.t0 ? new Date(document._botmon.t0) : new Date()).toISOString().substring(0, 10)
160*cdc02cd4SSascha Leib			];
161*cdc02cd4SSascha Leib			const hash = $BMCaptcha.digest.hash(dat.join('|'));
16212993035SSascha Leib
163*cdc02cd4SSascha Leib			// set the cookie:
164*cdc02cd4SSascha Leib			document.cookie = "DWConfirm=" + hash + ';path=/;';
16512993035SSascha Leib
166*cdc02cd4SSascha Leib			// change the interface:
167*cdc02cd4SSascha Leib			const dlg = document.getElementById('botmon_captcha_box');
168*cdc02cd4SSascha Leib			if (dlg) {
169*cdc02cd4SSascha Leib				dlg.classList.remove('ready');
170*cdc02cd4SSascha Leib				dlg.classList.add('loading');
171*cdc02cd4SSascha Leib			}
172*cdc02cd4SSascha Leib
173*cdc02cd4SSascha Leib			// reload the page:
17412993035SSascha Leib			window.location.reload(true);
17512993035SSascha Leib		}
176*cdc02cd4SSascha Leib	},
177*cdc02cd4SSascha Leib
178*cdc02cd4SSascha Leib	_delayedCallback: function() {
179*cdc02cd4SSascha Leib		const dlg = document.getElementById('botmon_captcha_box');
180*cdc02cd4SSascha Leib		if (dlg) {
181*cdc02cd4SSascha Leib			dlg.classList.remove('checking');
182*cdc02cd4SSascha Leib			dlg.classList.add('ready');
183*cdc02cd4SSascha Leib
184*cdc02cd4SSascha Leib			const input = dlg.getElementsByTagName('input')[0];
185*cdc02cd4SSascha Leib			if (input) {
186*cdc02cd4SSascha Leib				input.removeAttribute('disabled');
187*cdc02cd4SSascha Leib				input.focus();
18812993035SSascha Leib			}
189*cdc02cd4SSascha Leib		}
190*cdc02cd4SSascha Leib	},
19112993035SSascha Leib
19212993035SSascha Leib}
19312993035SSascha Leib// initialise the captcha module:
19412993035SSascha Leib$BMCaptcha.init();