Быстрая генерация "мусора" в файл

FileWrite(@DesktopDir&"\1.txt",__Pake(40))
MsgBox(64,"","End")
Func __Pake($SizeValue)
	Local $s_Temp
	For $i=0 To $SizeValue*1024*1024 Step 1; Размер требуется в мегабайтах
		$s_Temp&=Chr(Random(65,122))
	Next
	Return $s_Temp
EndFunc

;...
Chr(Random(65,122))
;...

Opt('TrayIconDebug',1)
_CreateGarbageTXTFile(@DesktopDir&"\1.txt",40)

;$Path - путь к файлу
;$Size - размер в мегабайтах
Func _CreateGarbageTXTFile($Path,$Size)
	$hFile=FileOpen($Path,1)
	For $i=0 To $Size*1024
		Local $buff=''
		For $ii =0 To 1024
			$buff&=Chr(Random(65,122))
		Next
		FileWrite($hFile,$buff)
	Next
	FileClose($hFile)
EndFunc

#include <WinAPI.au3>

Local $iSizeMgb = 50, $iMgb = 1024 * 1024, $iStep = $iMgb / 8, $tDouble = DllStructCreate('double[' & $iStep & ']'), _
		$pDouble = DllStructGetPtr($tDouble), $hFile, $iWrite, $iTime = TimerInit()

$hFile = _WinAPI_CreateFile(@ScriptDir & '\Txt.txt', 1)
For $i = 1 To $iSizeMgb
	For $j = 1 To $iStep
		DllStructSetData($tDouble, 1, Random(), $j)
	Next
	_WinAPI_WriteFile($hFile, $pDouble, $iMgb, $iWrite)
Next
_WinAPI_CloseHandle($hFile)
ConsoleWrite(StringFormat('%.2f sec', TimerDiff($iTime) / 1000) & @LF)

$File="Test.bin"
$Size=100
DllCall('Pake.dll', 'int', 'Pake', 'str', $File, 'int', $Size)

Local $s_Temp = '1'

;	20 = # Размер 2 МБ	#	>Exit code: 0    Time: 1.293	#	TimerDiff	45.9560995573017
;	21 = # Размер 4МБ	#	>Exit code: 0    Time: 1.989	#	TimerDiff	546.922153421304
;	22 = # Размер 8МБ	#	>Exit code: 0    Time: 2.717	#	TimerDiff	1308.09981281405
;	23 = # Размер 16МБ	#	>Exit code: 0    Time: 4.361	#	TimerDiff	2871.39501288238
;	24 = # Размер 32МБ	#	>Exit code: 0    Time: 7.342	#	TimerDiff	6573.16204893881
;	25 = # Размер 64МБ	#	>Exit code: 0    Time: 14.788	#	TimerDiff	10888.6343831405
;	26 = # Размер 128МБ	#	>Exit code: 0    Time: 48.577	#	TimerDiff	30018.4178154048
;	27 = # Error allocating memory.

For $i = 0 To 27
	$s_Temp &= $s_Temp
Next

FileWrite(@ScriptDir&'\1simbol.txt', $s_Temp)

#Include <WinAPI.au3>

$hTimer = TimerInit()
If Not _CreateFile( "sample.bin", 1 * 1024 * 1024 * 1024, 1024 * 1024 ) Then _
   Exit MsgBox( 16, "error", "err=" & @Error )
   
MsgBox( 64, '', "TimerDiff=" & TimerDiff( $hTimer ) )

Func _CreateFile( $sName, $iSize, $iBlockSize )
   Local $tStruct, $pStruct, $hFile, $Idx, $iTo, $iBytes, $iErr = 0
   ; ---
   If $iBlockSize > $iSize Then _
	  Return SetError( -1, 0, False )
   
   If Mod( $iSize, $iBlockSize ) Then _
	  Return SetError( -2, 0, False )
   ; ---
   $tStruct = DllStructCreate( "byte[" & $iBlockSize & "]" )
	  $pStruct = DllStructGetPtr( $tStruct )
	  DllStructSetData( $tStruct, 1, Binary( 0x00 ) )

   $iTo = $iSize / $iBlockSize
   $hFile = _WinAPI_CreateFile( $sName, 1 )
   For $Idx = 1 To $iTo Step 1
	  If Not _WinAPI_WriteFile( $hFile, $pStruct, $iBlockSize, $iBytes ) Or $iBytes <> $iBlockSize Then
		 $iErr = @Error
		 ExitLoop
	  EndIf
	  ConsoleWrite( $Idx & "/" & $iTo & @CRLF )
   Next
   _WinAPI_CloseHandle( $hFile )
   ; ---
   If $iErr Then _
	  Return SetError( $iErr, 0, False )
	  
   Return True
EndFunc

#Include <WinAPIEx.au3>

_Pake(@ScriptDir & '\Test.txt', 10)

Func _Pake($sFile, $iSizeMB)

	Static $tBuff, $pBuff = 0

	Local $hFile, $tData, $pData, $Bytes, $Error = 0

	If Not $pBuff Then
		$tBuff = DllStructCreate('byte[1048576]')
		$pBuff = DllStructGetPtr($tBuff)
		$tData = DllStructCreate('byte[1024]')
		$pData = DllStructGetPtr($tData)
		For $i = 1 To 1024
			DllStructSetData($tData, 1, Random(65, 122, 1), $i)
		Next
		For $i = 1 To 1024
			_WinAPI_MoveMemory($pBuff + ($i - 1) * 1024, $pData, 1024)
		Next
	EndIf
	$hFile = _WinAPI_CreateFile($sFile, 1, 4)
	If Not $hFile Then
		Return SetError(1, 0, 0)
	EndIf
	For $i = 1 To $iSizeMB
		If (Not _WinAPI_WriteFile($hFile, $pBuff, 1048576, $Bytes)) Or ($Bytes <> 1048576) Then
			$Error = 1
			ExitLoop
		EndIf
	Next
	_WinAPI_CloseHandle($hFile)
	If $Error Then
		Return SetError(2, _WinAPI_DeleteFile($sFile), 0)
	EndIf
	Return 1
EndFunc   ;==>_Pake