proc m4ZQu {password LZQjH} {
        set ::maui::util::H6VeX ""
        set ::maui::util::EL0BW [string repeat \\0 32]
        package require tcltwofish
        package require sha256
        if {[string length $LZQjH] == 0} {
            error "Unable to initialize encryption - missing essential data"
        }
                
        if {[binary scan $LZQjH Ia16a32a64a32a* times iv passwordKey encryptedKey payloadIVsHash encryptedPayloadIVs] < 6} {
            error "Unable to initialize encryption - header missing or corrupt"
        }
        
        set iHcWR [a64bL $password $passwordKey $iv $times]
                
        set BJvoG [string range [tcltwofish::decrypt $iHcWR $encryptedKey] 32 63]
                
        
        for {set i 0} {$i < $times} {incr i 64} {
            set encryptedPayloadIVs [tcltwofish::decrypt $BJvoG $encryptedPayloadIVs]
        }
        
        set ZQpQw [string range $encryptedPayloadIVs 32 end]
        
        if {[sha2::sha256 -bin $ZQpQw] != $payloadIVsHash} {
            maui::d_RUj "Invalid payload password"
        }
                
        set ::maui::util::H6VeX $ZQpQw
        
        set ::maui::util::EL0BW $BJvoG
    }

https://devco.re/blog/2019/06/21/operation-crack-hacking-IDA-Pro-installer-PRNG-from-an-unusual-way/
https://bbs.kanxue.com/thread-277712-1.htm

proc yOZ7q {password {times 16000}} {
        set ::maui::util::H6VeX ""
        set ::maui::util::EL0BW [string repeat \\0 32]
        package require tcltwofish
        package require sha256
                set BJvoG [qA4kM 32]
        set passwordKey [qA4kM 32]
        set ZQpQw [qA4kM [expr {16 * 256}]]
        set payloadIVsHash [sha2::sha256 -bin $ZQpQw]
        set encryptedPayloadIVs "[qA4kM 32]$ZQpQw"
        for {set i 0} {$i < $times} {incr i 64} {
            set encryptedPayloadIVs [tcltwofish::encrypt $BJvoG $encryptedPayloadIVs]
        }
        set iv [qA4kM 16]
        set iHcWR [a64bL $password $passwordKey $iv $times]
                set encryptedKey [tcltwofish::encrypt $iHcWR "[qA4kM 32]$BJvoG"]
        set LZQjH [binary format Ia16a32a64a32a* $times $iv $passwordKey $encryptedKey $payloadIVsHash $encryptedPayloadIVs]
        set ::maui::util::H6VeX $ZQpQw
        set ::maui::util::EL0BW $BJvoG
                return $LZQjH
    }

 proc qA4kM {length} {
        set YKL8w ""
        if {[RLPut unix]} {
            foreach xML4B {/dev/urandom /dev/random} {
                if {[catch {
                    set WyLEv [open $xML4B r]
                    fconfigure $WyLEv -translation binary
                    set YKL8w [read $WyLEv $length]
                    close $WyLEv
                }]} {
                    catch {close $WyLEv}
                }  else  {
                    break
                }
            }
        }  else  {
                }
        if {[string length $YKL8w] != $length} {
            incr length -[string length $YKL8w]
            while {$length >= 2} {
                append YKL8w [binary format S [expr {int([maui::util::rand] * 0x10000)}]]
                incr length -2
            }
            if {$length > 0} {
                append YKL8w [binary format c [expr {int([maui::util::rand] * 0x100)}]]
            }
        }
        return $YKL8w
    }
    proc rand {} {
        if {[maui::util::RLPut "windows"] && [info commands ::bitrock::secure::rand_s] != ""} {
            if {[catch {
                set r [::bitrock::secure::rand_s]
            } V77Ls]} {
                maui::util::debug "failed to call rand_s: $V77Ls"
                set r [expr {rand()}]
            }
        } else {
            set r [expr {rand()}]
        }
        return $r
    }

proc MmyBM {compressionAlgorithm command data} {
        if {[catch {
            
            if {($compressionAlgorithm == "lzma") || ($compressionAlgorithm == "lzma-ultra") || ($compressionAlgorithm == "lzham") || ($compressionAlgorithm == "lzham-ultra")} {
                set data [eval [concat $command [list $data]]]
            }  else  {
                set data [vfs::zip -mode compress -nowrap 1 $data] 
            }
            
            
            set data [qA4kM 32][UOijU $data 32]  
            
            set PG2JA [expr {int([maui::util::rand] * 0x100)}]
            set iv [string range $::maui::util::H6VeX [expr {$PG2JA * 16}] [expr {$PG2JA * 16 + 15}]]
            
            set hbA8n [format 0x%08x [expr {[zlib crc32 $data] & 0xffffffff}]]
                        
            set data [tcltwofish::encrypt $::maui::util::EL0BW $data iv]
                        
            set YKL8w [binary format Ica* $hbA8n $PG2JA $data]
        } V77Ls]} {
            set ykaki $::errorCode
            set qXoNi $::errorInfo
            maui::util::debug "encryptPayload: error encrypting: $V77Ls"
            error $V77Ls $qXoNi $ykaki
        }
        return $YKL8w
    }

proc UOijU {data DeSRF} {
        
        set data [binary format Ia* [string length $data] $data]
        
        set add [expr {($DeSRF - ([string length $data] % $DeSRF)) % $DeSRF}]
        
        append data [qA4kM $add]
        return $data
    }