#post-id: 3520-18-43
#original-date: 16.03.2010 Tue
#original-time: 6:43 PM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Мне больше незачем жить T_T Я столько времени хотела поиграть в Морской бой на игровом автомате, а тут и сайт с симулятором. С третьей игры уже лупила один и тот же кораблик, что заработала призовую игру, и там ни одного промаха. И это всего за три попытки... Мечта сбылась...

http://morskoy-boy.15kop.ru

Хотя нет. Хочу поиграть в живую. Ну и на самолётиках полетать ^^

---

#post-id: 3520-18-11
#original-date: 16.03.2010 Tue
#original-time: 6:11 PM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Что за жизнь? Читаю про АПС в Википедии. В русском разделе написано всего ничего, зато в английской написали и про историю, и даже про то, что "The APS appears carried by this model of a character in the Black Lagoon manga comic series". Ну и ссылка на фигурку:

http://tomopop.com/ul/10328-/c097-550x.jpg

---

#post-id: 3520-14-39
#original-date: 16.03.2010 Tue
#original-time: 2:39 PM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

NT жестока... Нашла константу ERROR_SEM_OWNER_DIED. Сочувствую...

#music: Scooter\The Stadium Techno Expirience\Maria (I Like It Loud)

---

#post-id: 3520-14-22
#original-date: 16.03.2010 Tue
#original-time: 2:22 PM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Пока все спали, хороший человек написал восстановитель паролей из Оперы.

http://nirsoft.net/utils/operapassview.zip

#music: Scooter\Sheffield\Where Do We Go

---

#post-id: 3520-13-45
#original-date: 16.03.2010 Tue
#original-time: 1:45 PM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Я опять никуда не лечу и занимаюсь этим:

Option Explicit

Type CRYPTPROTECT_PROMPTSTRUCT
  cbSize As Long
  dwPromptFlags As Long
  hwndApp As API_HANDLE
  szPrompt As LPWSTR_STRUCT
End Type

Type DATA_BLOB
  cbData As Long
  pbData As POINTER
End Type

Declare Function CryptProtectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

