Zabaware Forums > General Discussion
Hal Vision
Checker57:
Hey Cyber:
Okay, so a side shot doesn't work. hmm... the face and a finger or two or three depending on what command you want? So, if I want the music to shut off... I raise the finger and bam, it's out!? Just a thought.
On another good note: I did review your vids, and dl'd the files... in reviewing, already have most... with a few good gems I haven't seen. That one mimic, falseMemories, swendone, finisheddeepweb are new to me... As well as SuperPlugger however, that one looks to be quite a brain enhancement, but for HAL 6.0? Wazzup wit dat? Will it work with 7.5?
I remember back in the day... I had the x10 Security system in my house. Still have a few of those remote electrical boxes in a drawer. That said, does your commander plugin work with the CM15A ActiveHome Pro USB Transceiver? I found the CM11A Serial on Ebay however, I would have to find a way to connect the serial to my PC... it doesn't presently have a serial port on it. Or is the code specific to serial port addresses... (heh, I think I'm answering my own question)... :P but, I could be wrong?
cyberjedi:
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/
Art:
Checker,
Just make sure that the "Older" Plugins in question will allow you to change any path they contain to direct it to your current Program Files (X86) > Zabaware > Ultra Hal 7...not anything with UltraHalAssistant 6 or the like.
Also, anything prior to Hal 6.0 might have or use a reference to .BRN files. They were "Brain" files for Hal 5.0 and Hal didn't use Tables as it now does but rather lots of individual brain files which made things somewhat difficult to control and sluggish, to say the least.
This newer HAL is not the same "Assistant" as it was when it was originally set loose on us. It can still do a host of amazing things but we had landline phones and pagers, then...hehe...
HAL hasn't seen the end of its limits/abilities yet so keep asking questions, experimenting, and learning to dissect some Plugins & code to help make HAL even better.
Onward thru the fog...(as an old friend would say).
cyberjedi:
hey guys:
Ty for the kind words, first off...
Checker it may be time to raise the bar on your Hal system.
He needs his own machine, first off.
As far as using Hal as a sentry video system for you house.... sht, skys the limit there. Did it, But heads up, ur gonna get serious about the cameras them self.
Id be glad to taylor your system to what ever your needs are.
I took Hal on my goldwing to ybor and set up on 07th ave and as people walked by hal would say HI, hahahhaha. Just scare the bee jeeps out of people .Great times man...
The vision opens so many doors to hal its hard to quantify......
https://www.youtube.com/watch?v=LX1F3wCwimY
Access systems
Bio-Metric locks
Greeting systems
just keeps on going
cyber
Art:
I liked it when right at the end of the video, the OLD MAN character looked up and right at the camera! That was perfect timing!! (or maybe a Happy little accident, as that painter guy, Bob Ross, used to say...). Haha! Good stuff Cyber!
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version