15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
FILENAME2="C:\temp\test.txt"
Dim fileNum2 As Integer
fileNum2% = Freefile()
Open FILENAME2 For Binary As fileNum2% Charset = "ANSI"
Dim stroka12 As Byte
Do While Not Eof(fileNum2%)
Get #fileNum2% , , stroka12
Print Chr(stroka12)
If stroka12=10 Then
Msgbox "Found"
End If
Loop
Close fileNum2%а chr(13) не хочет почему то искатся таким способом........
FILENAME3="C:\temp\test.txt"
Dim fileNum3 As Integer
fileNum3% = Freefile()
Open FILENAME3 For Binary As fileNum3% Charset = kodirovka
Dim stroka13 As Byte
Do While Not Eof(fileNum3%)
Get #fileNum3% , , stroka13
'Print Chr(stroka13)
If stroka13=10 Then
'Msgbox "Found"
Print "нашли жосткий ентер 10"
End If
If stroka13=13 Then
'Msgbox "Found"
Print "нашли ентер 13"
End If
If stroka13=Asc("д") Then
'Msgbox "Found"
Print "bukva "д""
End If
Loop
Close fileNum3%kodirovka=Utf-8
Chr(stroka13) = 'д'крута... вы не задумывались о названии asc - ascii
В кодировке UTF-8, если мне не изменяет склероз, русские буквы кодируются двумя байтами.
ну и как вы собрались по двум энтерам отслеживать, если оно не обязательно разделитель?
Обучение наступательной кибербезопасности в игровой форме. Начать игру!
