FreeBasic
Главная
Вход
Регистрация
Пятница, 29.03.2024, 18:13Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » AESDecoder баг? (AESDecoder баг?)
AESDecoder баг?
ShadExДата: Воскресенье, 30.09.2012, 22:13 | Сообщение # 16
Лейтенант
Группа: Проверенные
Сообщений: 51
Репутация: 1
Статус: Offline
Ну, в принципе при записи через Write_Data в файл нули не отсекает -
Code

#Include "window9.bi"

Dim As String str_0 = "aaa" & Chr(0) &Chr(0) &Chr(0) & "bbb" & Chr(0)
var byte_0 = @str_0
#Print TypeOf(byte_0)

? "Test input ZERO: " & Chr(0)   
? str_0   
? Len(str_0)   
? *byte_0   
? Len(*byte_0)

*byte_0 += "ccc" & Chr(0) &Chr(0) &Chr(0)

Var handle1=Create_File("test1.txt")
If handle1 Then
    Write_String(handle1,*byte_0)
EndIf
Close_file(handle1)
Var handle2=Create_File("test2.txt")
If handle1 Then
    Write_Data(handle2,StrPtr(*byte_0),len(*byte_0))
EndIf
Close_file(handle2)

Sleep : End


так что со String вполне можно работать, как с байтовым массивом, но вот как получить тогда нужный байт по срезу(например, для прохода в цикле)?

Code

Dim As String str_0 = "aaa" & Chr(0) &Chr(0) &Chr(0) & "bbb" & Chr(0)
var pstr_0 = @str_0

? str_0[1]
? pstr_0[1] ' Peek(String,byte_0+1) ???

Sleep : End
 
haavДата: Понедельник, 01.10.2012, 08:41 | Сообщение # 17
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Я бы сделал так:

Code
Dim As String str_0 = "aaa" & Chr(0) &Chr(0) &Chr(0) & "bbb" & Chr(0)
var pstr_0 = @str_0

? str_0[1]
? (*pstr_0)[1]

Sleep : End


Или вопрос в другом?


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
ShadExДата: Среда, 03.10.2012, 23:08 | Сообщение # 18
Лейтенант
Группа: Проверенные
Сообщений: 51
Репутация: 1
Статус: Offline
Нет, вопрос именно в этом - просто тяжело после Си-шних указателей сразу переориентироваться на "фрибейсиковские" smile
 
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » AESDecoder баг? (AESDecoder баг?)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: