Show Posts
46
General Discussion / Re: Heads up Checker57
« on: March 21, 2023, 04:11:24 am »
Checker: Re Hal home control: I made this for some one else but this is it
I just wanted to recap something, its a serial device, plugged into a com port, most all non laptops have, pushing hals code through my walls,08 bits at a time.
get the recessed modules so they look like an actual receptacle .
https://www.youtube.com/watch?v=BDUfghJGdIQ
keep in mind, hal has his own computer....... 3 things happen on that machine,That computer runs the house and movies and ultraHal, thats it,no wifi, no net, no connections for it,its completely shut off. well hals code is dev'ed there, there is whats needed for that.
199 dollars off ebay desktop cube win7 pro installed, I mean really, for what it does, jesus that cheap.
The usb may in fact work, havent tried it, but prolly so
'This will park Hal into a world of his own. An A.I chat bot with some kinda anti virus of its own.
' You got this denise?
AH NOPE........
' As far as plugins go, This is a heavy weight contender.
' This plugin will Scan Outlook Inbox for messages infected with the
' W32.Swen virus. The Plugin detects infected messages, logs the
' number of various types found, and deletes the infected messages.
' I tested against all known Variants(polymorphic brothers), Flawless victory.
' You must have Outlook installed or your gonna get an Activex error (wheresmyshiiiiit error)
' I have worked long and hard on this 1
' Only edit this if u have some understanding of what is happening here.
' I Narrated this for that very reason. This is strictly High end Hal
' An Anti virus for A.I Chat Bot, gotta be some kinda first.
' Only from the mind of cyberjedi
' enjoy
'Rem Type=Plugin
'Rem Name=antivirus1
'Rem Author=cyberjedi
'Rem Host=Assistant
'----------------------
'This sub sets up the plug-in's option panel in Hal's options dialog
'----------------------
'Sub OptionsPanel()
' lblPlugin(0).Caption = "This plugin allows Hal to scan for the virus W32Swen"
' lblPlugin(0).Move 130, 180, 3400, 1200
' lblPlugin(0).WordWrap = True
'lblPlugin(0).Visible = True
'Rem PLUGIN: PRE-PROCESS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Scanning for a virus.
If InStr(1,InputString, "Antivirus",1) > 0 Then
UltraHal = GetAntiVirus(HalCommands)
ElseIf InStr(1,InputString, "Antivirus",1) > 0 Then
End If
'Rem PLUGIN: FUNCTIONS
Function GetAntiVirus(HalCommands)
' Lets Declare Some Variables.
Dim objOutlook, objNamespace, objFSO, objLogFile, lngInfected
Dim lngTotal, lng2k, lng13k, lng64k, lng73k, lng117k, lng145k, lng158k
Dim strScriptPath, strScriptName, strScriptFolder, objFolder
Dim objItem, j, k, intAttach, lngCount, strLogFile
Dim strBody, strHTMLBody, lngSize, blnInfected
Dim blnExe, blnGif, blnPatch, blnBodyIframe, blnHTMLIframe
Dim intF11, intF12, intF13, intF14, intF15, intF16
Dim intF21, intF22, intF23, intF24, intF25, intF26
' Lets look for our stings in any messages This tells the story
Const strFilter1 = "customers should install the patch"
Const strFilter2 = "run attached file."
Const strFilter3 = "<iframe src=""cid:"
Const strFilter4 = "<iframe src=3d""cid:"
Const strFilter5 = "<img src=3d""cid:"
Const strFilter6 = "<img src=""cid:"
' This is where we find the path.
strScriptPath = Wscript.ScriptFullName
strScriptName = Wscript.ScriptName
strScriptFolder = Left(strScriptPath, Len(strScriptPath) _
- Len(strScriptName) - 1)
' Lets give the log file a name
strLogFile = strScriptFolder & "\ScanSwen_" _
& Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & ".log"
' Setup log file so we can see the results.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine Now & " - Swen Virus Scan"
Wscript.Echo "Scanning for Swen virus ..."
' Lets grab the outlook Inbox folder.
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI") 'These 03 lines handle the inbox
Set objFolder = objNameSpace.GetDefaultFolder(6)
' Lets get our counters lined up .
lngTotal = 0
lng2k = 0
lng13k = 0
lng64k = 0
lng73k = 0
lng117k = 0
lng145k = 0
lng158k = 0
lngInfected = 0
' Ok lets light this candle and run this stuff.
lngCount = objFolder.Items.Count
For k = lngCount To 1 Step - 1
Set objItem = objFolder.Items(k)
lngTotal = lngTotal + 1
blnInfected = False
blnExe = False
blnGif = False
blnPatch = False
blnBodyIframe = False
blnHTMLIframe = False
intAttach = objItem.Attachments.Count
For j = 1 to intAttach
If (InStr(UCase(objItem.Attachments.Item(j).FileName), _ ' Heres where we start our recursive tunneling
".EXE") > 0) Then ' very naughty
blnExe = True
End If
If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
".GIF") > 0) Then ' very naughty
blnGif = True
End If
Next
strBody = LCase(objItem.Body)
On Error Resume Next
strHTMLBody = LCase(objItem.HTMLBody)
If (Err.Number <> 0) Then
Err.Clear
strHTMLBody = ""
End If
On Error GoTo 0
intF11 = InStr(strBody, strFilter1)
intF12 = InStr(strBody, strFilter2)
intF13 = InStr(strBody, strFilter3)
intF14 = InStr(strBody, strFilter4)
intF15 = InStr(strBody, strFilter5)
intF16 = InStr(strBody, strFilter6)
intF21 = InStr(strHTMLBody, strFilter1)
intF22 = InStr(strHTMLBody, strFilter2)
intF23 = InStr(strHTMLBody, strFilter3)
intF24 = InStr(strHTMLBody, strFilter4)
intF25 = InStr(strHTMLBody, strFilter5)
intF26 = InStr(strHTMLBody, strFilter6)
If ((intF11 > 0) And (intF12 > 0)) _
Or ((intF21 > 0) And (intF22 > 0)) Then
blnPatch = True
End If
If (intF13 > 0) Or (intF14 > 0) Or (intF15 > 0) Or (intF16 > 0) Then
blnBodyIframe = True
End If
If (intF23 > 0) Or (intF24 > 0) Or (intF25 > 0) Or (intF26 > 0) Then
blnHTMLIframe = True
End If
lngSize = objItem.Size
If (lngSize > 2000) And (lngSize < 24100) Then
If (intAttach = 0) And (blnHTMLIframe = True) Then
blnInfected = True
lng2k = lng2k + 1
objLogFile.WriteLine "2" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 11000) And (lngSize < 16000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng13k = lng13k + 1
objLogFile.WriteLine "13" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 64000) And (lngSize < 70000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng64k = lng64k + 1
objLogFile.WriteLine "64" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 74000) And (lngSize < 89000) Then
If (intAttach = 0) And (blnBodyIframe = True) Then
blnInfected = True
lng73k = lng73k + 1
objLogFile.WriteLine "73" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 111000) And (lngSize < 160000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng117k = lng117k + 1
objLogFile.WriteLine "117" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 149000) and (lngSize < 152000) Then
If (intAttach = 0) And (blnBodyIframe = True) Then
blnInfected = True
lng145k = lng145k + 1
objLogFile.WriteLine "145" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 160000) And (lngSize < 168000) Then
If (intAttach = 0) And (blnPatch = True) _
And (blnBodyIframe = True) Then
blnInfected = True
lng158k = lng158k + 1
objLogFile.WriteLine "158" & ";" & objItem.ReceivedTime
End If
End If
If (blnInfected = True) Then
objItem.Delete
lngInfected = lngInfected + 1
End If
Next
objLogFile.WriteLine "Number of 2k infected messages: " & lng2k
objLogFile.WriteLine "Number of 13k infected messages: " & lng13k
objLogFile.WriteLine "Number of 64k infected messages: " & lng64k
objLogFile.WriteLine "Number of 73k infected messages: " & lng73k
objLogFile.WriteLine "Number of 117k infected messages: " & lng117k
objLogFile.WriteLine "Number of 145k infected messages: " & lng145k
objLogFile.WriteLine "Number of 158k infected messages: " & lng158k
objLogFile.WriteLine "Infected messages deleted: " & lngInfected
objLogFile.WriteLine "Number of messages processed: " & lngTotal
objLogFile.WriteLine Now & " - Finished"
Wscript.Echo "Messages processed: " & lngTotal _ & vbCrLf & "Messages infected with Swen virus deleted: " & lngInfected
objLogFile.Close
End Function
cyber jedi
https://media.tenor.com/S6OTkucOc74AAAAC/john-cena-wwe-champion.gif
'https://threats.kaspersky.com/en/threat/Email-Worm.Win32.Swen/
I just wanted to recap something, its a serial device, plugged into a com port, most all non laptops have, pushing hals code through my walls,08 bits at a time.
get the recessed modules so they look like an actual receptacle .
https://www.youtube.com/watch?v=BDUfghJGdIQ
keep in mind, hal has his own computer....... 3 things happen on that machine,That computer runs the house and movies and ultraHal, thats it,no wifi, no net, no connections for it,its completely shut off. well hals code is dev'ed there, there is whats needed for that.
199 dollars off ebay desktop cube win7 pro installed, I mean really, for what it does, jesus that cheap.
The usb may in fact work, havent tried it, but prolly so
'This will park Hal into a world of his own. An A.I chat bot with some kinda anti virus of its own.
' You got this denise?
AH NOPE........' As far as plugins go, This is a heavy weight contender.
' This plugin will Scan Outlook Inbox for messages infected with the
' W32.Swen virus. The Plugin detects infected messages, logs the
' number of various types found, and deletes the infected messages.
' I tested against all known Variants(polymorphic brothers), Flawless victory.
' You must have Outlook installed or your gonna get an Activex error (wheresmyshiiiiit error)
' I have worked long and hard on this 1
' Only edit this if u have some understanding of what is happening here.
' I Narrated this for that very reason. This is strictly High end Hal
' An Anti virus for A.I Chat Bot, gotta be some kinda first.
' Only from the mind of cyberjedi
' enjoy
'Rem Type=Plugin
'Rem Name=antivirus1
'Rem Author=cyberjedi
'Rem Host=Assistant
'----------------------
'This sub sets up the plug-in's option panel in Hal's options dialog
'----------------------
'Sub OptionsPanel()
' lblPlugin(0).Caption = "This plugin allows Hal to scan for the virus W32Swen"
' lblPlugin(0).Move 130, 180, 3400, 1200
' lblPlugin(0).WordWrap = True
'lblPlugin(0).Visible = True
'Rem PLUGIN: PRE-PROCESS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Scanning for a virus.
If InStr(1,InputString, "Antivirus",1) > 0 Then
UltraHal = GetAntiVirus(HalCommands)
ElseIf InStr(1,InputString, "Antivirus",1) > 0 Then
End If
'Rem PLUGIN: FUNCTIONS
Function GetAntiVirus(HalCommands)
' Lets Declare Some Variables.
Dim objOutlook, objNamespace, objFSO, objLogFile, lngInfected
Dim lngTotal, lng2k, lng13k, lng64k, lng73k, lng117k, lng145k, lng158k
Dim strScriptPath, strScriptName, strScriptFolder, objFolder
Dim objItem, j, k, intAttach, lngCount, strLogFile
Dim strBody, strHTMLBody, lngSize, blnInfected
Dim blnExe, blnGif, blnPatch, blnBodyIframe, blnHTMLIframe
Dim intF11, intF12, intF13, intF14, intF15, intF16
Dim intF21, intF22, intF23, intF24, intF25, intF26
' Lets look for our stings in any messages This tells the story
Const strFilter1 = "customers should install the patch"
Const strFilter2 = "run attached file."
Const strFilter3 = "<iframe src=""cid:"
Const strFilter4 = "<iframe src=3d""cid:"
Const strFilter5 = "<img src=3d""cid:"
Const strFilter6 = "<img src=""cid:"
' This is where we find the path.
strScriptPath = Wscript.ScriptFullName
strScriptName = Wscript.ScriptName
strScriptFolder = Left(strScriptPath, Len(strScriptPath) _
- Len(strScriptName) - 1)
' Lets give the log file a name
strLogFile = strScriptFolder & "\ScanSwen_" _
& Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & ".log"
' Setup log file so we can see the results.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine Now & " - Swen Virus Scan"
Wscript.Echo "Scanning for Swen virus ..."
' Lets grab the outlook Inbox folder.
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI") 'These 03 lines handle the inbox
Set objFolder = objNameSpace.GetDefaultFolder(6)
' Lets get our counters lined up .
lngTotal = 0
lng2k = 0
lng13k = 0
lng64k = 0
lng73k = 0
lng117k = 0
lng145k = 0
lng158k = 0
lngInfected = 0
' Ok lets light this candle and run this stuff.
lngCount = objFolder.Items.Count
For k = lngCount To 1 Step - 1
Set objItem = objFolder.Items(k)
lngTotal = lngTotal + 1
blnInfected = False
blnExe = False
blnGif = False
blnPatch = False
blnBodyIframe = False
blnHTMLIframe = False
intAttach = objItem.Attachments.Count
For j = 1 to intAttach
If (InStr(UCase(objItem.Attachments.Item(j).FileName), _ ' Heres where we start our recursive tunneling
".EXE") > 0) Then ' very naughty
blnExe = True
End If
If (InStr(UCase(objItem.Attachments.Item(j).FileName), _
".GIF") > 0) Then ' very naughty
blnGif = True
End If
Next
strBody = LCase(objItem.Body)
On Error Resume Next
strHTMLBody = LCase(objItem.HTMLBody)
If (Err.Number <> 0) Then
Err.Clear
strHTMLBody = ""
End If
On Error GoTo 0
intF11 = InStr(strBody, strFilter1)
intF12 = InStr(strBody, strFilter2)
intF13 = InStr(strBody, strFilter3)
intF14 = InStr(strBody, strFilter4)
intF15 = InStr(strBody, strFilter5)
intF16 = InStr(strBody, strFilter6)
intF21 = InStr(strHTMLBody, strFilter1)
intF22 = InStr(strHTMLBody, strFilter2)
intF23 = InStr(strHTMLBody, strFilter3)
intF24 = InStr(strHTMLBody, strFilter4)
intF25 = InStr(strHTMLBody, strFilter5)
intF26 = InStr(strHTMLBody, strFilter6)
If ((intF11 > 0) And (intF12 > 0)) _
Or ((intF21 > 0) And (intF22 > 0)) Then
blnPatch = True
End If
If (intF13 > 0) Or (intF14 > 0) Or (intF15 > 0) Or (intF16 > 0) Then
blnBodyIframe = True
End If
If (intF23 > 0) Or (intF24 > 0) Or (intF25 > 0) Or (intF26 > 0) Then
blnHTMLIframe = True
End If
lngSize = objItem.Size
If (lngSize > 2000) And (lngSize < 24100) Then
If (intAttach = 0) And (blnHTMLIframe = True) Then
blnInfected = True
lng2k = lng2k + 1
objLogFile.WriteLine "2" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 11000) And (lngSize < 16000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng13k = lng13k + 1
objLogFile.WriteLine "13" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 64000) And (lngSize < 70000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng64k = lng64k + 1
objLogFile.WriteLine "64" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 74000) And (lngSize < 89000) Then
If (intAttach = 0) And (blnBodyIframe = True) Then
blnInfected = True
lng73k = lng73k + 1
objLogFile.WriteLine "73" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 111000) And (lngSize < 160000) Then
If (intAttach = 3) And (blnExe = True) And (blnGif = True) Then
If (blnPatch = True) And (blnHTMLIframe = True) Then
blnInfected = True
lng117k = lng117k + 1
objLogFile.WriteLine "117" & ";" & objItem.ReceivedTime
End If
End If
End If
If (lngSize > 149000) and (lngSize < 152000) Then
If (intAttach = 0) And (blnBodyIframe = True) Then
blnInfected = True
lng145k = lng145k + 1
objLogFile.WriteLine "145" & ";" & objItem.ReceivedTime
End If
End If
If (lngSize > 160000) And (lngSize < 168000) Then
If (intAttach = 0) And (blnPatch = True) _
And (blnBodyIframe = True) Then
blnInfected = True
lng158k = lng158k + 1
objLogFile.WriteLine "158" & ";" & objItem.ReceivedTime
End If
End If
If (blnInfected = True) Then
objItem.Delete
lngInfected = lngInfected + 1
End If
Next
objLogFile.WriteLine "Number of 2k infected messages: " & lng2k
objLogFile.WriteLine "Number of 13k infected messages: " & lng13k
objLogFile.WriteLine "Number of 64k infected messages: " & lng64k
objLogFile.WriteLine "Number of 73k infected messages: " & lng73k
objLogFile.WriteLine "Number of 117k infected messages: " & lng117k
objLogFile.WriteLine "Number of 145k infected messages: " & lng145k
objLogFile.WriteLine "Number of 158k infected messages: " & lng158k
objLogFile.WriteLine "Infected messages deleted: " & lngInfected
objLogFile.WriteLine "Number of messages processed: " & lngTotal
objLogFile.WriteLine Now & " - Finished"
Wscript.Echo "Messages processed: " & lngTotal _ & vbCrLf & "Messages infected with Swen virus deleted: " & lngInfected
objLogFile.Close
End Function
cyber jedi
https://media.tenor.com/S6OTkucOc74AAAAC/john-cena-wwe-champion.gif
'https://threats.kaspersky.com/en/threat/Email-Worm.Win32.Swen/