(de)randomize argument

gen-hack2.red

Red [
    Date: 16-Aug-2019
    See: {[August 15, 2019 9:56 PM](https://gitter.im/red/red?at=5d55aacd4e17537f5239de0c) forward}
    Description: {Combined from @grggirwin's and @dockimbel's with some spice}
]
gen-hack2: function [
	{Generates randomly suffled copy of the argument and the seed to get it stright}
	secret [any-string! any-block! binary!]
][
	random/seed stats
	random/seed s: random len: length? masked: copy secret
	random table: collect [repeat i len [keep i]]
	repeat i len [poke masked table/:i pick secret i]
	probe compose/only [random/seed (s) random (
		case [
			any-string? masked [as string! masked] 
			any-block? masked [to block! masked]
			true [masked]
		]
	)] 
]