is not possible for you create an rdp.dll with the encrypt function only ????

Best regards

It seems that Windows (XP Pro SP3) ignores the username and password entries that I put in the RDP file and will only use the credentials stored in the registry. It doesn’t matter whether I launch the RDP by double-clicking it or launching it using mstsc from a command prompt.

Does anyone know how to get Windows use the credentials I have stored in the RDP file? Is it because of the version of mstsc (and supporting files) that I am using? A policy? Thanks a lot

I have done the same thing in C# but using DataProtection found in http://msdn.microsoft.com/en-us/library/aa302402.aspx#secnetht07_topic4

You can download the Encrypt/Decrypt sample here.
http://multirdpc.codeplex.com/Release/ProjectReleases.aspx?ReleaseId=25591#ReleaseFiles

Thanks.

(In e-mail it’s not .ur – shold be .ru, thanks for understanding)

Thanks in advance

Can you please give me code in C++ which does password encryption same as RDP does?

I am working on very urgent requirement.

It will be greate if you help me.

Thanks

Jignesh

In your original post in the comments you wrote:
“I will write a new demo app to accompany the article that encrypts the full length password and can encrypt password that are valid for machine instead of user.
This makes it possible (eg) to publish an rdp connection.”

I’m just wondering if this is the app you were talking about. I tried to encrypt a password using the tool but didn’t see any option for machine vs. user; I tried it anyway but it doesn’t seem to work for any other user that signs on to the machine besides the one the password was encrypted under.

Any tips? Basically what I’m trying to do is make an RDP file that I can save under All Users\Desktop and any user who signs in can use it to connect to another machine using a single username/password. I tried your LaunchRDP utility however the missing ‘toolbar’ is an issue for me (users need to be able to minimize the remote desktop window)

Thanks!

Public Module RdpEncrypt

Public Class DPAPI
_
Private Shared Function CryptProtectData( _
ByRef pPlainText As DATA_BLOB, _
ByVal szDescription As String, _
ByRef pEntropy As DATA_BLOB, _
ByVal pReserved As IntPtr, _
ByRef pPrompt As CRYPTPROTECT_PROMPTSTRUCT, _
ByVal dwFlags As Integer, _
ByRef pCipherText As DATA_BLOB _
) As Boolean
End Function

_
Private Shared Function CryptUnprotectData( _
ByRef pCipherText As DATA_BLOB, _
ByRef pszDescription As String, _
ByRef pEntropy As DATA_BLOB, _
ByVal pReserved As IntPtr, _
ByRef pPrompt As CRYPTPROTECT_PROMPTSTRUCT, _
ByVal dwFlags As Integer, _
ByRef pPlainText As DATA_BLOB _
) As Boolean
End Function

_
Friend Structure DATA_BLOB
Public cbData As Integer
Public pbData As IntPtr
End Structure

_
Friend Structure CRYPTPROTECT_PROMPTSTRUCT
Public cbSize As Integer
Public dwPromptFlags As Integer
Public hwndApp As IntPtr
Public szPrompt As String
End Structure

Private Const CRYPTPROTECT_UI_FORBIDDEN As Integer = 1
Private Const CRYPTPROTECT_LOCAL_MACHINE As Integer = 4

Private Shared Sub InitPrompt _
( _
ByRef ps As CRYPTPROTECT_PROMPTSTRUCT _
)
ps.cbSize = Marshal.SizeOf(GetType(CRYPTPROTECT_PROMPTSTRUCT))
ps.dwPromptFlags = 0
ps.hwndApp = IntPtr.Zero
ps.szPrompt = Nothing
End Sub

Private Shared Sub InitBLOB _
( _
ByVal data As Byte(), _
ByRef blob As DATA_BLOB _
)
‘ Use empty array for null parameter.
If data Is Nothing Then
data = New Byte(0) {}
End If

‘ Allocate memory for the BLOB data.
blob.pbData = Marshal.AllocHGlobal(data.Length)

‘ Make sure that memory allocation was successful.
If blob.pbData.Equals(IntPtr.Zero) Then
Throw New Exception( _
“Unable to allocate data buffer for BLOB structure.”)
End If

‘ Specify number of bytes in the BLOB.
blob.cbData = data.Length
Marshal.Copy(data, 0, blob.pbData, data.Length)
End Sub

Public Enum KeyType
UserKey = 1
MachineKey
End Enum

Private Shared defaultKeyType As KeyType = KeyType.UserKey

