RGuillermo
asked on
after BitDefender and Malwarebytes again Trojan.heur.VB.hm0@de8yTXki
After using Bitdefender (licensed) and Malwarebytes(free) all trojans were deleted. Then I restarted the machine and compiled my app with vb6 and again check it with bitdefender and its still with the trojan. What can I do in this case?
ASKER
Ssharma,
You mean the source code has some trojan code somehow? and I am compiling it??
I just checked the source since its very small.
What else can I do?
Private Sub Form_Load()
W_TIT_BCK_COL = RGB(255, 179, 179)
W_TIT_FNT_COL = RGB(0, 0, 0)
Open "c:\tmp\m4_t01_t.txt" For Input As #1 Len = 200
Input #1, w
w_tot_reg = Val(w)
Input #1, w
w_tot_fld = Val(w)
Input #1, w
w_filespec = Trim(w)
Input #1, w
w_company = Trim(w)
Input #1, w
w_year = Trim(w)
Input #1, w
w_dat_tim = Trim(w)
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Applic ation")
Dim objBook As Object
Set objBook = appExcel.Workbooks.Add
Dim objsheet As Object
Set objsheet = objBook.Sheets("Sheet1")
appExcel.Visible = True
dt = Now()
dt = Mid(Str(10000 + Year(dt)), 3, 4) & "-" & Mid(Str(100 + Month(dt)), 3, 2) & "-" & Mid(Str(100 + Day(dt)), 3, 2) & "_" & _
Mid(Str(100 + Hour(dt)), 3, 2) & "-" & Mid(Str(100 + Minute(dt)), 3, 2) & "-" & Mid(Str(100 + Second(dt)), 3, 2)
objsheet.SaveAs ("c:\tmp\m4_t01_xls__" & dt & ".xls")
objsheet.Cells(2, 2).Value = "Year: " + w_year + " AZV Account Balance"
objsheet.Cells(2, 2).Font.Bold = True
objsheet.Cells(2, 2).Font.Size = 20
objsheet.Cells(3, 2).Value = w_company
objsheet.Cells(3, 2).Font.Bold = True
objsheet.Cells(3, 2).Font.Size = 14
objsheet.Cells(4, 2).Value = "* Printed on: " + w_dat_tim
objsheet.Cells(4, 2).Font.Bold = True
objsheet.Cells(4, 2).Font.Size = 12
Dim flds(25)
Dim m_val(6)
m_val(1) = "Month"
m_val(2) = "Qty"
m_val(3) = "Amount"
fi = 7
For c = 1 To 3
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Bold = True
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi, c + 1), Cells(fi, c + 1)))
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Value = m_val(c)
Next c
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).MergeCells = True
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Bold = True
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi - 1, 2), Cells(fi - 1, 4)))
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Value = "PRODUCTION"
x = ms_borderaround(objsheet.R ange(Cells (fi + 1, 2), Cells(fi + w_tot_reg, 2)))
x = ms_borderaround(objsheet.R ange(Cells (fi + 1, 3), Cells(fi + w_tot_reg, 3)))
x = ms_borderaround(objsheet.R ange(Cells (fi + 1, 4), Cells(fi + w_tot_reg, 4)))
TOT = 0
to2 = 0
For a = 1 To w_tot_reg
Input #1, w
v01 = Trim(w)
Input #1, w
v02 = Trim(w)
Input #1, w
v03 = Trim(w)
objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).Value = v01
objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).Value = v02
objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).Value = v03
objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).NumberFormat = "#,##0.00"
TOT = TOT + Val(v03)
to2 = to2 + Val(v02)
Next a
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)))
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Value = "TOTAL :"
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)))
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Value = to2
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)))
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).NumberFormat = "#,##0.00"
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Value = TOT
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).ColumnWidth = 12
Close #1
w1 = w_tot_reg
Open "c:\tmp\m4_t02_b_t.txt" For Input As #1 Len = 200
Input #1, w
w_tot_reg = Val(w)
Input #1, w
w_tot_fld = Val(w)
Input #1, w
w_filespec = Trim(w)
Input #1, w
w_company = Trim(w)
Input #1, w
w_year = Trim(w)
Input #1, w
w_dat_tim = Trim(w)
m_val(1) = "Qty"
m_val(2) = "Total"
'm_val(3) = "Qty"
'm_val(4) = "Amount"
objsheet.Range(Cells(1, 1), Cells(1, 1)).ColumnWidth = 1
objsheet.Range(Cells(1, 5), Cells(1, 5)).ColumnWidth = 1
fi = 7
For c = 1 To 12
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Bold = True
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi, c + 5), Cells(fi, c + 5)))
x = ms_borderaround(objsheet.R ange(Cells (fi + 1, c + 5), Cells(fi + w1, c + 5)))
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Value = m_val((c - 1) Mod 2 + 1)
' ** Totales
x = ms_borderaround(objsheet.R ange(Cells (fi + 13, c + 5), Cells(fi + 13, c + 5)))
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Bold = True
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Name = "Arial Narrow"
If c Mod 2 = 1 Then
objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).HorizontalAlignment = xlCenter
Else
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).ColumnWidth = 10
objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).NumberFormat = "#,##0.00"
End If
Next c
fi = 7
m_val(1) = "X"
m_val(2) = "I"
m_val(3) = "S"
m_val(4) = "R"
m_val(5) = "P"
m_val(6) = "L"
For c = 1 To 6
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).MergeCells = True
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Bold = True
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R ange(Cells (fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)))
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Value = m_val(c)
Next c
objsheet.Range(Cells(fi - 1, 1 * 2 + 4), Cells(fi - 1, 1 * 2 + 4 + 1)).Interior.Color = RGB(192, 192, 192) ' GREY
objsheet.Range(Cells(fi - 1, 2 * 2 + 4), Cells(fi - 1, 2 * 2 + 4 + 1)).Interior.Color = RGB(255, 255, 0) ' AMARILLO
objsheet.Range(Cells(fi - 1, 3 * 2 + 4), Cells(fi - 1, 3 * 2 + 4 + 1)).Interior.Color = RGB(0, 255, 0) ' Verde
objsheet.Range(Cells(fi - 1, 4 * 2 + 4), Cells(fi - 1, 4 * 2 + 4 + 1)).Interior.Color = RGB(255, 72, 72) ' Rojo Sangre
objsheet.Range(Cells(fi - 1, 5 * 2 + 4), Cells(fi - 1, 5 * 2 + 4 + 1)).Interior.Color = RGB(28, 181, 255) ' Azul Royal
TOT = 0
to2 = 0
Dim tt(6, 2)
For a = 1 To w_tot_reg
Input #1, w
v01 = Trim(w)
Input #1, w
v02 = Trim(w)
Input #1, w
v03 = Trim(w)
Input #1, w
v04 = Trim(w)
mon = Val(Mid(v01, 6, 2))
c2 = 0
Select Case v02
Case "X"
c2 = 1
Case "I"
c2 = 2
Case "S"
c2 = 3
Case "R"
c2 = 4
Case "P"
c2 = 5
Case "L"
c2 = 6
End Select
objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 6), Cells(fi + mon, (c2 - 1) * 2 + 6)).Value = v03
objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 7), Cells(fi + mon, (c2 - 1) * 2 + 7)).Value = v04
tt(c2, 1) = tt(c2, 1) + Val(v03)
tt(c2, 2) = tt(c2, 2) + Val(v04)
Next a
For c = 1 To 6
objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 6), Cells(fi + 13, (c - 1) * 2 + 6)).Value = tt(c, 1)
objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 7), Cells(fi + 13, (c - 1) * 2 + 7)).Value = tt(c, 2)
Next c
Close #1
ActiveWorkbook.Save
End
End Sub
Function backgroundcolor_range(objs heet, a, w_tot_hou, w_tot_gro)
Dim m_col(5)
m_col(1) = RGB(255, 255, 166) ' Amarillo Pastel
m_col(2) = RGB(159, 255, 207) ' Verde pastel
m_col(3) = RGB(204, 204, 255) '
m_col(4) = RGB(190, 125, 255)
m_col(5) = RGB(255, 221, 170)
For a = 1 To 5
objsheet.Range(Cells(7 + (a - 1) * w_tot_hou + 1, 2), Cells(7 + a * w_tot_hou, 2 + w_tot_gro * 4)).Interior.Color = m_col(a)
Next a
End Function
Function marca_borde_de_dia(objshee t, a, w_tot_hou, w_tot_gro)
x = ms_borderaround(objsheet.R ange(Cells (7 + (a - 1) * w_tot_hou + 1, 2), Cells(7 + a * w_tot_hou, 2 + w_tot_gro * 4)))
End Function
Function marca_borde_de_grupo(objsh eet, a, p_tot_hou)
x = ms_borderaround(objsheet.R ange(Cells (7 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + (p_tot_hou * 5), 2 + a * 4)))
End Function
Public Function header(objsheet, a, p_gro_hou, p_tot_hou)
' p_gro_hou = Total horas que trabaja en grupo en la semana.
' p_tot_hou = Total horas que tiene el dia.
For b = 4 To 6
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Select
x = ms_borderaround(objsheet.R ange(Cells (b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)))
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).MergeCells = True
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Bold = True
Next b
objsheet.Columns(2 + (a - 1) * 4 + 1).ColumnWidth = 3
objsheet.Columns(2 + (a - 1) * 4 + 2).ColumnWidth = 8
objsheet.Columns(2 + (a - 1) * 4 + 3).ColumnWidth = 8
objsheet.Columns(2 + (a - 1) * 4 + 4).ColumnWidth = 8
Dim m_val(4)
m_val(1) = "h"
m_val(2) = "Vak"
m_val(3) = "Ler"
m_val(4) = "Lok"
For b = 1 To 4
x = ms_borderaround(objsheet.R ange(Cells (7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)))
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).VerticalAlignment = xlCenter
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Value = m_val(b)
Next b
objsheet.Range(Cells(7 + w_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + w_tot_hou * 5 + 1, 2 + a * 4)).Select
x = ms_borderaround(objsheet.R ange(Cells (7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)))
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).MergeCells = True
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Bold = True
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Size = 24
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Value = p_gro_hou
End Function
Public Function ms_borderaround(sheetrange )
' v1 = range
'left
sheetrange.Borders(xlEdgeL eft).LineS tyle = xlContinuous
sheetrange.Borders(xlEdgeL eft).Weigh t = xlThick
sheetrange.Borders(xlEdgeL eft).Color Index = xlAutomatic
'top
sheetrange.Borders(xlEdgeT op).LineSt yle = xlContinuous
sheetrange.Borders(xlEdgeT op).Weight = xlThick
sheetrange.Borders(xlEdgeT op).ColorI ndex = xlAutomatic
'right
sheetrange.Borders(xlEdgeR ight).Line Style = xlContinuous
sheetrange.Borders(xlEdgeR ight).Weig ht = xlThick
sheetrange.Borders(xlEdgeR ight).Colo rIndex = xlAutomatic
'bottom
sheetrange.Borders(xlEdgeB ottom).Lin eStyle = xlContinuous
sheetrange.Borders(xlEdgeB ottom).Wei ght = xlThick
sheetrange.Borders(xlEdgeB ottom).Col orIndex = xlAutomatic
End Function
Function aaa()
objsheet.Range(v1).Borders (xlEdgeLef t).LineSty le = xlContinuous
objsheet.Range(v1).Borders (xlEdgeLef t).Weight = xlThick
objsheet.Range(v1).Borders (xlEdgeLef t).ColorIn dex = xlAutomatic
'top
objsheet.Range(v1).Borders (xlEdgeTop ).LineStyl e = xlContinuous
objsheet.Range(v1).Borders (xlEdgeTop ).Weight = xlThick
objsheet.Range(v1).Borders (xlEdgeTop ).ColorInd ex = xlAutomatic
'right
objsheet.Range(v1).Borders (xlEdgeRig ht).LineSt yle = xlContinuous
objsheet.Range(v1).Borders (xlEdgeRig ht).Weight = xlThick
objsheet.Range(v1).Borders (xlEdgeRig ht).ColorI ndex = xlAutomatic
'bottom
objsheet.Range(v1).Borders (xlEdgeBot tom).LineS tyle = xlContinuous
objsheet.Range(v1).Borders (xlEdgeBot tom).Weigh t = xlThick
objsheet.Range(v1).Borders (xlEdgeBot tom).Color Index = xlAutomatic
End Function
You mean the source code has some trojan code somehow? and I am compiling it??
I just checked the source since its very small.
What else can I do?
Private Sub Form_Load()
W_TIT_BCK_COL = RGB(255, 179, 179)
W_TIT_FNT_COL = RGB(0, 0, 0)
Open "c:\tmp\m4_t01_t.txt" For Input As #1 Len = 200
Input #1, w
w_tot_reg = Val(w)
Input #1, w
w_tot_fld = Val(w)
Input #1, w
w_filespec = Trim(w)
Input #1, w
w_company = Trim(w)
Input #1, w
w_year = Trim(w)
Input #1, w
w_dat_tim = Trim(w)
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Applic
Dim objBook As Object
Set objBook = appExcel.Workbooks.Add
Dim objsheet As Object
Set objsheet = objBook.Sheets("Sheet1")
appExcel.Visible = True
dt = Now()
dt = Mid(Str(10000 + Year(dt)), 3, 4) & "-" & Mid(Str(100 + Month(dt)), 3, 2) & "-" & Mid(Str(100 + Day(dt)), 3, 2) & "_" & _
Mid(Str(100 + Hour(dt)), 3, 2) & "-" & Mid(Str(100 + Minute(dt)), 3, 2) & "-" & Mid(Str(100 + Second(dt)), 3, 2)
objsheet.SaveAs ("c:\tmp\m4_t01_xls__" & dt & ".xls")
objsheet.Cells(2, 2).Value = "Year: " + w_year + " AZV Account Balance"
objsheet.Cells(2, 2).Font.Bold = True
objsheet.Cells(2, 2).Font.Size = 20
objsheet.Cells(3, 2).Value = w_company
objsheet.Cells(3, 2).Font.Bold = True
objsheet.Cells(3, 2).Font.Size = 14
objsheet.Cells(4, 2).Value = "* Printed on: " + w_dat_tim
objsheet.Cells(4, 2).Font.Bold = True
objsheet.Cells(4, 2).Font.Size = 12
Dim flds(25)
Dim m_val(6)
m_val(1) = "Month"
m_val(2) = "Qty"
m_val(3) = "Amount"
fi = 7
For c = 1 To 3
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Bold = True
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Value = m_val(c)
Next c
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).MergeCells = True
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Bold = True
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Value = "PRODUCTION"
x = ms_borderaround(objsheet.R
x = ms_borderaround(objsheet.R
x = ms_borderaround(objsheet.R
TOT = 0
to2 = 0
For a = 1 To w_tot_reg
Input #1, w
v01 = Trim(w)
Input #1, w
v02 = Trim(w)
Input #1, w
v03 = Trim(w)
objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).Value = v01
objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).Value = v02
objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).Value = v03
objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).NumberFormat = "#,##0.00"
TOT = TOT + Val(v03)
to2 = to2 + Val(v02)
Next a
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Value = "TOTAL :"
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Value = to2
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).MergeCells = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Bold = True
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).NumberFormat = "#,##0.00"
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Value = TOT
objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).ColumnWidth = 12
Close #1
w1 = w_tot_reg
Open "c:\tmp\m4_t02_b_t.txt" For Input As #1 Len = 200
Input #1, w
w_tot_reg = Val(w)
Input #1, w
w_tot_fld = Val(w)
Input #1, w
w_filespec = Trim(w)
Input #1, w
w_company = Trim(w)
Input #1, w
w_year = Trim(w)
Input #1, w
w_dat_tim = Trim(w)
m_val(1) = "Qty"
m_val(2) = "Total"
'm_val(3) = "Qty"
'm_val(4) = "Amount"
objsheet.Range(Cells(1, 1), Cells(1, 1)).ColumnWidth = 1
objsheet.Range(Cells(1, 5), Cells(1, 5)).ColumnWidth = 1
fi = 7
For c = 1 To 12
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Bold = True
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Value = m_val((c - 1) Mod 2 + 1)
' ** Totales
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Bold = True
objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Name = "Arial Narrow"
If c Mod 2 = 1 Then
objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).HorizontalAlignment = xlCenter
Else
objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).ColumnWidth = 10
objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).NumberFormat = "#,##0.00"
End If
Next c
fi = 7
m_val(1) = "X"
m_val(2) = "I"
m_val(3) = "S"
m_val(4) = "R"
m_val(5) = "P"
m_val(6) = "L"
For c = 1 To 6
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).MergeCells = True
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).VerticalAlignment = xlCenter
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Interior.Color = W_TIT_BCK_COL
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Color = W_TIT_FNT_COL
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Bold = True
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Name = "Arial Narrow"
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Value = m_val(c)
Next c
objsheet.Range(Cells(fi - 1, 1 * 2 + 4), Cells(fi - 1, 1 * 2 + 4 + 1)).Interior.Color = RGB(192, 192, 192) ' GREY
objsheet.Range(Cells(fi - 1, 2 * 2 + 4), Cells(fi - 1, 2 * 2 + 4 + 1)).Interior.Color = RGB(255, 255, 0) ' AMARILLO
objsheet.Range(Cells(fi - 1, 3 * 2 + 4), Cells(fi - 1, 3 * 2 + 4 + 1)).Interior.Color = RGB(0, 255, 0) ' Verde
objsheet.Range(Cells(fi - 1, 4 * 2 + 4), Cells(fi - 1, 4 * 2 + 4 + 1)).Interior.Color = RGB(255, 72, 72) ' Rojo Sangre
objsheet.Range(Cells(fi - 1, 5 * 2 + 4), Cells(fi - 1, 5 * 2 + 4 + 1)).Interior.Color = RGB(28, 181, 255) ' Azul Royal
TOT = 0
to2 = 0
Dim tt(6, 2)
For a = 1 To w_tot_reg
Input #1, w
v01 = Trim(w)
Input #1, w
v02 = Trim(w)
Input #1, w
v03 = Trim(w)
Input #1, w
v04 = Trim(w)
mon = Val(Mid(v01, 6, 2))
c2 = 0
Select Case v02
Case "X"
c2 = 1
Case "I"
c2 = 2
Case "S"
c2 = 3
Case "R"
c2 = 4
Case "P"
c2 = 5
Case "L"
c2 = 6
End Select
objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 6), Cells(fi + mon, (c2 - 1) * 2 + 6)).Value = v03
objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 7), Cells(fi + mon, (c2 - 1) * 2 + 7)).Value = v04
tt(c2, 1) = tt(c2, 1) + Val(v03)
tt(c2, 2) = tt(c2, 2) + Val(v04)
Next a
For c = 1 To 6
objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 6), Cells(fi + 13, (c - 1) * 2 + 6)).Value = tt(c, 1)
objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 7), Cells(fi + 13, (c - 1) * 2 + 7)).Value = tt(c, 2)
Next c
Close #1
ActiveWorkbook.Save
End
End Sub
Function backgroundcolor_range(objs
Dim m_col(5)
m_col(1) = RGB(255, 255, 166) ' Amarillo Pastel
m_col(2) = RGB(159, 255, 207) ' Verde pastel
m_col(3) = RGB(204, 204, 255) '
m_col(4) = RGB(190, 125, 255)
m_col(5) = RGB(255, 221, 170)
For a = 1 To 5
objsheet.Range(Cells(7 + (a - 1) * w_tot_hou + 1, 2), Cells(7 + a * w_tot_hou, 2 + w_tot_gro * 4)).Interior.Color = m_col(a)
Next a
End Function
Function marca_borde_de_dia(objshee
x = ms_borderaround(objsheet.R
End Function
Function marca_borde_de_grupo(objsh
x = ms_borderaround(objsheet.R
End Function
Public Function header(objsheet, a, p_gro_hou, p_tot_hou)
' p_gro_hou = Total horas que trabaja en grupo en la semana.
' p_tot_hou = Total horas que tiene el dia.
For b = 4 To 6
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Select
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).MergeCells = True
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Bold = True
Next b
objsheet.Columns(2 + (a - 1) * 4 + 1).ColumnWidth = 3
objsheet.Columns(2 + (a - 1) * 4 + 2).ColumnWidth = 8
objsheet.Columns(2 + (a - 1) * 4 + 3).ColumnWidth = 8
objsheet.Columns(2 + (a - 1) * 4 + 4).ColumnWidth = 8
Dim m_val(4)
m_val(1) = "h"
m_val(2) = "Vak"
m_val(3) = "Ler"
m_val(4) = "Lok"
For b = 1 To 4
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).VerticalAlignment = xlCenter
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Value = m_val(b)
Next b
objsheet.Range(Cells(7 + w_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + w_tot_hou * 5 + 1, 2 + a * 4)).Select
x = ms_borderaround(objsheet.R
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).MergeCells = True
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).HorizontalAlignment = xlCenter
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).VerticalAlignment = xlCenter
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Bold = True
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Size = 24
objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Value = p_gro_hou
End Function
Public Function ms_borderaround(sheetrange
' v1 = range
'left
sheetrange.Borders(xlEdgeL
sheetrange.Borders(xlEdgeL
sheetrange.Borders(xlEdgeL
'top
sheetrange.Borders(xlEdgeT
sheetrange.Borders(xlEdgeT
sheetrange.Borders(xlEdgeT
'right
sheetrange.Borders(xlEdgeR
sheetrange.Borders(xlEdgeR
sheetrange.Borders(xlEdgeR
'bottom
sheetrange.Borders(xlEdgeB
sheetrange.Borders(xlEdgeB
sheetrange.Borders(xlEdgeB
End Function
Function aaa()
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
'top
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
'right
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
'bottom
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
objsheet.Range(v1).Borders
End Function
@rguillermo,
Is BD pointing the Trojan to your App only?
Did you tried Full System scan with BD? Could you post the scan logs?
Sudeep
Is BD pointing the Trojan to your App only?
Did you tried Full System scan with BD? Could you post the scan logs?
Sudeep
ASKER
Yes BD is only reporting my compiled exe from VB6
This is the scan log after full scan
BitDefender Log File
Product : Bitdefender Antivirus Plus 2012
Scanning task : Device Scanning
Log date : Tuesday, April 17, 2012 6:23:16 AM
Log path : C:\Users\Administrator\App Data\Roami ng\Bitdefe nder\Deskt op\Profile s\Logs\db7 af1a4-db8- 4f42-903a- 9d200e40d0 3c\1334657 423_1_02.x ml
Scan Paths:
Path : G:\
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
File: G:\_ms\_02_den\_01_den\azv _doc.exe Gen:Trojan.Heur.VB.cm0@dee 8jkji Deleted
File: G:\_ms\_02_den\_01_den\rep _m4_01.exe Gen:Trojan.Heur.VB.im0@dqX 8aAji Deleted
File: G:\INSTALL____01_AUT_ROO__ _2012-02-1 3___08-42- 20.rar=>_f i\_07_epi\ _01_AUT_RO O\r17_xls. exe Gen:Trojan.Heur.VB.em0@dad owchi Moved to Quarantine
File: G:\_ms\_02_den\_01_den\rep _m4_02.exe Gen:Trojan.Heur.VB.hm0@d47 !31ki Deleted
File: G:\INSTALL____01_AUT_ROO__ _2012-02-1 3___08-42- 20.rar=>_f i\_07_epi\ _01_AUT_RO O\r18_xls. exe Gen:Trojan.Heur.VB.gm0@dWT 0X1oi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO__ _2012-02-1 3___08-42- 20.rar=>_f i\_07_epi\ _01_AUT_RO O\r19_xls. exe Gen:Trojan.Heur.VB.em0@dm5 !APhi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO__ _2012-02-1 3___08-42- 20.rar=>_f i\_07_epi\ _01_AUT_RO O\epi_1_we b_act.exe Gen:Trojan.Heur.VB.bm0@deK c2Noi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO__ _2012-02-1 3___08-42- 20.rar=>_f i\_07_epi\ _01_AUT_RO O\r19_xls_ ir.exe Gen:Trojan.Heur.VB.fm0@d4X jeZfi Moved to Quarantine
File: G:\_ms\_02_den\_01_den\cit _doc.exe Gen:Trojan.Heur.VB.cm0@dKe mtEki Deleted
[-]Detailed Scan Summary
[-]Basic
Scanned items : 3665
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
[-]Advanced
Scan time : 0: 12: 21
Files per second : 4
Skipped items : 0
Password-protected items : 0
Overcompressed items : 0
Scanned archives : 4
Input-output errors : 0
Scanned boot sectors : 0
Scanned processes : 0
Infected processes : 0
Scanned registry keys : 0
Infected registry keys : 0
Scanned cookies : 0
Infected cookies : 0
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : No
Scan for keyloggers : Yes
[-]Target Selection Options:
Scan registry keys : No
Scan cookies : No
Scan boot sectors : No
Scan memory processes : No
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : None
Default action for password-protected objects : Log as not scanned
[-]Scan engines summary
Number of virus signatures : 7074001
This is the scan log after full scan
BitDefender Log File
Product : Bitdefender Antivirus Plus 2012
Scanning task : Device Scanning
Log date : Tuesday, April 17, 2012 6:23:16 AM
Log path : C:\Users\Administrator\App
Scan Paths:
Path : G:\
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
File: G:\_ms\_02_den\_01_den\azv
File: G:\_ms\_02_den\_01_den\rep
File: G:\INSTALL____01_AUT_ROO__
File: G:\_ms\_02_den\_01_den\rep
File: G:\INSTALL____01_AUT_ROO__
File: G:\INSTALL____01_AUT_ROO__
File: G:\INSTALL____01_AUT_ROO__
File: G:\INSTALL____01_AUT_ROO__
File: G:\_ms\_02_den\_01_den\cit
[-]Detailed Scan Summary
[-]Basic
Scanned items : 3665
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
[-]Advanced
Scan time : 0: 12: 21
Files per second : 4
Skipped items : 0
Password-protected items : 0
Overcompressed items : 0
Scanned archives : 4
Input-output errors : 0
Scanned boot sectors : 0
Scanned processes : 0
Infected processes : 0
Scanned registry keys : 0
Infected registry keys : 0
Scanned cookies : 0
Infected cookies : 0
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : No
Scan for keyloggers : Yes
[-]Target Selection Options:
Scan registry keys : No
Scan cookies : No
Scan boot sectors : No
Scan memory processes : No
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : None
Default action for password-protected objects : Log as not scanned
[-]Scan engines summary
Number of virus signatures : 7074001
@rguillermo,
Scanning task : Device Scanning
Path : G:\
Did you run the full system scan?
I could see only Device scanning and Drive G is scanned. Is this your USB Pen Drive?
Further, scan also shows 9 infected files and as per you there should be only 1 which is your compiled VB file.
I think your system or Pen Drive was infected.
You would still need to run full system scan.
Thanks,
Sudeep
Scanning task : Device Scanning
Path : G:\
Did you run the full system scan?
I could see only Device scanning and Drive G is scanned. Is this your USB Pen Drive?
Further, scan also shows 9 infected files and as per you there should be only 1 which is your compiled VB file.
I think your system or Pen Drive was infected.
You would still need to run full system scan.
Thanks,
Sudeep
ASKER
Ssharma,
I just finished a full scan of drive c:\
Here is the log.
All USBs I unplugged and I am scanning separately.
BitDefender Log File
Product : Bitdefender Antivirus Plus 2012
Scanning task : Full System Scan
Log date : Tuesday, April 17, 2012 5:12:38 PM
Log path : C:\ProgramData\Bitdefender \Desktop\P rofiles\Lo gs\dcf483c 4-26d0-4e6 f-ba28-6a5 3a00adae1\ 1334671935 _1_02.xml
Scan Paths:
Path : C:\
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\A 5CMLBYA.tx t Cookie.2o7 Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\U DV9HK4B.tx t Cookie.Apmebf Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\T MXHVEOV.tx t Cookie.Mediaplex Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\K 3LMX63O.tx t Cookie.TribalFusion Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\0 EDPIVLY.tx t Cookie.DoubleClick Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\C 4Q61B3N.tx t Cookie.WebTrends Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\F 622DKYN.tx t Cookie.Advertising Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\I QJ86IX0.tx t Cookie.2o7 Deleted
Cookie: C:\Users\Administrator\App Data\Roami ng\Microso ft\Windows \Cookies\Q WM3IZPH.tx t Cookie.Xiti Deleted
[-]Objects that were not scanned:Object Path Reason Final Status
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>Fil eList.txt Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/2 ab858ed-45 0b-4bb6-b6 7c-8e3c45e c13ac/1334 603131_1_0 2.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\bins\w12 idatx1913z d.bin=>dat a=>info.en c Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/2 ab858ed-45 0b-4bb6-b6 7c-8e3c45e c13ac/1334 603052_1_0 2.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13309 57131_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ General\Re nzo_pay_sl ips.xls Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ General\Me disoft_Emp loyees Payslips.xls Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\bins\w12 idatx1913z d.bin=>dat a=>interna lList.zip= >internalL ist.dat Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13329 67500_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/6c6a0 5a3-89e5-4 f89-bab5-a 5e25bade8b e/13311542 09_1_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/2 ab858ed-45 0b-4bb6-b6 7c-8e3c45e c13ac/1334 650407_3_0 2.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\idatx.ca b=>info.en c Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\bins\w12 idatx1913z d.bin=>inf o.enc Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/2 ab858ed-45 0b-4bb6-b6 7c-8e3c45e c13ac/1334 650457_1_0 2.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13329 38618_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13323 78674_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\idatx.ca b=>interna lList.zip= >internalL ist.dat Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/6c6a0 5a3-89e5-4 f89-bab5-a 5e25bade8b e/13330247 39_1_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/dcf48 3c4-26d0-4 e6f-ba28-6 a53a00adae 1/13346059 87_1_02.xm l Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ _01_Mediso ft\ms_invo ice 2008.xls Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\bins\w12 idatx1913z d.bin=>dat a=>interna lList.zip= >info.enc Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ General\Ma intenance Service.xls Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/6c6a0 5a3-89e5-4 f89-bab5-a 5e25bade8b e/13317676 78_1_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/9 44f0000-cd fb-4606-f9 72-f90b029 66591/1334 603007_3_0 1.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pac k\idatx.ca b=>interna lList.zip= >info.enc Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/dcf48 3c4-26d0-4 e6f-ba28-6 a53a00adae 1/13306161 33_3_03.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/dcf48 3c4-26d0-4 e6f-ba28-6 a53a00adae 1/13306310 82_3_03.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13323 78027_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13346 57423_1_02 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13323 29646_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/2 ab858ed-45 0b-4bb6-b6 7c-8e3c45e c13ac/1334 653163_1_0 3.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/6c6a0 5a3-89e5-4 f89-bab5-a 5e25bade8b e/13323815 15_1_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13329 49139_1_01 .xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/dcf48 3c4-26d0-4 e6f-ba28-6 a53a00adae 1/13346658 53_3_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13319 97860_1_02 .xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ _01_Mediso ft\Medisof t\personal \ScotiaBan k\payments Scotia.rar Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/6c6a0 5a3-89e5-4 f89-bab5-a 5e25bade8b e/13346325 48_1_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/P rogramData /Bitdefend er/Desktop /Profiles/ Logs/dcf48 3c4-26d0-4 e6f-ba28-6 a53a00adae 1/13346499 08_3_01.xm l Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ General\Pa y_slips.xl s Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/d b7af1a4-db 8-4f42-903 a-9d200e40 d03c/13318 49978_1_02 .xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 02_Purchas es\_01_WIN ZIP10_Orig inal_2006- 08-31\winz ip100.exe= >(ZIP Sfx s)=>SETUP.WZ=>WINZIP32.EX_ Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_ 01_Custome r_related\ General\Ba ckup of Pay_slips.xlk Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Des ktop\BDAMS T.zip=>C/U sers/Admin istrator/A ppData/Roa ming/Bitde fender/Des ktop/Profi les/Logs/e c5a0000-79 fe-42a5-63 d7-55b0803 06aab/1334 601981_3_0 1.xml Password-protected Not scanned (file was password-protected)
[-]Detailed Scan Summary
[-]Basic
Scanned items : 1473395
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
[+]Advanced
Scan time : 03: 38: 02
Files per second : 112
Skipped items : 39945
Password-protected items : 43
Overcompressed items : 0
Scanned archives : 426
Input-output errors : 0
Scanned boot sectors : 6
Scanned processes : 4011
Infected processes : 0
Scanned registry keys : 70482
Infected registry keys : 0
Scanned cookies : 226
Infected cookies : 9
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : Yes
Scan for keyloggers : Yes
[-]Target Selection Options:
Scan registry keys : Yes
Scan cookies : Yes
Scan boot sectors : Yes
Scan memory processes : Yes
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : Disinfect
Default action for password-protected objects : Log as not scanned
[-]Scan engines summary
Number of virus signatures : 7074969
I just finished a full scan of drive c:\
Here is the log.
All USBs I unplugged and I am scanning separately.
BitDefender Log File
Product : Bitdefender Antivirus Plus 2012
Scanning task : Full System Scan
Log date : Tuesday, April 17, 2012 5:12:38 PM
Log path : C:\ProgramData\Bitdefender
Scan Paths:
Path : C:\
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
Cookie: C:\Users\Administrator\App
[-]Objects that were not scanned:Object Path Reason Final Status
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\ProgramData\MFAData\pac
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\_ms2\_01_MS_documents\_
File: C:\_ms2\_01_MS_documents\_
File: C:\ProgramData\MFAData\pac
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\ProgramData\MFAData\pac
File: C:\ProgramData\MFAData\pac
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\ProgramData\MFAData\pac
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\_ms2\_01_MS_documents\_
File: C:\ProgramData\MFAData\pac
File: C:\_ms2\_01_MS_documents\_
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\ProgramData\MFAData\pac
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\_ms2\_01_MS_documents\_
File: C:\Users\Administrator\Des
File: C:\Users\Administrator\Des
File: C:\_ms2\_01_MS_documents\_
File: C:\Users\Administrator\Des
File: C:\_ms2\_01_MS_documents\_
File: C:\_ms2\_01_MS_documents\_
File: C:\Users\Administrator\Des
[-]Detailed Scan Summary
[-]Basic
Scanned items : 1473395
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
[+]Advanced
Scan time : 03: 38: 02
Files per second : 112
Skipped items : 39945
Password-protected items : 43
Overcompressed items : 0
Scanned archives : 426
Input-output errors : 0
Scanned boot sectors : 6
Scanned processes : 4011
Infected processes : 0
Scanned registry keys : 70482
Infected registry keys : 0
Scanned cookies : 226
Infected cookies : 9
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : Yes
Scan for keyloggers : Yes
[-]Target Selection Options:
Scan registry keys : Yes
Scan cookies : Yes
Scan boot sectors : Yes
Scan memory processes : Yes
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : Disinfect
Default action for password-protected objects : Log as not scanned
[-]Scan engines summary
Number of virus signatures : 7074969
which OS are you working on and is that 32bit or 64bit?
IS the system fully updated with Microsoft updates and patches?
Sudeep
IS the system fully updated with Microsoft updates and patches?
Sudeep
ASKER
Windows Vista, It is activated and updated
ASKER
32 bit
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
By the way its windows vista home 32 bit, my machine.
ASKER
the trojan is still there, I used malwarebytes,bit defender, rogue killer, rkill,spybot
separate installations...and I cannot get my firewall back. Bit defender support suggested that installing and uninstalling different solutions plus the infections may have caused the problem.... I will reinstall windows.. Thank for all your support.
separate installations...and I cannot get my firewall back. Bit defender support suggested that installing and uninstalling different solutions plus the infections may have caused the problem.... I will reinstall windows.. Thank for all your support.
ASKER
at least its working.
Or it could be the trojan-code in your application which when complied detected as trojan by Bitdefender.