Here’s the assignment for Lab3. The next class session will show us .

Public Class frmCompare

    'CREATED:    10/15/2014
    'CREATED BY: James Strickland
    'CLASS:      COP2010 - 090898
    'PURPOSE:    Write a Windows Application
    '            program that inputs
    '            three different integers
    '            and displays results
    '            in a listbox

    ' Declare variables
    ' inum=InputNumber
    Dim inum1, inum2, inum3 As Integer

    ' onum=OutputNumber
    Dim onum1, onum2, onum3, max, min As Integer

    Private Sub frmCompare_Load(sender As Object, _
                                e As EventArgs) _
                            Handles MyBase.Load

        ' Hide the "About" label at form load
        lblAbout.Visible = False

    End Sub

    Private Sub btnGo_Click(sender As Object, _
                        e As EventArgs) _
                        Handles btnExe.Click

        ' The following code is executed 
        ' when the EXECUTE button is pressed

        ' Get the users 3 numbers and load
        ' them into the 3 input variables
        inum1 = txtInput1.Text
        inum2 = txtInput2.Text
        inum3 = txtInput3.Text

        ' Clear list box encase user wants to 
        ' repeat program without scrolling 
        ' down listbox.

        ' Display numbers as user entered them
        ' seperated by comma
        LstBoxResults.Items.Add("Numbers in User Order:")
        LstBoxResults.Items.Add(inum1 & ", " & inum2 & ", " & inum3)
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Sum of users entered numbers
        LstBoxResults.Items.Add("Sum of numbers:") ' Displays to user
        LstBoxResults.Items.Add(inum1 + inum2 + inum3) ' does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Average of numbers
        LstBoxResults.Items.Add("Average of Numbers:") ' Displays to user
        LstBoxResults.Items.Add((inum1 + inum2 + inum3) \ 3) ' does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Product of numbers
        LstBoxResults.Items.Add("Product of numbers:") ' Displays to user
        LstBoxResults.Items.Add(inum1 * inum2 * inum3) ' Does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Largest of the 3 numbers
        LstBoxResults.Items.Add("Largest of the 3:")
        max = inum1 ' Init variable mas a first number entered, the compare below...

        If inum2 > max Then
            max = inum2 ' inum2 greater than max, init max as inum2 (inum2 is smaller)
        End If

        If inum3 > max Then
            max = inum3 ' inum3 greater than max, init max as inum3 (inum3 is smaller)
        End If

        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Smallest of the 3 numbers
        LstBoxResults.Items.Add("Smallest of the 3:")
        min = inum1 ' init min as inum1

        If inum2 < min Then
            min = inum2 ' inum2 less than min, init min as inum2 (inum2 is bigger)
        End If

        If inum3 < min Then
            min = inum3 ' inum3 less than min, init min as inum3 (inum3 is bigger)
        End If

        LstBoxResults.Items.Add(min) ' Display results of min
        LstBoxResults.Items.Add("") ' simply creates a space between answers

    End Sub

    ' Close/Exit the program
    Private Sub btnExit_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnExit.Click

    End Sub

    Private Sub btnAbout_Click(sender As Object, _
                               e As EventArgs) _
                               Handles btnAbout.Click
        ' The below code hides the form content and 
        ' displays information about the programmer
        ' (when the user presses the "about" button)
        ' which happens to be me. For those who does
        ' not know me, I am a big deal around here..
        ' I mean, I didn't want to say nuthin.......

        ' Clear Form
        btnExe.Visible = False
        lblEnterNumbers.Visible = False
        lblInstruction.Visible = False
        txtInput1.Visible = False
        txtInput2.Visible = False
        txtInput3.Visible = False
        LstBoxResults.Visible = False

        ' About Programmer
        lblAbout.Visible = True

    End Sub

End Class


Today I received a phone call at 5:24PM (CST) from (281) 593-3503 showed up on caller ID as Cleveland, TX.

This is the 2nd call from this person, who had a strong foreign accent. The first time I received a call from him, I told him I wasn’t interested and hung up. This time I was bored, so decided to go along with him.

Here’s how the conversation went:

He started out by telling me he has been monitoring infected files on my computer. He then asked me is my computer connected to the internet.
I said yes.

He asked what I seen on my screen, I said google

He asked me to close the window and press <windows/flag> key and “R”, I complied.







He asked me what I saw, I told him the run screen.

He asked me to type “inf hiddenfiles” then asked me if I knew what it was, I said no. then pressed enter after he instructed me to.

This opened a window



He then asked me if I knew what these files were, I said no.  He said that they were a list of infected files. These are infact driver information files (windows/inf)

Then then asked me to go to a website by way of <win/flag> + R (run command) ( )








Then he asked me to download teamviewer and install it on my computer.  Since There was no way  I was going to give him access to my computer, I went ahead and pulled the plug.

I asked him, since he seen infected files from my computer, what was the IP address of my computer.  He didn’t have an answer.  I then asked him who my ISP was, he didn’t have an answer… I figured I spent enough time of the phone with this idiot… so I told him I knew what he was up to and was reporting it to the authorities.  He said go ahead, then hung up.

