[lindachan]

#post-id: 3422-02-39
#original-date: 8.12.2009 Tue
#original-time: 2:39 AM
#original-day:  3422
#original-host: WinXP Prof SP2 (Build 2600)

Нарисовала ещё одну кинспирологическую обойку про Ариэль ^^ Ещё бы придумать имя того самого Zero.One Level Node ^^ Главное что разошлась не на шутку ^^ Всё в стильных багровых тонах ^^

И скрипты в помощь страждущим конспирологам ^^

Option Explicit

Dim TMPX
Dim TMPY
Dim Num
Dim TXT
Dim FSO
Dim Stream

Randomize

For TMPY = 0 To 70
  For TMPX = 0 To 50 * 4
    Num = CLng(Rnd)
    TXT = TXT & Num
  Next
  TXT = TXT & vbCrLf
Next

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Stream = FSO.CreateTextFile("Make Binary.TXT")
Stream.Write TXT
Stream.Close

И Hex версия ^^

Option Explicit

Dim TMPX
Dim TMPY
Dim Num
Dim TXT
Dim FSO
Dim Stream

Randomize

For TMPY = 0 To 70
  For TMPX = 0 To 50 * 2
    Num = Int((255 - 0 + 1) * Rnd + 0)
    Num = Hex(Num)
    If Len(Num) = 1 Then Num = "0" & Num
    
    TXT = TXT & Num & " "
  Next
  TXT = TXT & vbCrLf
Next

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Stream = FSO.CreateTextFile("Make Hex.TXT")
Stream.Write TXT
Stream.Close