• Home
 · 
• Files/File Controls/Input/Output
 · 
• Password Stealer Scanner

Password Stealer Scanner

Now you can scan for Password Stealers, Deltrees, and Even Virii! With this simple, quick FEW lines of coding and a little know how you can build a file scanner. The example below scans for Deltree strings which damage data and destroy files on your computer. There are tons of them floating around on AOL so better build your own before you get Tree'd.

Assumes
Now you can scan for Password Stealers, Deltrees, and Even Virii! With this simple, quick FEW lines of coding and a little know how you can build a file scanner. The example below scans for Deltree strings which damage data and destroy files on your computer. There are tons of them floating around on AOL so better build your own before you get Tree'd.

Returns
This code returns the percent of strings (damaging deltree strings) found in a file, and if it is safe enough to use.

Rate Password Stealer Scanner

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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