xref: /plugin/botmon/captcha.js (revision 620d9253e58a385b16ea95cd5c3f3aea693b68f8)
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		/* 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() {
16*620d9253SSascha Leib
17*620d9253SSascha Leib		// localisation helper function:
18*620d9253SSascha Leib		let _loc = function(id, alt) {
19*620d9253SSascha Leib			if ($BMLocales && $BMLocales[id]) return $BMLocales[id];
20*620d9253SSascha Leib			return alt;
21*620d9253SSascha Leib		}
22*620d9253SSascha Leib
2312993035SSascha Leib		// find the parent element:
2412993035SSascha Leib		let bm_parent = document.getElementsByTagName('body')[0];
2512993035SSascha Leib
2612993035SSascha Leib		// create the dialog:
2712993035SSascha Leib		const dlg = document.createElement('dialog');
2812993035SSascha Leib		dlg.setAttribute('closedby', 'none');
2912993035SSascha Leib		dlg.setAttribute('open', 'open');
30cdc02cd4SSascha Leib		dlg.classList.add('checking');
3112993035SSascha Leib		dlg.id = 'botmon_captcha_box';
32*620d9253SSascha Leib		dlg.innerHTML = '<h2>' + _loc('dlgTitle', 'Title') + '</h2><p>' + _loc('dlgSubtitle', 'Subtitle') + '</p>';
3312993035SSascha Leib
3412993035SSascha Leib		// Checkbox:
3512993035SSascha Leib		const lbl = document.createElement('label');
36*620d9253SSascha Leib		lbl.innerHTML = '<span class="confirm">' + _loc('dlgConfirm', "Confirm.") + '</span>' +
37*620d9253SSascha Leib			'<span class="busy"></span><span class="checking">' + _loc('dlgChecking', "Checking") + '</span>' +
38*620d9253SSascha Leib			'<span class="loading">' + _loc('dlgLoading', "Loading") + '</span>' +
39*620d9253SSascha Leib			'<span class="erricon">&#65533;</span><span class="error">' + _loc('dlgError', "Error") + '</span>';
4012993035SSascha Leib		const cb = document.createElement('input');
4112993035SSascha Leib		cb.setAttribute('type', 'checkbox');
42cdc02cd4SSascha Leib		cb.setAttribute('disabled', 'disabled');
4312993035SSascha Leib		cb.addEventListener('click', $BMCaptcha._cbCallback);
44cdc02cd4SSascha Leib		lbl.prepend(cb);
4512993035SSascha Leib
4612993035SSascha Leib		dlg.appendChild(lbl);
4712993035SSascha Leib
4812993035SSascha Leib		bm_parent.appendChild(dlg);
49cdc02cd4SSascha Leib
50cdc02cd4SSascha Leib		// call the delayed callback in a couple of seconds:
51cdc02cd4SSascha Leib		setTimeout($BMCaptcha._delayedCallback, 1500);
5212993035SSascha Leib	},
5312993035SSascha Leib
5412993035SSascha Leib	/* creates a digest hash for the cookie function */
5512993035SSascha Leib	digest: {
5612993035SSascha Leib
5712993035SSascha Leib		/* simple SHA hash function - adapted from https://geraintluff.github.io/sha256/ */
5812993035SSascha Leib		hash: function(ascii) {
5912993035SSascha Leib
6012993035SSascha Leib			// shortcut:
6112993035SSascha Leib			const sha256 = $BMCaptcha.digest.hash;
6212993035SSascha Leib
6312993035SSascha Leib			// helper function
6412993035SSascha Leib			const rightRotate = function(v, a) {
6512993035SSascha Leib				return (v>>>a) | (v<<(32 - a));
6612993035SSascha Leib			};
6712993035SSascha Leib
6812993035SSascha Leib			var mathPow = Math.pow;
6912993035SSascha Leib			var maxWord = mathPow(2, 32);
7012993035SSascha Leib			var lengthProperty = 'length'
7112993035SSascha Leib			var i, j;
7212993035SSascha Leib			var result = ''
7312993035SSascha Leib
7412993035SSascha Leib			var words = [];
7512993035SSascha Leib			var asciiBitLength = ascii[lengthProperty]*8;
7612993035SSascha Leib
7712993035SSascha Leib			//* caching results is optional - remove/add slash from front of this line to toggle
7812993035SSascha Leib			// Initial hash value: first 32 bits of the fractional parts of the square roots of the first 8 primes
7912993035SSascha Leib			// (we actually calculate the first 64, but extra values are just ignored)
8012993035SSascha Leib			var hash = sha256.h = sha256.h || [];
8112993035SSascha Leib			// Round constants: first 32 bits of the fractional parts of the cube roots of the first 64 primes
8212993035SSascha Leib			var k = sha256.k = sha256.k || [];
8312993035SSascha Leib			var primeCounter = k[lengthProperty];
8412993035SSascha Leib			/*/
8512993035SSascha Leib			var hash = [], k = [];
8612993035SSascha Leib			var primeCounter = 0;
8712993035SSascha Leib			//*/
8812993035SSascha Leib
8912993035SSascha Leib			var isComposite = {};
9012993035SSascha Leib			for (var candidate = 2; primeCounter < 64; candidate++) {
9112993035SSascha Leib				if (!isComposite[candidate]) {
9212993035SSascha Leib					for (i = 0; i < 313; i += candidate) {
9312993035SSascha Leib						isComposite[i] = candidate;
9412993035SSascha Leib					}
9512993035SSascha Leib					hash[primeCounter] = (mathPow(candidate, .5)*maxWord)|0;
9612993035SSascha Leib					k[primeCounter++] = (mathPow(candidate, 1/3)*maxWord)|0;
9712993035SSascha Leib				}
9812993035SSascha Leib			}
9912993035SSascha Leib
10012993035SSascha Leib			ascii += '\x80' // Append Ƈ' bit (plus zero padding)
10112993035SSascha Leib			while (ascii[lengthProperty]%64 - 56) ascii += '\x00' // More zero padding
10212993035SSascha Leib			for (i = 0; i < ascii[lengthProperty]; i++) {
10312993035SSascha Leib				j = ascii.charCodeAt(i);
10412993035SSascha Leib				if (j>>8) return; // ASCII check: only accept characters in range 0-255
10512993035SSascha Leib				words[i>>2] |= j << ((3 - i)%4)*8;
10612993035SSascha Leib			}
10712993035SSascha Leib			words[words[lengthProperty]] = ((asciiBitLength/maxWord)|0);
10812993035SSascha Leib			words[words[lengthProperty]] = (asciiBitLength)
10912993035SSascha Leib
11012993035SSascha Leib			// process each chunk
11112993035SSascha Leib			for (j = 0; j < words[lengthProperty];) {
11212993035SSascha Leib				var w = words.slice(j, j += 16); // The message is expanded into 64 words as part of the iteration
11312993035SSascha Leib				var oldHash = hash;
11412993035SSascha Leib				// This is now the undefinedworking hash", often labelled as variables a...g
11512993035SSascha Leib				// (we have to truncate as well, otherwise extra entries at the end accumulate
11612993035SSascha Leib				hash = hash.slice(0, 8);
11712993035SSascha Leib
11812993035SSascha Leib				for (i = 0; i < 64; i++) {
11912993035SSascha Leib					var i2 = i + j;
12012993035SSascha Leib					// Expand the message into 64 words
12112993035SSascha Leib					// Used below if
12212993035SSascha Leib					var w15 = w[i - 15], w2 = w[i - 2];
12312993035SSascha Leib
12412993035SSascha Leib					// Iterate
12512993035SSascha Leib					var a = hash[0], e = hash[4];
12612993035SSascha Leib					var temp1 = hash[7]
12712993035SSascha Leib						+ (rightRotate(e, 6) ^ rightRotate(e, 11) ^ rightRotate(e, 25)) // S1
12812993035SSascha Leib						+ ((e&hash[5])^((~e)&hash[6])) // ch
12912993035SSascha Leib						+ k[i]
13012993035SSascha Leib						// Expand the message schedule if needed
13112993035SSascha Leib						+ (w[i] = (i < 16) ? w[i] : (
13212993035SSascha Leib								w[i - 16]
13312993035SSascha Leib								+ (rightRotate(w15, 7) ^ rightRotate(w15, 18) ^ (w15>>>3)) // s0
13412993035SSascha Leib								+ w[i - 7]
13512993035SSascha Leib								+ (rightRotate(w2, 17) ^ rightRotate(w2, 19) ^ (w2>>>10)) // s1
13612993035SSascha Leib							)|0
13712993035SSascha Leib						);
13812993035SSascha Leib					// This is only used once, so *could* be moved below, but it only saves 4 bytes and makes things unreadble
13912993035SSascha Leib					var temp2 = (rightRotate(a, 2) ^ rightRotate(a, 13) ^ rightRotate(a, 22)) // S0
14012993035SSascha Leib						+ ((a&hash[1])^(a&hash[2])^(hash[1]&hash[2])); // maj
14112993035SSascha Leib
14212993035SSascha 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()
14312993035SSascha Leib					hash[4] = (hash[4] + temp1)|0;
14412993035SSascha Leib				}
14512993035SSascha Leib
14612993035SSascha Leib				for (i = 0; i < 8; i++) {
14712993035SSascha Leib					hash[i] = (hash[i] + oldHash[i])|0;
14812993035SSascha Leib				}
14912993035SSascha Leib			}
15012993035SSascha Leib
15112993035SSascha Leib			for (i = 0; i < 8; i++) {
15212993035SSascha Leib				for (j = 3; j + 1; j--) {
15312993035SSascha Leib					var b = (hash[i]>>(j*8))&255;
15412993035SSascha Leib					result += ((b < 16) ? 0 : '') + b.toString(16);
15512993035SSascha Leib				}
15612993035SSascha Leib			}
15712993035SSascha Leib			return result;
15812993035SSascha Leib		}
15912993035SSascha Leib	},
16012993035SSascha Leib
16112993035SSascha Leib	_cbCallback: function(e) {
16212993035SSascha Leib		if (e.target.checked) {
16312993035SSascha Leib			//document.getElementById('botmon_captcha_box').close();
16412993035SSascha Leib
165d49ab213SSascha Leib			try {
166d49ab213SSascha Leib				var $status = 'loading';
167d49ab213SSascha Leib
168d49ab213SSascha Leib				// generate the hash:
169cdc02cd4SSascha Leib				const dat = [ // the data to encode
170cdc02cd4SSascha Leib					document._botmon.seed || '',
171cdc02cd4SSascha Leib					location.hostname,
172cdc02cd4SSascha Leib					document._botmon.ip || '0.0.0.0',
173d49ab213SSascha Leib					(new Date()).toISOString().substring(0, 10)
174cdc02cd4SSascha Leib				];
175cdc02cd4SSascha Leib				const hash = $BMCaptcha.digest.hash(dat.join('|'));
17612993035SSascha Leib
177cdc02cd4SSascha Leib				// set the cookie:
178cdc02cd4SSascha Leib				document.cookie = "DWConfirm=" + hash + ';path=/;';
17912993035SSascha Leib
180d49ab213SSascha Leib			} catch (err) {
181d49ab213SSascha Leib				console.error(err);
182d49ab213SSascha Leib				$status = 'error';
183d49ab213SSascha Leib			}
184d49ab213SSascha Leib
185cdc02cd4SSascha Leib			// change the interface:
186cdc02cd4SSascha Leib			const dlg = document.getElementById('botmon_captcha_box');
187cdc02cd4SSascha Leib			if (dlg) {
188cdc02cd4SSascha Leib				dlg.classList.remove('ready');
189d49ab213SSascha Leib				dlg.classList.add( $status );
190cdc02cd4SSascha Leib			}
191cdc02cd4SSascha Leib
192cdc02cd4SSascha Leib			// reload the page:
193d49ab213SSascha Leib			if ($status !== 'error')window.location.reload(true);
19412993035SSascha Leib		}
195cdc02cd4SSascha Leib	},
196cdc02cd4SSascha Leib
197cdc02cd4SSascha Leib	_delayedCallback: function() {
198cdc02cd4SSascha Leib		const dlg = document.getElementById('botmon_captcha_box');
199cdc02cd4SSascha Leib		if (dlg) {
200cdc02cd4SSascha Leib			dlg.classList.remove('checking');
201cdc02cd4SSascha Leib			dlg.classList.add('ready');
202cdc02cd4SSascha Leib
203cdc02cd4SSascha Leib			const input = dlg.getElementsByTagName('input')[0];
204cdc02cd4SSascha Leib			if (input) {
205cdc02cd4SSascha Leib				input.removeAttribute('disabled');
206cdc02cd4SSascha Leib				input.focus();
20712993035SSascha Leib			}
208cdc02cd4SSascha Leib		}
209cdc02cd4SSascha Leib	},
21012993035SSascha Leib
21112993035SSascha Leib}
21212993035SSascha Leib// initialise the captcha module:
21312993035SSascha Leib$BMCaptcha.init();