Visual Basic

Member 4705584 wrote:

BTW: I am not making virus, i am making usb security app...

Member 4705584 wrote:

I am not making virus, i am making usb security app..

I are Troll

Eddy Vluggen wrote:

Then why are you trying to create a specific type of virus

Eddy Vluggen wrote:

as opposed to a service which recognizes suspicious behaviour and that can scan a file for binary blobs that match known virusses from your database?

Eddy Vluggen wrote:

There's enough information on the AutoRun.inf file on the internet, so it would be redundant to copy that here.

Eddy Vluggen wrote:

Aw, and AutoRun the first feature I disable on every PC that meets me Smile

FeRtoll wrote:

i am not making virus!

FeRtoll wrote:

yes i know its much info!

FeRtoll wrote:

to me is seccond i first disable system restore! do you?

FeRtoll wrote:

you not even close..

I are Troll

FeRtoll wrote:

to me is seccond i first disable system restore! do you?

Dave Kreskowiak wrote:

System Resotre isn't a security rick

Dave Kreskowiak wrote:

I leave that running just in case the users screw up their machine. SR at least has a chance to recover. I'm not saying that it works every time, but it's at least a tool I can use on a users machine to try and recover it.

FeRtoll wrote:

it is... exsample with my "virus" i created if you have system restore enabled you would be infected forever

FeRtoll wrote:

i use other tools, windows cd and repair, ghost image, etc...

Dave Kreskowiak wrote:

Not in my environment.

Dave Kreskowiak wrote:

Sometime, reimaging the entire machine is not an acceptable solution.

FeRtoll wrote:

you mean on other operating system or you tink you would catch it (find it)?

FeRtoll wrote:

Nevermind but system restore isnt secured

FeRtoll wrote:

OH and Dave I know you are long time here on forum so please if you can help and connect my 2 accounts this one and the root post user "Member...", i sent mail to this forum but still nothing it happent when i changed my e-mail 2 years ago, i didnt registered twice i just changed mail and it switched me to different account! Actualy i just want this account to have my fertoll@post.t-com.hr address not the old one i have now... if u can do something

FeRtoll wrote:

it is... exsample with my "virus" i created if you have system restore enabled you would be infected forever and you would newer know you are infected...

I are Troll

Eddy Vluggen wrote:

Most virusscanners wouldn't recognize your "virus" because they don't have a signature to recognize.

Eddy Vluggen wrote:

We could ask someone from Symantec or MacAfee to verify it using your code, if you desire? Smile

Public Class CalMonitor
    Private _lastReset As DateTime
    Private Const SecondsBetweenCalibrationsAllowed As Integer = 30
    Private _abort As Boolean

    Public Event TimeToCalibrate()
    Public Event ResetSuccessful()

    Public Sub New()
        _lastReset = DateTime.Now
        _abort = False
    End Sub

    'need to re-calibrate every 30 seconds
    Public Sub StartMonitor()
        While Not _abort
            Dim timeSinceLastReset As TimeSpan = DateTime.Now.Subtract(_lastReset)

            If timeSinceLastReset.TotalSeconds > SecondsBetweenCalibrationsAllowed Then
                RaiseEvent TimeToCalibrate()
                Threading.Thread.Sleep(5000)
            Else
                If ((SecondsBetweenCalibrationsAllowed - _
                    timeSinceLastReset.TotalSeconds) * 100) < 5000 Then
                    Threading.Thread.Sleep((SecondsBetweenCalibrationsAllowed - _
                                            timeSinceLastReset.TotalSeconds) * 100)
                Else
                    Threading.Thread.Sleep(5000)
                End If
            End If
        End While
    End Sub

    Public Sub CalibrationReset()
        _lastReset = DateTime.Now
        RaiseEvent ResetSuccessful()
    End Sub

    Public Sub StopMonitor()
        _abort = True
    End Sub

End Class

Public Class Form1
    Private myCalMonitor As CalMonitor
    Private calMonitorThread As Threading.Thread

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                           Handles MyBase.Load
        myCalMonitor = New CalMonitor
        AddHandler myCalMonitor.TimeToCalibrate, AddressOf CalMonitor_TimeToReset

        calMonitorThread = New Threading.Thread(AddressOf myCalMonitor.StartMonitor)
        calMonitorThread.Start()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        myCalMonitor.StopMonitor()
        Me.Hide()
        calMonitorThread.Join()
    End Sub

    Private Sub CalMonitor_TimeToReset()
        MessageBox.Show("Time to reset calibration")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                              Handles Button1.Click
        myCalMonitor.CalibrationReset()
    End Sub
End Class

Public Class clsCalMonitor

    Private Const WARNING_TIME As Integer = 12600       '3.5 hours
    Private Const CRITICAL_TIME As Integer = 13800      '3 hours 50 minutes
    Private Const OVER_TIME As Integer = 14400          '4 hours

    Private _lastReset As DateTime
    Private _abort As Boolean

    Public Event Cal_Warning()
    Public Event Cal_Critical()
    Public Event Cal_Over()
    Public Event Cal_ResetSuccessful()
    Public Event MonitorStopped()

    Private Sub Monitor()
        While Not _abort
            Dim timeSinceLastReset As TimeSpan = DateTime.Now.Subtract(_lastReset)

            If timeSinceLastReset.TotalSeconds >= WARNING_TIME AndAlso timeSinceLastReset.TotalSeconds < CRITICAL_TIME Then
                RaiseEvent Cal_Warning()
                Threading.Thread.Sleep(5000)
            ElseIf timeSinceLastReset.TotalSeconds >= CRITICAL_TIME AndAlso timeSinceLastReset.TotalSeconds < OVER_TIME Then
                RaiseEvent Cal_Critical()
                Threading.Thread.Sleep(5000)
            ElseIf timeSinceLastReset.TotalSeconds >= OVER_TIME Then
                RaiseEvent Cal_Over()
                Threading.Thread.Sleep(5000)
            Else
                Threading.Thread.Sleep(5000)
            End If
        End While
    End Sub

    Public Sub CalibrationReset()
        _lastReset = DateTime.Now
        RaiseEvent Cal_ResetSuccessful()
    End Sub

    Public Sub StartMonitor()
        _lastReset = DateTime.Now
        _abort = False
        Monitor()
    End Sub

    Public Sub StopMonitor()
        _abort = True
        RaiseEvent MonitorStopped()
    End Sub

Public Sub ReceiveFile(ByRef ReceivedFile As clsJBXFile, Optional ByVal NewJob As Boolean = True)

        StateFlag = (StateFlag Or StateType.Loading)

        CalMonitor = New clsCalMonitor
        CalMonitorThread = New Threading.Thread(AddressOf CalMonitor.StartMonitor)
        CalMonitor.StartMonitor()

        AddHandler CalMonitor.Cal_Warning, AddressOf CalMonitor_Warning
        AddHandler CalMonitor.Cal_Critical, AddressOf CalMonitor_Critical
        AddHandler CalMonitor.Cal_Over, AddressOf CalMonitor_Warning


        JBXFile = ReceivedFile

        LoadRooms()
        LoadCustoms()
        LoadSettings()

        SaveCounter = 0             'Reset Save Counter to 0
        CurrentReadingNumber = 1    'Reset CurrentReadingNumber to the first reading

        If NewJob Then
            SetForNewJob()
        Else
            SetForPreviousJob()
        End If

        StateFlag = (StateFlag And Not StateType.Loading)
        MessageFlag = MessageType.None

    End Sub