Дано текстовое поле. Как сохранить текст из этого поля в бинарник? Пробовал так:

Dim Text as string

Private sub cmdSave_Click()
text=txtText.text
Open app.path & Filename for binary access write as #1
Put #1, ,Text
Close #1
End sub

Не выходит
Я хочу, что бы этот текст не был читаем.

| Сообщение посчитали полезным:

SeQuick пишет:
Как сохранить текст из этого поля в бинарник?
Я хочу, что бы этот текст не был читаем.
Что это значит?

Так чтоли?

50 4B 03 04 14 00 02 00
C4 9E 32 00 00 00 F6 03
74 74 6F 6D 2E 62 6D 70
40 AC 01 C4 5C 40 2C 07
79 61 6E 08 86 81 67 AF
F2 03 29 3F 13 2F 60 60
02 00 08 00 22 75 0B 2F
00 01 00 00 09 00 00 00

-----
MicroSoft? Is it some kind of a toilet paper?

| Сообщение посчитали полезным:

Tim пишет:
Так чтоли?

50 4B 03 04 14 00 02 00
C4 9E 32 00 00 00 F6 03
74 74 6F 6D 2E 62 6D 70
40 AC 01 C4 5C 40 2C 07
79 61 6E 08 86 81 67 AF
F2 03 29 3F 13 2F 60 60
02 00 08 00 22 75 0B 2F
00 01 00 00 09 00 00 00

Вот так


fdd5_07.06.2006_CRACKLAB.rU.tgz - Безымянный.rar

| Сообщение посчитали полезным:

дык в текстовом поле могут быть НЕПЕЧАТАЕМЫЕ символы, следовательно файло будет попорчен...

| Сообщение посчитали полезным:

d1v0x пишет:
дык в текстовом поле могут быть НЕПЕЧАТАЕМЫЕ символы, следовательно файло будет попорчен...

Без учёта непечатаемых символов

| Сообщение посчитали полезным:

хмм мож нуно переписать не так:
Open app.path & Filename for binary access write as #1
а так:
Open app.path & "\" & Filename for binary access write as #1
потому что в васике путь не содержит последний бэкслыш...
если и так не поможет, то объясни поподробней (чтоб не флудить могеш в личку)...

| Сообщение посчитали полезным:

Может речь об этом:


Private Sub Form_Load()
Open App.Path & "\bin.bin" For Binary As #1
Put #1, , TxtToByte(Trim(Text1.Text))
Close #1
End Sub

Private Function TxtToByte(TxtString As String) As Byte()
Dim arrFile() As Byte
ReDim arrFile(Len(TxtString) - 1)
For i = 0 To Len(TxtString) - 1
arrFile(i) = Asc(Mid(TxtString, i + 1, 1))
Next i
TxtToByte = arrFile
End Function


| Сообщение посчитали полезным:

BUGOR пишет:
Может речь об этом:


Private Sub Form_Load()
Open App.Path & "\bin.bin" For Binary As #1
Put #1, , TxtToByte(Trim(Text1.Text))
Close #1
End Sub

Private Function TxtToByte(TxtString As String) As Byte()
Dim arrFile() As Byte
ReDim arrFile(Len(TxtString) - 1)
For i = 0 To Len(TxtString) - 1
arrFile(i) = Asc(Mid(TxtString, i + 1, 1))
Next i
TxtToByte = arrFile
End Function

Тот же самый эффект... =(((

| Сообщение посчитали полезным:

Переведи каждый символ в хекс код и потом уже пиши побайтово в файл

| Сообщение посчитали полезным:

Private sub cmdSave_Click()
Dim sBytes() as byte
Open app.path & "\" & Filename for binary as #1
sBytes=StrConv(txtText.text, vbFromUnicode)
Put #1, ,sBytes
Close #1
End sub

Еще скажи что так тоже не работает

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

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

bbdd_08.06.2006_CRACKLAB.rU.tgz - Cryptor.rar

| Сообщение посчитали полезным:

GPcH пишет:
Private sub cmdSave_Click()
Dim sBytes() as byte
Open app.path & "\" & Filename for binary as #1
sBytes=StrConv(txtText.text, vbFromUnicode)
Put #1, ,sBytes
Close #1
End sub

Еще скажи что так тоже не работает

Всё работает как часики! Пасиб!


d1v0x пишет:
имхо, чтоб текст был такой как на картинке, нуно шифровать... причом так чтобы большинство зашифрованных символов попадало в область непечатаемых символов...
кароч в аттаче исходник некоторого шифровальщика... SeQuick мож он как-то прольёт свет на твою проблему...

Изходник рулёвый ! Вот это как раз то, что мне нужно! Спасибо!

| Сообщение посчитали полезным: