[kaster]

торрент файл не текст. поэтому для него символ перевода каретки даже если и есть то только потому, что это какой-нибудь байт от другого блока данных.
другими словами, надо считывать файл в двоичном виде. записывать тоже.

Код:

$file =  FileOpen("E:\tor.torrent", 16 + 0)
$iSize = FileGetSize("E:\tor.torrent")
$dim = Int($iSize/100) + 1
dim $line[$dim]
dim $nl
While 1
    $line[$nl] = FileRead($file, 100)
    If @error = -1 Then ExitLoop
    $nl=$nl+1
Wend
FileClose($file)
 
$file = FileOpen("E:\tor.torrent", 16 + 2)
for $a=0 to $nl-1
    FileWrite($file, $line[$a])
next
FileClose($file)