xref: /plugin/botmon/captcha.js (revision 0cfc0c5d33cfc511c3bd8bf17a4147e217b7d21a)
112993035SSascha Leib"use strict";
212993035SSascha Leib/* DokuWiki BotMon Captcha JavaScript */
3cdc02cd4SSascha 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		document.getElementsByTagName('body')[0].classList.add('botmon_captcha');
10ad279a21SSascha Leib		$BMCaptcha._cbDly = 1.5;
1112993035SSascha Leib		$BMCaptcha.install()
1212993035SSascha Leib	},
1312993035SSascha Leib
1412993035SSascha Leib	install: function() {
15620d9253SSascha Leib
16620d9253SSascha Leib		// localisation helper function:
17620d9253SSascha Leib		let _loc = function(id, alt) {
18620d9253SSascha Leib			if ($BMLocales && $BMLocales[id]) return $BMLocales[id];
19620d9253SSascha Leib			return alt;
20620d9253SSascha Leib		}
21620d9253SSascha Leib
2212993035SSascha Leib		// find the parent element:
2312993035SSascha Leib		let bm_parent = document.getElementsByTagName('body')[0];
2412993035SSascha Leib
2512993035SSascha Leib		// create the dialog:
2612993035SSascha Leib		const dlg = document.createElement('dialog');
2712993035SSascha Leib		dlg.setAttribute('closedby', 'none');
2812993035SSascha Leib		dlg.setAttribute('open', 'open');
29cef38106SSascha Leib		dlg.setAttribute('role', 'alertdialog');
30cef38106SSascha Leib		dlg.setAttribute('aria-labelledby', 'botmon_captcha_title');
31cdc02cd4SSascha Leib		dlg.classList.add('checking');
3212993035SSascha Leib		dlg.id = 'botmon_captcha_box';
33cef38106SSascha Leib		dlg.innerHTML = '<h2 id="botmon_captcha_title">' + _loc('dlgTitle', 'Title') + '</h2><p>' + _loc('dlgSubtitle', 'Subtitle') + '</p>';
3412993035SSascha Leib
3512993035SSascha Leib		// Checkbox:
3612993035SSascha Leib		const lbl = document.createElement('label');
37cef38106SSascha Leib		lbl.setAttribute('aria-live', 'assertive');
38620d9253SSascha Leib		lbl.innerHTML = '<span class="confirm">' + _loc('dlgConfirm', "Confirm.") + '</span>' +
39620d9253SSascha Leib			'<span class="busy"></span><span class="checking">' + _loc('dlgChecking', "Checking") + '</span>' +
40620d9253SSascha Leib			'<span class="loading">' + _loc('dlgLoading', "Loading") + '</span>' +
41620d9253SSascha Leib			'<span class="erricon">&#65533;</span><span class="error">' + _loc('dlgError', "Error") + '</span>';
4212993035SSascha Leib		const cb = document.createElement('input');
4312993035SSascha Leib		cb.setAttribute('type', 'checkbox');
44cdc02cd4SSascha Leib		cb.setAttribute('disabled', 'disabled');
4512993035SSascha Leib		cb.addEventListener('click', $BMCaptcha._cbCallback);
46cdc02cd4SSascha Leib		lbl.prepend(cb);
4712993035SSascha Leib
4812993035SSascha Leib		dlg.appendChild(lbl);
4912993035SSascha Leib
5012993035SSascha Leib		bm_parent.appendChild(dlg);
51cdc02cd4SSascha Leib
52cdc02cd4SSascha Leib		// call the delayed callback in a couple of seconds:
53ad279a21SSascha Leib		$BMCaptcha._st = performance.now();
54ad279a21SSascha Leib		setTimeout($BMCaptcha._delayedCallback, $BMCaptcha._cbDly * 1000);
5512993035SSascha Leib	},
5612993035SSascha Leib
5712993035SSascha Leib	/* creates a digest hash for the cookie function */
5812993035SSascha Leib	digest: {
5912993035SSascha Leib
6012993035SSascha Leib		/* simple SHA hash function - adapted from https://geraintluff.github.io/sha256/ */
6112993035SSascha Leib		hash: function(ascii) {
6212993035SSascha Leib
6312993035SSascha Leib			// shortcut:
6412993035SSascha Leib			const sha256 = $BMCaptcha.digest.hash;
6512993035SSascha Leib
6612993035SSascha Leib			// helper function
6712993035SSascha Leib			const rightRotate = function(v, a) {
6812993035SSascha Leib				return (v>>>a) | (v<<(32 - a));
6912993035SSascha Leib			};
7012993035SSascha Leib
7112993035SSascha Leib			var mathPow = Math.pow;
7212993035SSascha Leib			var maxWord = mathPow(2, 32);
7312993035SSascha Leib			var lengthProperty = 'length'
7412993035SSascha Leib			var i, j;
7512993035SSascha Leib			var result = ''
7612993035SSascha Leib
7712993035SSascha Leib			var words = [];
7812993035SSascha Leib			var asciiBitLength = ascii[lengthProperty]*8;
7912993035SSascha Leib
8012993035SSascha Leib			//* caching results is optional - remove/add slash from front of this line to toggle
8112993035SSascha Leib			// Initial hash value: first 32 bits of the fractional parts of the square roots of the first 8 primes
8212993035SSascha Leib			// (we actually calculate the first 64, but extra values are just ignored)
8312993035SSascha Leib			var hash = sha256.h = sha256.h || [];
8412993035SSascha Leib			// Round constants: first 32 bits of the fractional parts of the cube roots of the first 64 primes
8512993035SSascha Leib			var k = sha256.k = sha256.k || [];
8612993035SSascha Leib			var primeCounter = k[lengthProperty];
8712993035SSascha Leib			/*/
8812993035SSascha Leib			var hash = [], k = [];
8912993035SSascha Leib			var primeCounter = 0;
9012993035SSascha Leib			//*/
9112993035SSascha Leib
9212993035SSascha Leib			var isComposite = {};
9312993035SSascha Leib			for (var candidate = 2; primeCounter < 64; candidate++) {
9412993035SSascha Leib				if (!isComposite[candidate]) {
9512993035SSascha Leib					for (i = 0; i < 313; i += candidate) {
9612993035SSascha Leib						isComposite[i] = candidate;
9712993035SSascha Leib					}
9812993035SSascha Leib					hash[primeCounter] = (mathPow(candidate, .5)*maxWord)|0;
9912993035SSascha Leib					k[primeCounter++] = (mathPow(candidate, 1/3)*maxWord)|0;
10012993035SSascha Leib				}
10112993035SSascha Leib			}
10212993035SSascha Leib
10312993035SSascha Leib			ascii += '\x80' // Append Ƈ' bit (plus zero padding)
10412993035SSascha Leib			while (ascii[lengthProperty]%64 - 56) ascii += '\x00' // More zero padding
10512993035SSascha Leib			for (i = 0; i < ascii[lengthProperty]; i++) {
10612993035SSascha Leib				j = ascii.charCodeAt(i);
10712993035SSascha Leib				if (j>>8) return; // ASCII check: only accept characters in range 0-255
10812993035SSascha Leib				words[i>>2] |= j << ((3 - i)%4)*8;
10912993035SSascha Leib			}
11012993035SSascha Leib			words[words[lengthProperty]] = ((asciiBitLength/maxWord)|0);
11112993035SSascha Leib			words[words[lengthProperty]] = (asciiBitLength)
11212993035SSascha Leib
11312993035SSascha Leib			// process each chunk
11412993035SSascha Leib			for (j = 0; j < words[lengthProperty];) {
11512993035SSascha Leib				var w = words.slice(j, j += 16); // The message is expanded into 64 words as part of the iteration
11612993035SSascha Leib				var oldHash = hash;
11712993035SSascha Leib				// This is now the undefinedworking hash", often labelled as variables a...g
11812993035SSascha Leib				// (we have to truncate as well, otherwise extra entries at the end accumulate
11912993035SSascha Leib				hash = hash.slice(0, 8);
12012993035SSascha Leib
12112993035SSascha Leib				for (i = 0; i < 64; i++) {
12212993035SSascha Leib					var i2 = i + j;
12312993035SSascha Leib					// Expand the message into 64 words
12412993035SSascha Leib					// Used below if
12512993035SSascha Leib					var w15 = w[i - 15], w2 = w[i - 2];
12612993035SSascha Leib
12712993035SSascha Leib					// Iterate
12812993035SSascha Leib					var a = hash[0], e = hash[4];
12912993035SSascha Leib					var temp1 = hash[7]
13012993035SSascha Leib						+ (rightRotate(e, 6) ^ rightRotate(e, 11) ^ rightRotate(e, 25)) // S1
13112993035SSascha Leib						+ ((e&hash[5])^((~e)&hash[6])) // ch
13212993035SSascha Leib						+ k[i]
13312993035SSascha Leib						// Expand the message schedule if needed
13412993035SSascha Leib						+ (w[i] = (i < 16) ? w[i] : (
13512993035SSascha Leib								w[i - 16]
13612993035SSascha Leib								+ (rightRotate(w15, 7) ^ rightRotate(w15, 18) ^ (w15>>>3)) // s0
13712993035SSascha Leib								+ w[i - 7]
13812993035SSascha Leib								+ (rightRotate(w2, 17) ^ rightRotate(w2, 19) ^ (w2>>>10)) // s1
13912993035SSascha Leib							)|0
14012993035SSascha Leib						);
14112993035SSascha Leib					// This is only used once, so *could* be moved below, but it only saves 4 bytes and makes things unreadble
14212993035SSascha Leib					var temp2 = (rightRotate(a, 2) ^ rightRotate(a, 13) ^ rightRotate(a, 22)) // S0
14312993035SSascha Leib						+ ((a&hash[1])^(a&hash[2])^(hash[1]&hash[2])); // maj
14412993035SSascha Leib
14512993035SSascha 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()
14612993035SSascha Leib					hash[4] = (hash[4] + temp1)|0;
14712993035SSascha Leib				}
14812993035SSascha Leib
14912993035SSascha Leib				for (i = 0; i < 8; i++) {
15012993035SSascha Leib					hash[i] = (hash[i] + oldHash[i])|0;
15112993035SSascha Leib				}
15212993035SSascha Leib			}
15312993035SSascha Leib
15412993035SSascha Leib			for (i = 0; i < 8; i++) {
15512993035SSascha Leib				for (j = 3; j + 1; j--) {
15612993035SSascha Leib					var b = (hash[i]>>(j*8))&255;
15712993035SSascha Leib					result += ((b < 16) ? 0 : '') + b.toString(16);
15812993035SSascha Leib				}
15912993035SSascha Leib			}
16012993035SSascha Leib			return result;
16112993035SSascha Leib		}
16212993035SSascha Leib	},
16312993035SSascha Leib
16412993035SSascha Leib	_cbCallback: function(e) {
16512993035SSascha Leib		if (e.target.checked) {
16612993035SSascha Leib			//document.getElementById('botmon_captcha_box').close();
16712993035SSascha Leib
168d49ab213SSascha Leib			try {
169d49ab213SSascha Leib				var $status = 'loading';
170d49ab213SSascha Leib
1714ab56ef9SSascha Leib				// generate the hash: -- disabled until I found the pesky bug in the digest
1724ab56ef9SSascha Leib				/*const dat = [ // the data to encode
173cdc02cd4SSascha Leib					document._botmon.seed || '',
174cdc02cd4SSascha Leib					location.hostname,
175cdc02cd4SSascha Leib					document._botmon.ip || '0.0.0.0',
176d49ab213SSascha Leib					(new Date()).toISOString().substring(0, 10)
1774ab56ef9SSascha Leib				]; */
17883d954bdSSascha Leib				//if ($BMCaptcha._st - performance.now() >= 0) dat.push($BMCaptcha._st - performance.now());
1794ab56ef9SSascha Leib				//const hash = $BMCaptcha.digest.hash(dat.join('|'));
1804ab56ef9SSascha Leib				const hash = document._botmon.seed || ''
18112993035SSascha Leib
182cdc02cd4SSascha Leib				// set the cookie:
183815e0e16SSascha Leib				document.cookie = "DWConfirm=" + encodeURIComponent(hash) + '; path=/; session;'
1846b6cd387SSascha Leib					+ (document.location.protocol === 'https:' ? ' secure;' : '');
18512993035SSascha Leib
186d49ab213SSascha Leib			} catch (err) {
187d49ab213SSascha Leib				console.error(err);
188d49ab213SSascha Leib				$status = 'error';
189d49ab213SSascha Leib			}
190d49ab213SSascha Leib
191cdc02cd4SSascha Leib			// change the interface:
192cdc02cd4SSascha Leib			const dlg = document.getElementById('botmon_captcha_box');
193cdc02cd4SSascha Leib			if (dlg) {
194d49ab213SSascha Leib				dlg.classList.add( $status );
195*0cfc0c5dSSascha Leib				dlg.classList.remove('ready');
196cdc02cd4SSascha Leib			}
197cdc02cd4SSascha Leib
198cdc02cd4SSascha Leib			// reload the page:
199d49ab213SSascha Leib			if ($status !== 'error')window.location.reload(true);
20012993035SSascha Leib		}
201cdc02cd4SSascha Leib	},
202cdc02cd4SSascha Leib
203cdc02cd4SSascha Leib	_delayedCallback: function() {
204cdc02cd4SSascha Leib		const dlg = document.getElementById('botmon_captcha_box');
205cdc02cd4SSascha Leib		if (dlg) {
206cdc02cd4SSascha Leib			dlg.classList.add('ready');
207*0cfc0c5dSSascha Leib			dlg.classList.remove('checking');
208cdc02cd4SSascha Leib
209cdc02cd4SSascha Leib			const input = dlg.getElementsByTagName('input')[0];
210cdc02cd4SSascha Leib			if (input) {
211cdc02cd4SSascha Leib				input.removeAttribute('disabled');
212cdc02cd4SSascha Leib				input.focus();
213ad279a21SSascha Leib				setTimeout($BMCaptcha._autoCheck, 200, input);
21412993035SSascha Leib			}
215cdc02cd4SSascha Leib		}
216cdc02cd4SSascha Leib	},
217ad279a21SSascha Leib	_cbDly: null,
218ad279a21SSascha Leib	_st: null,
21912993035SSascha Leib
220ad279a21SSascha Leib	_autoCheck: function(e) {
221ad279a21SSascha Leib
222fb281ca1SSascha Leib		const bypass = ($BMConfig['captchaBypass'] || '').split(',');
223fb281ca1SSascha Leib		var action = false;
224ad279a21SSascha Leib
225fb281ca1SSascha Leib		if (bypass.indexOf('langmatch') >= 0) { // Languages matching
226ad279a21SSascha Leib			const cntLangs = navigator.languages.map(lang => lang.split('-')[0]);
227fb281ca1SSascha Leib			if (cntLangs.indexOf(document.documentElement.lang || 'en') >= 0) action = true;
228ad279a21SSascha Leib		}
229ad279a21SSascha Leib
230fb281ca1SSascha Leib		if (action) e.click(); // action!
231ad279a21SSascha Leib	}
23212993035SSascha Leib}
23312993035SSascha Leib// initialise the captcha module:
23412993035SSascha Leib$BMCaptcha.init();