Posted by rdog on January Mon 18th 10:25 AM - Never Expires
Download file - New paste
- var %sob = $1
- var %text = $2-
- var %mes = $calc(($len(%text) * ((100 - %sob) / 100)))
- var %loop = 1
- while (%loop <= %mes) {
- var %pos = $rand(1,$len(%text))
- var %char = $mid(%text,%pos,1)
- if (%char isalnum) {
- var %type = $rand(1,3)
- ;Type 1 = repeated letters (test = tesssttt)
- if (%type == 1) var %text = $left(%text,%pos) $+ $str($mid(%text,%pos,1),2) $+ $right(%text,- $+ %pos)
- ;Type 2 = replaced/mistyped letters (test = fast)
- elseif (%type == 2) {
- if ($istok(a e i o u,%char,32)) var %rnd = $randtok(a e i o u,32)
- else var %rnd = $rand(a,z)
- var %text = $left(%text,$calc(%pos - 1)) $+ %rnd $+ $right(%text,- $+ %pos)
- }
- ;Type 3 = opposite case (A = a, b = B)
- elseif (%type == 3) var %text = $left(%text,$calc(%pos - 1)) $+ $iif($upper(%char) === %char,$lower(%char),$upper(%char)) $+ $right(%text,- $+ %pos)
- }
- inc %loop
- }
- return %text
- }
- alias -l randtok return $gettok($1,$rand(1,$numtok($1,$2)),$2)
Submit a correction or amendment below. (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.