'====================================================================
Public Sub Main()
  'asRegisterAppPath
  'InitCommonControls
  'If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim InBuff() As Byte
  Dim InData As DATA_BLOB
  Dim OutBuff() As Byte
  Dim OutData As DATA_BLOB
  Dim UnpBuff() As Byte
  Dim UnpData As DATA_BLOB
  Dim DataDescription() As Byte
  Dim RC As C_BOOL
  
  InBuff = "Тайп сометхинг хере плиз!"
  InData.cbData = UBound(InBuff) - LBound(InBuff) + 1
  InData.pbData = VarPtr(InBuff(0))
  
  DataDescription = "Byaka!" & NUL
  
  RC = CryptProtectDataByNum(InData, DataDescription(0), 0, 0, 0, 0, OutData)
  If RC = 0 Then
    MsgBox "CryptProtectDataByNum() failed.", vbCritical
    Exit Sub
  End If
  
  ReDim OutBuff(0 To OutData.cbData - 1)
  CopyMemory OutBuff(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  MsgBox asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(OutBuff) & CRLFCRLF, vbInformation
  
  InData.cbData = UBound(OutBuff) - LBound(OutBuff) + 1
  InData.pbData = VarPtr(OutBuff(0))
  
  RC = CryptUnprotectDataByNum(InData, DataDescription(0), 0, 0, 0, 0, UnpData)
  If RC = 0 Then
    MsgBox "CryptUnprotectDataByNum() failed.", vbCritical
    Exit Sub
  End If
  
  ReDim UnpBuff(0 To UnpData.cbData - 1)
  CopyMemory UnpBuff(0), ByVal UnpData.pbData, UnpData.cbData
  LocalFree UnpData.pbData
  
  MsgBox """" & CStr(InBuff) & """" & CRLFCRLF & _
         asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(UnpBuff) & CRLFCRLF & _
         """" & CStr(UnpBuff) & """" & CRLFCRLF & _
         "Buffers equal: " & asIsBuffersEqual(InBuff, UnpBuff), vbInformation
End Sub

Кто бы мне ещё сказал, есть ли тоже самое в версиях ниже Win2000?

#upd: Добавила UI ^^ Но он крив как никогда. Кроме того, если данные шифровались с UI, то и расшифровываться должны также. Иначе диалог нам покажут, а вот расшифровать - нет.

Да, значения констант я пока не знаю... И, кстати, CryptUnprotectData() в MSDN я ещё не видела. Просто переименовала исходную функцию...

Option Explicit

Type CRYPTPROTECT_PROMPTSTRUCT
  cbSize As Long
  dwPromptFlags As Long
  hwndApp As API_HANDLE
  szPrompt As LPWSTR_STRUCT
End Type

Type DATA_BLOB
  cbData As Long
  pbData As POINTER
End Type

Declare Function CryptProtectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum2 Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum2 Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

'====================================================================
Public Sub Main()
  'asRegisterAppPath
  'InitCommonControls
  'If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim InBuff() As Byte
  Dim InData As DATA_BLOB
  Dim OutBuff() As Byte
  Dim OutData As DATA_BLOB
  Dim UnpBuff() As Byte
  Dim UnpData As DATA_BLOB
  Dim DataDescription() As Byte
  Dim RC As C_BOOL
  
  InBuff = "Ariel mermaid forever and ever!!!"
  InData.cbData = UBound(InBuff) - LBound(InBuff) + 1
  InData.pbData = VarPtr(InBuff(0))
  
  DataDescription = "No?iea n oaenoii iaecaanoiiai niaa??aiey" & NUL
  
  Dim CPS As CRYPTPROTECT_PROMPTSTRUCT
  Dim Prompt() As Byte
  CPS.cbSize = Len(CPS)
  CPS.dwPromptFlags = 1 Or 2
  CPS.hwndApp = GetActiveWindow()
  Prompt = App.Title & NUL
  CPS.szPrompt = VarPtr(Prompt(0))
  
  RC = CryptProtectDataByNum2(InData, DataDescription(0), 0, 0, CPS, 0, OutData)
  If RC = 0 Then
    ajpMain.ErrorDisplayAPI Err.LastDllError, , , "CryptProtectDataByNum() failed."
    Exit Sub
  End If
  
  ReDim OutBuff(0 To OutData.cbData - 1)
  CopyMemory OutBuff(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  MsgBox asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(OutBuff) & CRLFCRLF, vbInformation
  
  InData.cbData = UBound(OutBuff) - LBound(OutBuff) + 1
  InData.pbData = VarPtr(OutBuff(0))
  
  RC = CryptUnprotectDataByNum2(InData, DataDescription(0), 0, 0, CPS, 0, UnpData)
  If RC = 0 Then
    ajpMain.ErrorDisplayAPI Err.LastDllError, , , "CryptUnprotectDataByNum() failed."
    Exit Sub
  End If
  
  ReDim UnpBuff(0 To UnpData.cbData - 1)
  CopyMemory UnpBuff(0), ByVal UnpData.pbData, UnpData.cbData
  LocalFree UnpData.pbData
  
  MsgBox """" & CStr(InBuff) & """" & CRLFCRLF & _
         asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(UnpBuff) & CRLFCRLF & _
         """" & CStr(UnpBuff) & """" & CRLFCRLF & _
         "Buffers equal: " & asIsBuffersEqual(InBuff, UnpBuff), vbInformation
End Sub

Так. Тест показал, что шестнадцать тысяч нулей шифруются с заметным тормозом, а вот расшифровываются без оного OO

#upd: А вот шифровать 160 тыс. нул. оказалось фатальной ошибкой... А вот расшифровал он их вмиг! =_=

#upd: Идём дальше ^^ Теперь у нас две функции всем красиво занимаются ^^

Option Explicit

Type CRYPTPROTECT_PROMPTSTRUCT
  cbSize As Long
  dwPromptFlags As Long
  hwndApp As API_HANDLE
  szPrompt As LPWSTR_STRUCT
End Type

Type DATA_BLOB
  cbData As Long
  pbData As POINTER
End Type

Declare Function CryptProtectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum2 Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum2 Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim lpErrNumber As Long
  Dim InBuff() As Byte
  Dim OutBuff() As Byte
  Dim UnpBuff() As Byte
  
  InBuff = "Почему всё так печально и грустно? А?"
  
  If Not ProtectDataB(InBuff, OutBuff, "Строка с текстом неизвестного содержания", _
                      True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't protect data."
    Exit Sub
  End If
  
  MsgBox asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(OutBuff) & CRLFCRLF, vbInformation
  
  If Not UnProtectDataB(OutBuff, UnpBuff, _
                        True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't unprotect data."
    Exit Sub
  End If
  
  MsgBox """" & CStr(InBuff) & """" & CRLFCRLF & _
         asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(UnpBuff) & CRLFCRLF & _
         """" & CStr(UnpBuff) & """" & CRLFCRLF & _
         "Buffers equal: " & asIsBuffersEqual(InBuff, UnpBuff), vbInformation
End Sub

'====================================================================
Public Function ProtectDataB(ByRef SourceData() As Byte, _
                             ByRef DestinationData() As Byte, _
                             Optional ByVal DataDescription As BStr, _
                             Optional ByVal ShowPrompt As Boolean, _
                             Optional ByVal PromptText As BStr, _
                             Optional ByVal hWndParent As BStr, _
                             Optional ByRef lpErrorNumber As Long) As Boolean
  Dim InData As DATA_BLOB
  Dim OutData As DATA_BLOB
  Dim RC As Long
  Dim CPS As CRYPTPROTECT_PROMPTSTRUCT
  Dim Prompt() As Byte
  Dim bDataDescription() As Byte
  
  ' Сначала проверим версию Windows...
  If Not asIsHostWin2000_OrHigher() Then
    lpErrorNumber = ERROR_OLD_WIN_VERSION
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  On Error Resume Next
  
  ' Теперь проверим, правильные ли данные нам дали...
  RC = UBound(SourceData) - LBound(SourceData) + 1
  If Err Or RC <= 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  ' Теперь формируем BLOB.
  InData.cbData = UBound(SourceData) - LBound(SourceData) + 1
  InData.pbData = VarPtr(SourceData(0))
  
  bDataDescription = DataDescription & NUL
  
  ' UI...
  If ShowPrompt Then
    CPS.cbSize = Len(CPS)
    CPS.dwPromptFlags = 1 Or 2
    CPS.hwndApp = hWndParent
    Prompt = PromptText & NUL
    CPS.szPrompt = VarPtr(Prompt(0))
    
    RC = CryptProtectDataByNum2(InData, bDataDescription(0), 0, 0, CPS, 0, OutData)
  Else
    RC = CryptProtectDataByNum(InData, bDataDescription(0), 0, 0, 0, 0, OutData)
  End If
  
  If RC = 0 Then
    lpErrorNumber = Err.Number
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  If OutData.cbData = 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    ProtectDataB = True
    Exit Function
  End If
  
  ReDim DestinationData(0 To OutData.cbData - 1)
  CopyMemory DestinationData(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  ProtectDataB = True
End Function

'====================================================================
Public Function UnProtectDataB(ByRef SourceData() As Byte, _
                               ByRef DestinationData() As Byte, _
                               Optional ByVal ShowPrompt As Boolean, _
                               Optional ByVal PromptText As BStr, _
                               Optional ByVal hWndParent As BStr, _
                               Optional ByRef lpErrorNumber As Long) As Boolean
  Dim InData As DATA_BLOB
  Dim OutData As DATA_BLOB
  Dim RC As Long
  Dim CPS As CRYPTPROTECT_PROMPTSTRUCT
  Dim Prompt() As Byte
  
  ' Сначала проверим версию Windows...
  If Not asIsHostWin2000_OrHigher() Then
    lpErrorNumber = ERROR_OLD_WIN_VERSION
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  On Error Resume Next
  
  ' Теперь проверим, правильные ли данные нам дали...
  RC = UBound(SourceData) - LBound(SourceData) + 1
  If Err Or RC <= 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  ' Теперь формируем BLOB.
  InData.cbData = UBound(SourceData) - LBound(SourceData) + 1
  InData.pbData = VarPtr(SourceData(0))
  
  ' UI...
  If ShowPrompt Then
    CPS.cbSize = Len(CPS)
    CPS.dwPromptFlags = 1 Or 2
    CPS.hwndApp = hWndParent
    Prompt = PromptText & NUL
    CPS.szPrompt = VarPtr(Prompt(0))
    
    RC = CryptUnprotectDataByNum2(InData, ByVal 0&, 0, 0, CPS, 0, OutData)
  Else
    RC = CryptUnprotectDataByNum(InData, ByVal 0&, 0, 0, 0, 0, OutData)
  End If
  
  If RC = 0 Then
    lpErrorNumber = Err.Number
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  If OutData.cbData = 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    UnProtectDataB = True
    Exit Function
  End If
  
  ReDim DestinationData(0 To OutData.cbData - 1)
  CopyMemory DestinationData(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  UnProtectDataB = True
End Function

Зачем нужен UI? Да для того чтобы в зашифрованных данных можно было установить пароль ^^ Потом его спросят ^^

/* Надо будет пару функций написать для имперсонации... */

#upd: Версию со строками добавила ^^

Option Explicit

Type CRYPTPROTECT_PROMPTSTRUCT
  cbSize As Long
  dwPromptFlags As Long
  hwndApp As API_HANDLE
  szPrompt As LPWSTR_STRUCT
End Type

Type DATA_BLOB
  cbData As Long
  pbData As POINTER
End Type

Declare Function CryptProtectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptProtectDataByNum2 Lib "Crypt32.DLL" Alias "CryptProtectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectData Lib "Crypt32.DLL" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByRef pOptionalEntropy As DATA_BLOB, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByVal pPromptStruct As Long, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

Declare Function CryptUnprotectDataByNum2 Lib "Crypt32.DLL" Alias "CryptUnprotectData" ( _
            ByRef pDataIn As DATA_BLOB, _
            ByRef szDataDescr As Any, _
            ByVal pOptionalEntropy As Long, _
            ByVal pvReserved As Long, _
            ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, _
            ByVal dwFlags As Long, _
            ByRef pDataOut As DATA_BLOB) As C_BOOL

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  'BinaryTest
  StringTest
End Sub

'====================================================================
Private Sub BinaryTest()
  Dim lpErrNumber As Long
  Dim InBuff() As Byte
  Dim OutBuff() As Byte
  Dim UnpBuff() As Byte
  
  InBuff = "Почему всё так печально и грустно? А?"
  
  If Not ProtectDataB(InBuff, OutBuff, "Строка с текстом неизвестного содержания", _
                      True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't protect data."
    Exit Sub
  End If
  
  MsgBox asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(OutBuff) & CRLFCRLF, vbInformation
  
  If Not UnProtectDataB(OutBuff, UnpBuff, _
                        True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't unprotect data."
    Exit Sub
  End If
  
  MsgBox """" & CStr(InBuff) & """" & CRLFCRLF & _
         asExpandByteBuffer(InBuff) & CRLFCRLF & _
         asExpandByteBuffer(UnpBuff) & CRLFCRLF & _
         """" & CStr(UnpBuff) & """" & CRLFCRLF & _
         "Buffers equal: " & asIsBuffersEqual(InBuff, UnpBuff), vbInformation
End Sub

'====================================================================
Private Sub StringTest()
  Dim lpErrNumber As Long
  Dim InBuff As BStr
  Dim OutBuff As BStr
  Dim UnpBuff As BStr
  
  InBuff = "Почему всё так печально и грустно? А?"
  
  If Not ProtectData(InBuff, OutBuff, "Строка с текстом неизвестного содержания", _
                     True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't protect data."
    Exit Sub
  End If
  
  MsgBox InBuff & CRLFCRLF & _
         asExpandByteBuffer(asStrConvB(OutBuff)) & CRLFCRLF, vbInformation
  
  If Not UnProtectData(OutBuff, UnpBuff, _
                       True, App.Title, GetActiveWindow(), lpErrNumber) Then
    ajpMain.ErrorDisplayAPI lpErrNumber, , , "Can't unprotect data."
    Exit Sub
  End If
  
  MsgBox """" & InBuff & """" & CRLFCRLF & _
         """" & UnpBuff & """" & CRLFCRLF & _
         "Buffers equal: " & CBool(StrComp(InBuff, UnpBuff, vbBinaryCompare) = 0), vbInformation
End Sub

'====================================================================
Public Function ProtectDataB(ByRef SourceData() As Byte, _
                             ByRef DestinationData() As Byte, _
                             Optional ByVal DataDescription As BStr, _
                             Optional ByVal ShowPrompt As Boolean, _
                             Optional ByVal PromptText As BStr, _
                             Optional ByVal hWndParent As BStr, _
                             Optional ByRef lpErrorNumber As Long) As Boolean
  Dim InData As DATA_BLOB
  Dim OutData As DATA_BLOB
  Dim RC As Long
  Dim CPS As CRYPTPROTECT_PROMPTSTRUCT
  Dim Prompt() As Byte
  Dim bDataDescription() As Byte
  
  ' Сначала проверим версию Windows...
  If Not asIsHostWin2000_OrHigher() Then
    lpErrorNumber = ERROR_OLD_WIN_VERSION
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  On Error Resume Next
  
  ' Теперь проверим, правильные ли данные нам дали...
  RC = UBound(SourceData) - LBound(SourceData) + 1
  If Err Or RC <= 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  ' Теперь формируем BLOB.
  InData.cbData = UBound(SourceData) - LBound(SourceData) + 1
  InData.pbData = VarPtr(SourceData(0))
  
  bDataDescription = DataDescription & NUL
  
  ' UI...
  If ShowPrompt Then
    CPS.cbSize = Len(CPS)
    CPS.dwPromptFlags = 1 Or 2
    CPS.hwndApp = hWndParent
    Prompt = PromptText & NUL
    CPS.szPrompt = VarPtr(Prompt(0))
    
    RC = CryptProtectDataByNum2(InData, bDataDescription(0), 0, 0, CPS, 0, OutData)
  Else
    RC = CryptProtectDataByNum(InData, bDataDescription(0), 0, 0, 0, 0, OutData)
  End If
  
  If RC = 0 Then
    lpErrorNumber = Err.Number
    DestinationData = ""
    ProtectDataB = False
    Exit Function
  End If
  
  If OutData.cbData = 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    ProtectDataB = True
    Exit Function
  End If
  
  ReDim DestinationData(0 To OutData.cbData - 1)
  CopyMemory DestinationData(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  ProtectDataB = True
End Function

'====================================================================
Public Function UnProtectDataB(ByRef SourceData() As Byte, _
                               ByRef DestinationData() As Byte, _
                               Optional ByVal ShowPrompt As Boolean, _
                               Optional ByVal PromptText As BStr, _
                               Optional ByVal hWndParent As BStr, _
                               Optional ByRef lpErrorNumber As Long) As Boolean
  Dim InData As DATA_BLOB
  Dim OutData As DATA_BLOB
  Dim RC As Long
  Dim CPS As CRYPTPROTECT_PROMPTSTRUCT
  Dim Prompt() As Byte
  
  ' Сначала проверим версию Windows...
  If Not asIsHostWin2000_OrHigher() Then
    lpErrorNumber = ERROR_OLD_WIN_VERSION
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  On Error Resume Next
  
  ' Теперь проверим, правильные ли данные нам дали...
  RC = UBound(SourceData) - LBound(SourceData) + 1
  If Err Or RC <= 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  ' Теперь формируем BLOB.
  InData.cbData = UBound(SourceData) - LBound(SourceData) + 1
  InData.pbData = VarPtr(SourceData(0))
  
  ' UI...
  If ShowPrompt Then
    CPS.cbSize = Len(CPS)
    CPS.dwPromptFlags = 1 Or 2
    CPS.hwndApp = hWndParent
    Prompt = PromptText & NUL
    CPS.szPrompt = VarPtr(Prompt(0))
    
    RC = CryptUnprotectDataByNum2(InData, ByVal 0&, 0, 0, CPS, 0, OutData)
  Else
    RC = CryptUnprotectDataByNum(InData, ByVal 0&, 0, 0, 0, 0, OutData)
  End If
  
  If RC = 0 Then
    lpErrorNumber = Err.Number
    DestinationData = ""
    UnProtectDataB = False
    Exit Function
  End If
  
  If OutData.cbData = 0 Then
    lpErrorNumber = 0
    DestinationData = ""
    UnProtectDataB = True
    Exit Function
  End If
  
  ReDim DestinationData(0 To OutData.cbData - 1)
  CopyMemory DestinationData(0), ByVal OutData.pbData, OutData.cbData
  LocalFree OutData.pbData
  
  UnProtectDataB = True
End Function

'====================================================================
Public Function ProtectData(ByRef SourceData As BStr, _
                            ByRef DestinationData As BStr, _
                            Optional ByVal DataDescription As BStr, _
                            Optional ByVal ShowPrompt As Boolean, _
                            Optional ByVal PromptText As BStr, _
                            Optional ByVal hWndParent As BStr, _
                            Optional ByRef lpErrorNumber As Long) As Boolean
  Dim bSourceData() As Byte
  Dim bDestinationData() As Byte
  
  bSourceData = asStrConvB(SourceData)
  bDestinationData = asStrConvB(DestinationData)
  
  ProtectData = ProtectDataB(bSourceData, bDestinationData, DataDescription, _
                             ShowPrompt, PromptText, hWndParent, lpErrorNumber)
  
  SourceData = asStrConvW(bSourceData)
  DestinationData = asStrConvW(bDestinationData)
End Function

Public Function UnProtectData(ByRef SourceData As BStr, _
                              ByRef DestinationData As BStr, _
                              Optional ByVal ShowPrompt As Boolean, _
                              Optional ByVal PromptText As BStr, _
                              Optional ByVal hWndParent As BStr, _
                              Optional ByRef lpErrorNumber As Long) As Boolean
  Dim bSourceData() As Byte
  Dim bDestinationData() As Byte
  
  bSourceData = asStrConvB(SourceData)
  bDestinationData = asStrConvB(DestinationData)
  
  UnProtectData = UnProtectDataB(bSourceData, bDestinationData, ShowPrompt, _
                                 PromptText, hWndParent, lpErrorNumber)
  
  SourceData = asStrConvW(bSourceData)
  DestinationData = asStrConvW(bDestinationData)
End Function

Теперь осталось вооружиться одной умной книжкой и написать алгоритм для шифровки между машинами и юзерами ^^ Тогда можно будет начать писать свой простой менеджер паролей взамен тому, что есть.

KeePass - хорошая штука, но меня не устраивает. Мне нужна кастомизабельность полей, а не навороты в виде плагинов при ограниченном наборе...

#music: Scooter\The Ultimate Aural Orgasm\Imaginary Battle

---

#post-id: 3520-11-58
#original-date: 16.03.2010 Tue
#original-time: 11:58 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Изучаю функции вроде CryptProtectData(). Думаю, нужно ли мне оно вообще?

#music: Scooter\Whos Got the Last Laugh Now\Hello! (Good To Be Back)

---

#post-id: 3520-11-39
#original-date: 16.03.2010 Tue
#original-time: 11:39 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

1. Я всё смотрю на обойку на рабочем столе (которая Not a Zefiris) и всё пытаюсь понять, чем мне так нравятся могудановские картинки.

2. Тут меня нескольо удивили, сказав, что мне нравятся талантливые героини. Привели в пример бабулку. Хммм... Нет, талантливость мы любим, но не настолько...

3. А тут снова Могудан, который иначе рисовать почти не умеет.

4. Неужели? OO

5. Неа ^^' Просто у многих героинь могудановских картинок уж очень вердандиобразная улыбка ^^ Тем и нравятся ^^

#music: Scooter\The Ultimate Aural Orgasm\Imaginary Battle

---

#post-id: 3520-11-06
#original-date: 16.03.2010 Tue
#original-time: 11:06 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

3112280
У кого еще опера мини не сжимает БОР по ширине? Невозможно же читать.

А я сразу сказала, что гениальное нововведение в Опере в виде горизонтального скроллбара и курсора до добра не доведёт. Хавайте. А я пока на тройке посижу.

3112052
-Вась купи мне шубу
-Ага после дождичька в четверг
-Выгляни в окно и херачь в магазин


5
Человек работает в техподдержке:

SomeonE: все
SomeonE: доработался блять
SomeonE: я снял трубку и представился как "диспетчер устройств"


8
Антон:я не верил в тупых дятлов, пока мне не пришлось выковыривать Mini CD из флопика...


14
Давайте порадуемся успехам России на параолимпийских играх!! Спортивной гордостью страны оказались люди-инвалиды!
А облизанные вниманием прессы - "Ой, ну не так уж и плохо выступили! Нашим ребятам просто не позволили проявить себя!" - "олимпийцы" и чиновники от спорта пусть и дальше обещают блеснуть в Сочи!
А по-хорошему, должно быть стыдно!
Поддержите, кто согласен!!

У нас в стране обычно успехи у тех, кто обделён вниманием государства.

20
xxx:Сегодня четверг. Это хуже чем суббота. Но лучше чем вторник. Более того, это гораздо лучше чем понедельник. Но немного хуже чем пятница. Греет то, что четверг все же лучше чем среда. Немного. Я вам больше скажу. Четверг даже лучше чем воскресение. Потому что в воскресение завтра понедельник, а в четверг завтра пятница.
yyy:сочувствую чувак.

---

#post-id: 3520-10-56
#original-date: 16.03.2010 Tue
#original-time: 10:56 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Убивает меня история в IE. Каждый день ввожу в адресной строке ithappens.ru, и каждый день IE не знает что это такое. Зато хрень всякая вываливается постоянно, сайты, на которых я была один раз, и то неправда...

---

#post-id: 3520-10-16
#original-date: 16.03.2010 Tue
#original-time: 10:16 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

galyonkin:

Внук Бандеры предлагает вернуть орден “Героя Украины”, который вручили его деду, если Янукович вернет Межигирья в государственную собственность.

---

#post-id: 3520-10-02
#original-date: 16.03.2010 Tue
#original-time: 10:02 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Текст можно не читать - по коду всё понятно ^^

http://thedailywtf.com/Articles/Should-Be-Enough.aspx

---

#post-id: 3520-09-58
#original-date: 16.03.2010 Tue
#original-time: 9:58 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)



Вот что это за индеец на таких картинках постоянно фигурирует?

---

#post-id: 3520-09-45
#original-date: 16.03.2010 Tue
#original-time: 9:45 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Покажусь странной, если спрошу, но всёже интересно. Все мы знаем как Бунта индиректом тренировал Такуми. Но почему Такуми именно дрифту учился? Мог бы по идее и вкатываниями изо дня в день гонять... Там вроде бы говорилось, что он "хотел скрее попасть домой", а вот про то что ему было скучно я что-то и помню и не помню...

---

#post-id: 3520-06-40
#original-date: 16.03.2010 Tue
#original-time: 6:40 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Чёрт побери!!! Только что винт так страшно щёлкнул, словно головка запала OO Это было при активной упаковке файлов в архив. У меня аж сердце на мгновение остановилось...

---

#post-id: 3520-06-30
#original-date: 16.03.2010 Tue
#original-time: 6:30 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

А ещё у меня мечта: чтобы после каждого моего прилёта народ не реагировал так, словно я в космос летала. В идеале - так, словно с работы вернулась... А то иногда доходит до того, что мне устраивают чуть ли не экскурсии, как будто я в первый раз здесь. Я про прилёт домой говорю, если что.

---

#post-id: 3520-06-10
#original-date: 16.03.2010 Tue
#original-time: 6:10 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Для товарищей, которые истерят "Чо, мне ещё и пароль придумывать?!!!1111"

http://www.pasw.ru/
http://lafox.net/utils/pwgen/

На правах рекламы ^^

http://linda-kaioh.trefoil.org.ua/?u=http://purl.oclc.org/Linda_Kaioh/Homepage/programs/win32/Setup.PasswordMaker.EXE

---

#post-id: 3520-06-06
#original-date: 16.03.2010 Tue
#original-time: 6:06 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Пароль передается на сервер уже в виде хэша (например, при отправке формы на web-странице пароль преобразуется в md5-хэш при помощи Javasсript), и на сервере полученный хэш сравнивается с хэшем, хранящимся в БД. Такой способ передачи пароля снижает риск получения пароля при помощи сниффера.

Мне вот одно интересно. А что мешает злоумышленнику отправить сам хэш?

---

#post-id: 3520-05-52
#original-date: 16.03.2010 Tue
#original-time: 5:52 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

Ещё одна история из жизни водителей и пешеходов. Часто их схватки происходят раздельно, но иногда они встречаются. Сегодня заглянула в местный главпочтамт, побеседовала с неожиданно (после многочисленных историй) сотрудниками, без проблем отправила посылочку и уже решила идти дальше, как вдруг на выходе я встречаюсь с некой женщиной "на винте", которая прямо так с ходу начинает на меня орать. Пока я прихожу в себя и начинаю пытаться понять, чего от меня хотят, тётя летит дальше, влетает в зал и начинает орать там. Пожимая плечами я выхожу на улицу, собираюсь с мыслями и вижу как та женщина выходит и садится в машину. Всё правильно, машина припаркована на тротуаре в куче прочих, а рядом припаркована ещё одна машина, загородившая тёте выезд. Из её скандала с соседними водителями я разобрала только "это моё место". Больше из этого потока агрессии разобрать не удалось.

Уважаемые водители! Если с вами случилась беда, не выбегайте и не начинайте скандалить с каждым встречным авось попадётся виновник. Некрасиво это и неэффективно. И кроме того, какого чёрта вы вообще заставили все тротуары своими железными конями? Пусть это будет наказанием некоторым из вас - посидите, подумаете...

Мэг - привет, это была её посылочка ^^ А ещё я по пути домой совсем рядом обнаружила хороший книжный со скидками на военную литературу ^^

---

#post-id: 3520-05-39
#original-date: 16.03.2010 Tue
#original-time: 5:39 AM
#original-day:  3520
#original-host: WinXP Home SP3 (Build 2600)

#2523: Внезапно-генеральная уборка

Сижу я в выходной дома, пью чай. Внезапно у меня в голове что-то замкнуло, и я подумал, а не установить ли себе новую операционную систему? Поставив на закачку образ, решил озаботиться драйверами, в частности, под материнку. На сайте производителя выяснил, что, помимо типа, надо уточнить еще и номер ревизии мамы: 1.0 или 1.1. Мануал подсказал, что этот номер написан белой краской в одном из углов. Снимаю крышку корпуса, вижу надпись «Rev. 1.1» и понимаю, что не успокоюсь, пока не вычищу нутро от пыли.

Операция продолжалась долго и нудно, особенно порадовал кулер, который, зараза, никак не хотел после чистки становиться на место. Затем начались глюки, но не у меня, а у машины. Как оказалось, я всё сделал правильно — просто, как здесь уже писали, компьютеру надо привыкнуть работать без пыли. Наконец я победил и посмотрел на часы. В общем, дело я сделал хорошее и нужное, вот только в тот день я планировал допить чай, выключить компьютер и заниматься совсем другими делами...

http://ithappens.ru/story/2523

Забористый чай у человека приключился ^^ Кстати, моя старая машина за 7++ лет никогда не пылесосилась и не чистилась. Большую часть времени она стояла открытой, но... Но пыль там так и осталась лишь тоненьким слоем и некоторый мусор на днище.

А когда я пылесосила новую машину. Вроде пыль там была, но после чистки внешне ничего не изменилось ^^

Короче, не насилуйте машины чистками без особой нужды.

---

#post-id: 3519-13-25
#original-date: 15.03.2010 Mon
#original-time: 1:25 PM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

Видеочат на Mail.Ru
Тысячи собеседников с веб-камерами со всего мира ждут тебя!

Идите вы нафиг со своими тысячами!