15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Dim ws as new NotesUIworkspace
Dim uidoc as NotesuiDocument
Set uidoc = ws.CurrentDocument
Dim doc as NotesDocument
Set doc = uidoc.Document
s = doc.GetItemValue( "MyField" )(0) Dim ws as new NotesUIworkspace
s = ws.CurrentDocument.Document.GetItemValue( "MyField" )(0)скорее всего где-то "закольцовано" использование библиотек... из-за такого клиент на самом деле может падать...
Тем более на производительность не влияет...нужно добавлять "имхо"
ScriptLib = 2 Gb вот такого я ещё не видел )))
Type param
value As String
End Type
Private data List As paramIf Not checkFile( filePath) Then Exit Sub
filenum = Freefile()
Open filePath For Input Lock Write As filenum Charset=DEFCHARSET
Do Until Eof(fileNum)
Line Input #fileNum, text
If text <> "" And Instr( text, PD) > 0 Then
data(Strtoken( text, PD, 1)).value = Strtoken( text, PD, 2)
End If
Loop
Close filenum Sub close
Dim filenum As Integer
try:
On Error Goto catch
If isDataChanged Then
filenum = Freefile()
Open filePath For Output Lock Write As filenum Len=1000 Charset=DEFCHARSET
Forall dat In data
Print #filenum, Listtag(dat) & PD & dat.value
End Forall
Close filenum
End If
Erase data
Set ses = Nothing
Exit Sub
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Sub
End SubFunction setEnvir( key As String, value As String) As Boolean
try:
On Error Goto catch
If data(key).value <> value Then
data(key).value = value
isDataChanged = True
End If
Exit Function
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Function
End Function
'--------------------------------------------------------------------------------------------------------------------------------------
Function getEnvir( key As String) As String
try:
On Error Goto catch
getEnvir = data(key).value
Exit Function
catch:
Call errh (Getthreadinfo(1) & " (Class ACCOptions)", False)
Exit Function
End Function
'--------------------------------------------------------------------------------------------------------------------------------------Ошибочка вышла.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!