Password Stealer Scanner

Const buf_size = 4096		'we scan it in 4096 byte chunks
Dim filename As String
Dim buffer As String
Dim resultsMSG as string
Dim strScan1 as boolean
Dim strScan2 as boolean
Dim strScan3 as boolean
Dim strScan4 as boolean
Dim strScan5 as boolean 
Dim corrupt as integer	       		'percent of strings found
corrupt = 0: filename = "C:\Windows\win.ini" 'i use win.ini as an example
  Open filename For Binary As 1		'the open file command
    Do While Not EOF(1)
    buffer = Space(buf_size)     'this buffer is the 4096 
    Get 1, , buffer			'gets that size from file
    DoEvents
      If InStr(1, buffer, "kill") Then strScan1 = true	'you can replace these strings with anything
      If InStr(1, buffer, "kill c:\") Then strScan2 = true  ' even make yourself a neat little file finder
      If InStr(1, buffer, "deltree") Then strScan3 = true
      If InStr(1, buffer, "shell =") Then strScan4 = true
      If InStr(1, buffer, "hard drive") Then strScan5 = true
    Loop
  Close 1
if strScan1 = true then corrupt = corrupt + 20: resultsMSG =resultsMSG & "kill, "  'this is my useless garble
if strScan2 = true then corrupt = corrupt + 20: resultsMSG =resultsMSG & "kill c:\, " 'to tell the results of a 
if strScan3 = true then corrupt = corrupt + 20: resultsMSG =resultsMSG & "deltree, "  'scan
if strScan4 = true then corrupt = corrupt + 20: resultsMSG =resultsMSG & "shell=, "
if strScan5 = true then corrupt = corrupt + 20: resultsMSG =resultsMSG & "hard drive, "
MsgBox "-file scanned for strings - " & Chr(10) & corrupt & "% of strings found." & chr(10) & resultsMSG

Upload