Lev
|
 Posted: Tue May 16, 2006 00:23 Post subject: |
 |
|
Ну, начнём потихоньку 
ricobautsch
Небольшой скрипт, который может быть полезен для поиска файлов с определенной сигнатурой (первые байты в файле).
| Code: | 'signatur.vbs by ricobautsch
'Script for Script Content Plugin (c)Lev Freidin, 2005
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
'
'Этот скрипт показывает первые 10 байт файла в тектовом или hex представлении
'может быть полезен для поиска файлов с определенной сигнатурой
'This script returns the first 10 bytes in the file as text or hex-representation.
'Could be usefull for example to search for files with a specified signatur
const bHex = True
const nCharCnt = 10
Set fso = CreateObject("Scripting.FileSystemObject")
Set oTextStream = fso.OpenTextFile(filename)
If not oTextStream.AtEndOfStream Then
content_str = oTextStream.Read(nCharCnt)
If bHex Then
For i=1 To Len(content_str)
If content <> "" Then
content = content & " "
End If
hex_value = Hex(Asc(Mid(content_str,i,1)))
content = content & string(2 - len(hex_value), "0")
content = content & hex_value
Next
Else
content = content_str
End If
End If
oTextStream.Close
|
Для установки количества отображаемых байт/букв и переключения режимов отображения меняйте константы bHex и nCharCnt |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
