#post-id: 4275-15-44 #original-date: 9.04.2012 Mon #original-time: 3:44 PM #original-day: &#160;4275 #original-host: WinXP Prof SP3 (Build 2600) Это пис...

понедельник, 09 апреля 2012

16:12

Тотальная неудачница и убийца жёстких дисков.

#post-id: 4275-15-44
#original-date: 9.04.2012 Mon
#original-time: 3:44 PM
#original-day: 4275
#original-host: WinXP Prof SP3 (Build 2600)

Это писал очень изобретательный человек...

Public Function EncryptData(ByVal Data As String, _
                            ByVal Password As String) As String
    Dim sEncrypted As String
    Dim lEncryptionCount As Long
    Dim sTempPassword As String
    
    'It is possible that the normal encryption will give you a string
    'containing cr or lf characters which make it difficult to write to files
    'Do a loop changing the password and keep encrypting until the result is ok
    'To be able to decrypt we need to also store the number of loops in the result
    
    'Try first encryption
    lEncryptionCount = 0
    sTempPassword = Password & lEncryptionCount
    sEncrypted = EncryptDecrypt(Data, sTempPassword, True)
    
    'Loop if this contained a bad character
    Do While (InStr(1, sEncrypted, vbCr) > 0) _
          Or (InStr(1, sEncrypted, vbLf) > 0) _
          Or (InStr(1, sEncrypted, Chr$(0)) > 0) _
          Or (InStr(1, sEncrypted, vbTab) > 0)
          
        'Try the next password
        lEncryptionCount = lEncryptionCount + 1
        sTempPassword = Password & lEncryptionCount
        sEncrypted = EncryptDecrypt(Data, sTempPassword, True)
        
        'Don't go on for ever, 1 billion attempts should be plenty
        If lEncryptionCount = 99999999 Then
            Err.Raise vbObjectError + 999, "EncryptData", _
                      "This data cannot be successfully encrypted"
            EncryptData = ""
            Exit Function
        End If
    Loop
    
    'Build encrypted string, starting with number of encryption iterations
    EncryptData = EncryptNumber(lEncryptionCount) & sEncrypted
End Function

URL

Поделиться

"Не мертво то, что в вечности живет, Со смертью вре... Отличительная особенность всех последних снов заключается... Я хочу жить... ради нее, чтобы видеть каждый день ее лицо...

Здравствуй, девочка... и хватит биться головой об стол.. ... Ну воть и настало лето.... новое, неповторимое, единсвенн... Жизнь иногда предлагает совершенно забавный своей однозна...

Комментарии

11.06.2019 в 22:37

Xersareeth

подозрительная личность

Да уж, затейник…

URL


Запомнить

Лингрин :: Резиденция Линды Кайе