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() { 16620d9253SSascha Leib 17620d9253SSascha Leib // localisation helper function: 18620d9253SSascha Leib let _loc = function(id, alt) { 19620d9253SSascha Leib if ($BMLocales && $BMLocales[id]) return $BMLocales[id]; 20620d9253SSascha Leib return alt; 21620d9253SSascha Leib } 22620d9253SSascha 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'); 30*cef38106SSascha Leib dlg.setAttribute('role', 'alertdialog'); 31*cef38106SSascha Leib dlg.setAttribute('aria-labelledby', 'botmon_captcha_title'); 32cdc02cd4SSascha Leib dlg.classList.add('checking'); 3312993035SSascha Leib dlg.id = 'botmon_captcha_box'; 34*cef38106SSascha Leib dlg.innerHTML = '<h2 id="botmon_captcha_title">' + _loc('dlgTitle', 'Title') + '</h2><p>' + _loc('dlgSubtitle', 'Subtitle') + '</p>'; 3512993035SSascha Leib 3612993035SSascha Leib // Checkbox: 3712993035SSascha Leib const lbl = document.createElement('label'); 38*cef38106SSascha Leib lbl.setAttribute('aria-live', 'assertive'); 39620d9253SSascha Leib lbl.innerHTML = '<span class="confirm">' + _loc('dlgConfirm', "Confirm.") + '</span>' + 40620d9253SSascha Leib '<span class="busy"></span><span class="checking">' + _loc('dlgChecking', "Checking") + '</span>' + 41620d9253SSascha Leib '<span class="loading">' + _loc('dlgLoading', "Loading") + '</span>' + 42620d9253SSascha Leib '<span class="erricon">�</span><span class="error">' + _loc('dlgError', "Error") + '</span>'; 4312993035SSascha Leib const cb = document.createElement('input'); 4412993035SSascha Leib cb.setAttribute('type', 'checkbox'); 45cdc02cd4SSascha Leib cb.setAttribute('disabled', 'disabled'); 4612993035SSascha Leib cb.addEventListener('click', $BMCaptcha._cbCallback); 47cdc02cd4SSascha Leib lbl.prepend(cb); 4812993035SSascha Leib 4912993035SSascha Leib dlg.appendChild(lbl); 5012993035SSascha Leib 5112993035SSascha Leib bm_parent.appendChild(dlg); 52cdc02cd4SSascha Leib 53cdc02cd4SSascha Leib // call the delayed callback in a couple of seconds: 54cdc02cd4SSascha Leib setTimeout($BMCaptcha._delayedCallback, 1500); 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 171d49ab213SSascha Leib // generate the hash: 172cdc02cd4SSascha 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) 177cdc02cd4SSascha Leib ]; 178cdc02cd4SSascha Leib const hash = $BMCaptcha.digest.hash(dat.join('|')); 17912993035SSascha Leib 180cdc02cd4SSascha Leib // set the cookie: 181cdc02cd4SSascha Leib document.cookie = "DWConfirm=" + hash + ';path=/;'; 18212993035SSascha Leib 183d49ab213SSascha Leib } catch (err) { 184d49ab213SSascha Leib console.error(err); 185d49ab213SSascha Leib $status = 'error'; 186d49ab213SSascha Leib } 187d49ab213SSascha Leib 188cdc02cd4SSascha Leib // change the interface: 189cdc02cd4SSascha Leib const dlg = document.getElementById('botmon_captcha_box'); 190cdc02cd4SSascha Leib if (dlg) { 191cdc02cd4SSascha Leib dlg.classList.remove('ready'); 192d49ab213SSascha Leib dlg.classList.add( $status ); 193cdc02cd4SSascha Leib } 194cdc02cd4SSascha Leib 195cdc02cd4SSascha Leib // reload the page: 196d49ab213SSascha Leib if ($status !== 'error')window.location.reload(true); 19712993035SSascha Leib } 198cdc02cd4SSascha Leib }, 199cdc02cd4SSascha Leib 200cdc02cd4SSascha Leib _delayedCallback: function() { 201cdc02cd4SSascha Leib const dlg = document.getElementById('botmon_captcha_box'); 202cdc02cd4SSascha Leib if (dlg) { 203cdc02cd4SSascha Leib dlg.classList.remove('checking'); 204cdc02cd4SSascha Leib dlg.classList.add('ready'); 205cdc02cd4SSascha Leib 206cdc02cd4SSascha Leib const input = dlg.getElementsByTagName('input')[0]; 207cdc02cd4SSascha Leib if (input) { 208cdc02cd4SSascha Leib input.removeAttribute('disabled'); 209cdc02cd4SSascha Leib input.focus(); 21012993035SSascha Leib } 211cdc02cd4SSascha Leib } 212cdc02cd4SSascha Leib }, 21312993035SSascha Leib 21412993035SSascha Leib} 21512993035SSascha Leib// initialise the captcha module: 21612993035SSascha Leib$BMCaptcha.init();