Public Shared Function Encrypt _
( _
ByVal keyType As KeyType, _
ByVal plainText As String, _
ByVal entropy As String, _
ByVal description As String _
) As String
If plainText Is Nothing Then
plainText = String.Empty
End If
If entropy Is Nothing Then
entropy = String.Empty
End If

Dim result As Byte()
Dim encrypted As String = “”
Dim i As Integer
result = Encrypt(keyType, _
Encoding.Unicode.GetBytes(plainText), _
Encoding.Unicode.GetBytes(entropy), _
description)
For i = 0 To result.Length – 1
encrypted = encrypted & Convert.ToString(result(i), 16).PadLeft(2, “0″).ToUpper()
Next
Return encrypted.ToString()
End Function

Public Shared Function Encrypt _
( _
ByVal keyType As KeyType, _
ByVal plainTextBytes As Byte(), _
ByVal entropyBytes As Byte(), _
ByVal description As String _
) As Byte()
If plainTextBytes Is Nothing Then
plainTextBytes = New Byte(0) {}
End If

If entropyBytes Is Nothing Then
entropyBytes = New Byte(0) {}
End If

If description Is Nothing Then
description = String.Empty
End If

Dim plainTextBlob As DATA_BLOB = New DATA_BLOB
Dim cipherTextBlob As DATA_BLOB = New DATA_BLOB
Dim entropyBlob As DATA_BLOB = New DATA_BLOB

Dim prompt As _
CRYPTPROTECT_PROMPTSTRUCT = New CRYPTPROTECT_PROMPTSTRUCT
InitPrompt(prompt)

Try
Try
InitBLOB(plainTextBytes, plainTextBlob)
Catch ex As Exception
Throw New Exception(“Cannot initialize plaintext BLOB.”, ex)
End Try

Try
InitBLOB(entropyBytes, entropyBlob)
Catch ex As Exception
Throw New Exception(“Cannot initialize entropy BLOB.”, ex)
End Try

Dim flags As Integer = CRYPTPROTECT_UI_FORBIDDEN

If keyType = keyType.MachineKey Then
flags = flags Or (CRYPTPROTECT_LOCAL_MACHINE)
End If

Dim success As Boolean = CryptProtectData( _
plainTextBlob, _
description, _
entropyBlob, _
IntPtr.Zero, _
prompt, _
flags, _
cipherTextBlob)

If Not success Then
Dim errCode As Integer = Marshal.GetLastWin32Error()

Throw New Exception(“CryptProtectData failed.”, _
New Win32Exception(errCode))
End If

Dim cipherTextBytes(cipherTextBlob.cbData) As Byte

Marshal.Copy(cipherTextBlob.pbData, cipherTextBytes, 0, _
cipherTextBlob.cbData)

Return cipherTextBytes
Catch ex As Exception
Throw New Exception(“DPAPI was unable to encrypt data.”, ex)
Finally
If Not (plainTextBlob.pbData.Equals(IntPtr.Zero)) Then
Marshal.FreeHGlobal(plainTextBlob.pbData)
End If

If Not (cipherTextBlob.pbData.Equals(IntPtr.Zero)) Then
Marshal.FreeHGlobal(cipherTextBlob.pbData)
End If

If Not (entropyBlob.pbData.Equals(IntPtr.Zero)) Then
Marshal.FreeHGlobal(entropyBlob.pbData)
End If
End Try
End Function

End Class

Sub Main(ByVal args() As String)
Try
Dim INfilename As String = args(0) ‘Input file with string without CrLf
Dim OUTfilename As String = args(1) ‘Output file
Dim EncryptedText As String
Dim TextToEncrypt As String
Dim EncryptedBlank As String
Dim BlankToEncrypt As String = Space(256)

TextToEncrypt = File.ReadAllText(INfilename)

EncryptedText = DPAPI.Encrypt(DPAPI.KeyType.MachineKey, TextToEncrypt, Nothing, “psw”)
EncryptedBlank = DPAPI.Encrypt(DPAPI.KeyType.MachineKey, BlankToEncrypt, Nothing, “psw”)

File.WriteAllText(OUTfilename, EncryptedText & _
Right(EncryptedBlank, 1329 – Len(EncryptedText))) ‘Encrypted blank to complete to 1329

Catch ex As Exception
While Not (ex Is Nothing)
Console.WriteLine(ex.Message)
ex = ex.InnerException
End While
End Try
End Sub

End Module
####################################
Regards.
Dominik