


Private Function SetRandomFileName() As String
  
  Dim sCommand, sFileName As String
  
  ' sCommand = "openssl rand -hex 4" ' 4 → 8 bytes
  ' Shell sCommand To sFileName  
  ' Return Trim(sFileName)
  
  ' Sie müssen in SetRandomFileName() nicht unbedingt `openssl` einsetzen, 
  ' um zufällige Bytes zu erzeugen. Die Anweisung:Hex$(Rand(0,2^32-1)) funktioniert gut.

  sFileName = Hex$(Rand(0, 2 ^ 32 - 1)) ' Random length of the file name
  Return sFileName
  
End