Discussion :

[Clorish]

Hello !!

J'ai une api windows qui semble prendre comme parametre un PByte ou un PChar (apres tout je ne pense pas que cela soit vraiement different).

Cette api a pour but de decrypter un fichier dont le contenu se situe dans cette variable.

Mon but a moi est de convertir le contenu d'un TStream (TMemoryStream Exactement) dans cette variable PByte ou PChar pour la transmetre a l'api.

Je tourne en rond ....

Pour info, la taille du fichier est de 6224 octets. Je pensais tout gerer en un block .... a moins que cela ne soit pas possible ...
J'ai des soucis lors de l'appel a la methode Read ou ReadBuffer du Stream.
Si je descent en dessous (1024) ca passe ... mais je souhaiterais eviter pour des raison de simplification du code. Si je peux tout gerer en un block ca serait bien.

Merci d'avance

[Edit] Au passage j'aimerais m'assurer de la traduction en DElphi de BYTE* pData

[tourlourou]

tu dois pouvoir utiliser MyMemoryStream.Memory qui est un pointeur sur la zone mémoire du stream

je ne pense pas que le PByte (traduction correcte, pour moi) attendu puisse être remplacé par un PChar, qui attend forcément un #0 terminal

il ne faudrait bien sûr pas que ton API cherche à modifier la taille du PByte : ça entraînerait sûrement une belle EAV !

[Clorish]

C'ets l'api CryptDecrypt de advapi32.dll

Elle est declarée comme BYTE* pData et visiblement modifie le contenu de pData puisque elle decrypte le block de pData selon dwDataLen et renvoie un nouveau pData avec un nouveau dwDataLen contenant le code decrypté ....

J'avoue que la je suis un peu perdu
J'ai essayé pas mal de choses mais je tombe sur une erreur de type "data inccorect" ou "mauvais parametres" ....

[Qwazerty]

SAlut
c'est pas plutot BYTE *pbData
Par ce que la meme declaration en VB ca donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Function CryptEncrypt Lib "advapi32.dll" _
	(ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, _
	ByVal dwFlags As Long, ByVal pbData As Long, _
	ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long

Et eux le passe en Long
Donc a ce que j'en comprend tu met le pointeur de ta chaine dans pbData et sa longeur dans pdwDataLen
A++

[Clorish]

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

ByVal pbData As Long

Mon code proviens aussi d'un code VB qui marche et que je cherche a traduire en Delphi.

Voici la declaration que j'ai :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function CryptDecrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByRef pbData As Any, pdwDataLen As Long) As Long

Sinon voici le code d'appel :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function Decrypt(ByVal szKey As String, ByRef pData() As Byte, ByRef dwSize As Long) As Long
    Dim lResult As Long
    lResult = UpdateKey(szKey)
    If lResult = 0 Then
        If CBool(CryptDecrypt(m_hKey, 0, 1, 0, pData(0), dwSize)) = True Then
            ReDim Preserve pData(dwSize)
            Decrypt = 0
            Exit Function
        End If
    Else
        Decrypt = lResult
        Exit Function
    End If
    Decrypt = Err.LastDllError
End Function

et le code d'appel de cette fonction (chargemetn du fichier)

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Decrypt_Click()
    Dim data() As Byte
    Dim lFileLength As Long
    Dim File As Integer
    Dim b As CProtect
    Dim lResult As Long
 
    lFileLength = FileLen(FileName.Text)
    ReDim data(lFileLength)
 
    File = FreeFile
    Open FileName.Text For Binary As #File
    Get #File, 1, data
    Close File
 
    Set b = New CProtect
    lResult = b.Decrypt(PUID.Text, data, lFileLength)
    If lResult = 0 Then
        Text2.Text = data
    Else
        Text2.Text = "Failed to Decode the file." & vbCrLf & "Error: " & lResult
    End If
 
End Sub

et pour finir un post ou j'ai posté le code declaratif de l'aide du SDK delphi : ici

Je sens que je suis pret du but ... et que le probleme viendrais de la transmission de ce code la ....
Si quelqu'un peut m'y aider ca serait cool

[tourlourou]

si la fonction peut décrypter en produisant un texte plus long que celui crypté, ça devrait poser un pb d'utiliser directement le Stream