Как избежать задержки при записи с TextBox строки с случайными значениями в страшнем байте юникода? - VB

Узнай цену своей работы

Формулировка задачи:

С целью сделать текст нечитаемым и при попытке выполнить такой вот код, получаю странную задержку при выполнении. При некоторых значениях j, оператор textbox.Text = num может выполняться от 10 до 40 сек. Это выполнялось в ворд 2003.
Кроме того в VB6 это вообще не работает как надо, потому что при попытке раскодировать текст и выполнении оператора num = textbox.Text всегда получается как если бы старший байт юникода всегда был равен 0, независимо от того что туда заносилось реально. Это касается только VB6 и я вообще не понимаю почему так.
Отсюда 2 вопроса: 1. Как избежать задержки при записи с TextBox строки с случайными значениями в страшнем байте юникода? 2. Как заставить VB6 потом прочитать записаное в него значение и почему у него такое ненормальное поведение? Спасибо.

Решение задачи: «Как избежать задержки при записи с TextBox строки с случайными значениями в страшнем байте юникода?»

textual
Листинг программы
Option Explicit
 
Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
 
Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, ByRef phHash As Long) As Long
Private Declare Function CryptHashData Lib "advapi32.dll" (ByVal hHash As Long, ByVal pbData As String, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long
       
Private Declare Function CryptDeriveKey Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hBaseData As Long, ByVal dwFlags As Long, phKey As Long) As Long
Private Declare Function CryptDestroyKey Lib "advapi32.dll" (hKey As Long) As Long
 
Private Declare Function CryptEncrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, pbData As Any, pdwDataLen As Long, ByVal dwBufLen As Long) As Long
Private Declare Function CryptDecrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, pbData As Any, pdwDataLen As Long) As Long
 
Private Const ALG_CLASS_DATA_ENCRYPT As Long = 24576
Private Const ALG_TYPE_RSA As Long = 1024
Private Const ALG_SID_RC4 As Long = 1
Private Const ALG_TYPE_STREAM As Long = 2048
Private Const CALG_MD5 As Long = &H8003& ' Hashing algorithm
Private Const CALG_RC4 As Long = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_STREAM Or ALG_SID_RC4)
  
Private Const MS_DEFAULT_PROVIDER  As String = "Microsoft Base Cryptographic Provider v1.0"
Private Const PROV_RSA_FULL As Long = 1
Private Const CRYPT_VERIFYCONTEXT = &HF0000000
 
Public Enum eEncryptionMode
    emEncrypt
    emDecrypt
End Enum
 
Public Function vbEncrypt(ByVal pstrText As String, ByVal pstrPassword As String) As Byte()
    vbEncrypt = CoreCrypto(pstrText, pstrPassword, emEncrypt)
End Function
 
Public Function vbDecrypt(ByVal pstrText As String, ByVal pstrPassword As String) As Byte()
    vbDecrypt = CoreCrypto(pstrText, pstrPassword, emDecrypt)
End Function
 
Private Function CoreCrypto(ByVal pstrText As String, ByVal pstrPassword As String, ByVal pMode As eEncryptionMode) As Byte()
    Dim hProv As Long
    Dim ByteBuffer() As Byte
    Dim strProvider As String
    Dim hHash As Long
    Dim hKey As Long
    Dim lngDataLen As Long
    
    
    ByteBuffer = pstrText
    
    ' Grab an RSA-based cryptoapi context using Microsoft's base provider
    strProvider = MS_DEFAULT_PROVIDER & vbNullChar
    CryptAcquireContext hProv, vbNullString, strProvider, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT ' final param could be  0&
    
    ' Generate a hash of the password
    CryptCreateHash hProv, CALG_MD5, 0, 0, hHash
    CryptHashData hHash, pstrPassword, Len(pstrPassword), 0
    
    ' Derive a symmetric key based on hashed password
    CryptDeriveKey hProv, CALG_RC4, hHash, 0&, hKey
    
    ' Apply decryption or encryption using derived key
    lngDataLen = UBound(ByteBuffer)
    
    Select Case pMode
        Case emEncrypt
            CryptEncrypt hKey, 0, 1, 0, ByteBuffer(0), lngDataLen, UBound(ByteBuffer)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы