I've crudely modified a copy of maroon's script that is giving him the issue. I've had my modified version crash my copy of mIRC multiple times.


Code
; 1, Download file: https://2ton.com.au/getprimes/20180312/dhparam/2048/3
; 2, Place file on a http server and rename as 'file'.
; 3, Replace %url below so you can download the file from your http server.
; 4, /client_crash_start 
; 5, Minimize mIRC and do stuff in another programs. 
; 6, Wait anywhere from 10 seconds - 60 minutes for the crash?

alias client_crash_start {
  set %y 0
  if (!$hget(testing)) { hmake testing 10000 }
  client_crash
  var %x 100
  while (%x) {
    .timer_ $+ %x -om 1 250 client_crash
    dec %x
  }
}
alias client_crash {
  ; REPLACE ME!
  var %url = http://10.10.1.1/file
  bset -t &header 1 Test: Header
  bset -t &body 1 foo1=bar1&foo2=bar2
  var %id = $urlget(%url,pb,&target,urlget.callback,&header,&body)
  if (%y == 200) {
    echo -ag *** hsave
    hsave -sim testing testing.ini
    set %y 0
  }
  inc %y
}
alias urlget.callback {
  var %id = $1
  var %ID $urlget($1).target
  var %a 2tonDB-2022-07Jul-2048 $rand(11111111,99999999) 2048 589 . 55694
  tokenize 32 %a
  var  %a $remove($bvar(%ID,1-).text,$cr,$lf)
  var  %mime $regsubex(%a,/^(-+BEGIN DH PARAMETERS-+)([A-Za-z0-9+\/=]+)(-+END DH PARAMETERS-+)/,\2)
  ;echo -s  $scriptline : regsubex regml(0) $regml(0)
  ;echo -s  $scriptline : $len(%a) $left(%a,55)
  ;echo -s  $scriptline : $cb(-1).len $left($cb(-1),55)
  bset -t &v 1 %mime | noop decode %a $decode(&v,bm)
  var  %g $bvar(&v,$bvar(&v,0))
  var   %p $bvar(&v,10, $calc($3 //8) )
  var %p $regsubex(%p,/([0-9]+)\s*/g,$base(\t,10,16,2) )
  var  %table testing
  var  %item $+($3,-,$2,25,$base($4,10,10,4))
  var  %data %g %p
  var %a $hget(%table,item)
  hadd -sm %table %item %data
  .timer -om 1 250 client_crash
}