Now, here’s some relevant data for us geeks:

Who is for the website hosting the probably viruses:

I’m not being paid to do this, so I’m not going to load the files and see what wireshark shows… and perhaps trace the IP, which I would assume would be in a foreign country.

Bottom line everyone… if someone sends you links and they don’t look right… double check before you give anyone remote access to your computer. It is extremely easy to gain prolong access to your computer if you just give me 10 secs of remote access to your computer. If you get a phone call from your ISP (cox or centurylink) then perhaps it may be a legitimate phone call, but VERIFY.

I also asked for a call back number, and he gave me: 201-234-4604, I did not try to call it.

Yet another year is about to pass, as such, so should the old look. I was going for a “paper” look, to match the “theme” I have for my main site. Doesn’t really match, but it will work.  It is my intention to write more in my blog in 2012.

I really hope 2012 to be a prosperous year for our family. We certainly need some prosperity! I will go back to school next month getting my computer certifications. North West Florida State College is my weapon of choice.  I should come out with Comptia A+, Security+, Linux+, and Network+ and a College Certificate in IT Technology.

Going to high school in the mid 90s, computers wasn’t as modern as they were today. Our school was 97% Macintosh, 2% Apple IIE, 1% PC. These were the old Mac II’s I believe. There was only 1 PC that had a modem and hooked to a phone line, so I stayed in that room. Since then, I didn’t look back and over the years seemed to forget about the Apple OS. Over the past couple of years, I noticed an increase in Mac purchases. Many friends who were tired of spyware and viruses, made the move away from Windows to the Apple world.
Everyone always asks me for help with their computers when things go south; 100% of which are all PC issues. Never had an issue with Apple. Recently posted an ad on Craigslist asking if anyone had an old MAC computer they wanted to get rid of. One person responded, stating that he could install OS X on my PC. I had heard about this some time ago, ago and hadn’t yet gave it a shot. So, last week I installed OS X on an older Dell GX270 (P4). Seems to be working nicely. The whole purpose of this is to learn a new OS in an attempt to broaden my knowledge in the IT world. Although I’m sure in the corporate world, Apple doesn’t quite have the grip that Microsoft has.

Recently finished my degree, and have started studying for my A+ certification.  While finishing up my degree, I discovered that the Air Force will pay $4500 dollars to take classes for certifications.  Further research revealed that the Air Force offered free training CBT’s (Computer Based Training).  These CBT’s cover A+ and Network + just to cover a few.  My goal is to be certified on A+, Network+ and Security+ prior to me getting out of the Military in 4 years.  The only thing the Air Force will not pay for is the test fee’s.

floppy disk
5 1/4\
Ahhh… I’m thinking about loading the latest Sabayon Linux on these… Luckily they’re double sided/double density!!!…

Acoustic Coupler
Although I never used an acoustic coupler, I do remember the 300 baud modem I first had with my Commodore… all the good ‘ole days…. When I got my 14.4k baud modem and an IBM… you couldn’t tell me nothing.

VIC20 Games
VIC20 Games

Anyway, was going through the stuff I have here in storage here in VA. I really need to clean out the closets… I picked up the Commodore cartridges somewhere… don’t remember where. Probably a yard sale. The acoustic coupler I got from a buddy quite some time ago.

Looking for something different, I recently downloaded and installed Ubuntu on my netbook. I have been a LOYAL Sabayon Linux user for many years now. I still use Sabayon, but wanted to learn another distribution. Since Ubuntu seems to be a popular distribution, I thought I would give it a try.

I first downloaded the Ubuntu netbook remix, but I hated the interface. Then, I downloaded and installed the standard desktop edition (10.04). On my Hannspree Hanns Note Netbook, installation worked like a champ. No issues, wireless and bluetooth worked out of the box. 10.04 is fast and responsive. Webcam and hotkeys worked too.

Linux basic commands are all the same, but there are some differences between Sabayon and Ubuntu. I’m working on getting used to the new commands like apt-get.

I am excited… just got a new computer. Since my old desktop was Ancient (AMD 3400+), I had to get a new computer. I had some extra cash, so I got me an AMD Phenom™ 9750 Quad Core processor. Stuck it in an ASUS motherboard, stuck 4 gigs of Corsair ram in it, a 1 TB SATA drive, SATA DVD+/- RW. The case is beautiful… with blue LEDs lighting up the… well… underneath my desk.

Thus far, I put windows 7 on it, but will probably dual boot linux at some point. Not sure yet. I’m kind of liking windows 7. I still have a linux box (my old desktop), which I run as a file server, serving up my movies, photo’s, and other various files. I’m running Sabayon Linux as the server OS.

I’ll stick a picture of it up later.

Greetings all…

Since I haven’t replaced any computers in quite a while now, I figured it was time get the family a new computer or two. Picked the kids up an Compaq from Best buy. Ordered myself a barebones kit from Tiger direct and also my wife and I both got a netbook.

We’re all running Windows 7 and love it. I’m turning my old Compaq into a file server. Currently threw linux on it and I’m serving some movies from a 1 Terabyte drive with some movies on it.