Checksums Demystified (.st5, .ffp and .md5)

[Five]

;
; frontah v0.92 beta2 by maddah 2003
; weaponx script v0.011 by fivah 2020
; lossless archiver with interactive museum
;

# MD5 checksums generated by MD5summer (http://www.md5summer.org)
# Generated 2020-04-23 2:25:03 PM

379c0332b33952f4fb44fc4310330143 *frontah_script.ini

...

[Five]

the binaries are out there, look on Jason Jordan's page in my signature first, reallyrarewares for the obscure stuff. let me know if you're having trouble finding anything and you don't have to install anything you don't care about. i'll get a link list together later.

[Five]

also I recommend the official shorten 3.6.1 binaries, the 2014 john33 compile on rarewares works faster but cannot encode so its too much of a broken thing for me to trust

[Five]

...

[gwendibbley]

Hey!

Do you want me to write an actual vb/cmd-line script or should I write in actual English how I think the process would be?

/H

[Five]

yes, in fact I was dreaming about somebody who could do that

I'm interested in both, if you could pls. thx

[gwendibbley]

I can start with actual english and we can discuss if the process flow is what you (we?) want before focusing on the actual script.

/H

[Five]

yes, please! I need something to do

[gwendibbley]

I’m struggling with the vbscript so I will now focus on the plain English version.

Stay safe!

H

[Five]

thanks H take your time, get it right

[gwendibbley]

This vbscript searches through all the folder in the pre-defined root folder for files ending with st5, ffp, md5, sfv and txt (checksums could be inside a file named fingerprints.txt, how to deal with those?).

You could try this for yourself and then look at the output file for the result.

Option Explicit

'Declaration
Dim fso, arr1, File, SubFolder, oItem, strWriteLine, strText, strOutputFile

'System variables
Const ForReading = 1

'User variables
Const rootFolder = "C:\Temp\Test"
Const OutputFile = "C:\Temp\FindChecksumFileoutput.txt"
Const debugging = 1
Const Logging = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set strOutputFile = fso.CreateTextFile(OutputFile)
arr1 = Array(".st5", ".ffp", ".md5", ".sfv", ".txt")

FindChecksumFile fso.GetFolder(rootFolder)

strOutputFile.WriteLine strWriteLine
strOutputFile.Close

Set fso = Nothing

Sub FindChecksumFile(Folder)
  For Each File In Folder.Files
  	For Each oItem In arr1
	    If InStr(LCase(File.Name), oItem) > 0 Then
	    	If oItem = ".st5" Then
	    		Checkst5(File)
	    	ElseIf oItem = ".ffp" Then
	    		Checkffp(File)
	    	ElseIf oItem = ".md5" Then
	    		Checkmd5(File)
	    	ElseIf oItem = ".sfv" Then
	    		Checksfv(File)
	    	ElseIf oItem = ".txt" Then
	    		Checktxt(File)
	    	End If
	    End If
    Next
  Next

  For Each SubFolder In Folder.SubFolders
    FindChecksumFile SubFolder
  Next
End Sub

Sub Checkst5(inputfile)
	'WScript.Echo inputfile.Path
	strText = inputfile.Path
	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checkffp(inputfile)
	'WScript.Echo inputfile.Path
	strText = inputfile.Path
	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checkmd5(inputfile)
	'WScript.Echo inputfile.Path
	strText = inputfile.Path
	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checksfv(inputfile)
	'WScript.Echo inputfile.Path
	strText = inputfile.Path
	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checktxt(inputfile)
	'WScript.Echo inputfile.Path
	strText = inputfile.Path
	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Let me know what you think..

/G

[gwendibbley]

I’ve gotten a bit further but am stuck now on if there are spaces in the flac filename..

 Option Explicit

'Declaration
Dim fso, arr1, File, SubFolder, oItem, strWriteLine, strText, strOutputFile, wso, exe, sout, cmd, strFromProc, strErrorCode, oShell, strReturn

'System variables
Const ForReading = 1

'User variables
Const rootFolder = "C:\Temp\Test"
Const OutputFile = "C:\Temp\FindChecksumFileoutput.txt"
Const Debugging = 1
Const Logging = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set strOutputFile = fso.CreateTextFile(OutputFile)
arr1 = Array(".st5", ".ffp", ".md5", ".sfv", ".txt", ".flac", ".ape", ".shn")

FindChecksumFile fso.GetFolder(rootFolder)

strOutputFile.WriteLine strWriteLine
strOutputFile.Close

Set fso = Nothing

Sub FindChecksumFile(Folder)
  For Each File In Folder.Files
  	For Each oItem In arr1
	    If InStr(LCase(File.Name), oItem) > 0 Then
	    	If oItem = ".st5" Then
	    		Checkst5(File)
	    	ElseIf oItem = ".ffp" Then
	    		Checkffp(File)
	    	ElseIf oItem = ".md5" Then
	    		Checkmd5(File)
	    	ElseIf oItem = ".sfv" Then
	    		Checksfv(File)
	    	ElseIf oItem = ".txt" Then
	    		Checktxt(File)
	    	ElseIf oItem = ".flac" Then
	    		VerifyFlac(File)
	    	ElseIf oItem = ".ape" Then
	    		VerifyApe(File)
	    	ElseIf oItem = ".shn" Then
	    		VerifyShn(File)
	    	End If
	    End If
    Next
  Next

  For Each SubFolder In Folder.SubFolders
    FindChecksumFile SubFolder
  Next
End Sub

Sub VerifyFlac(inputfile)
	cmd = "C:\Temp\CmdlineApps\flac.exe -t " & inputfile.Path

	Set oShell = WScript.CreateObject ("WScript.Shell")
	strReturn = oShell.Run(cmd, 0, True)
	Set oShell = Nothing

	If CInt(strReturn) <> 0 Then
		strText = inputfile.Path & ";ERROR"
	Else
		strText = inputfile.Path & ";OK"
	End If

	strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checkst5(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checkffp(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checkmd5(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checksfv(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub Checktxt(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub VerifyApe(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

Sub VerifyShn(inputfile)
	'WScript.Echo inputfile.Path
	'strText = inputfile.Path
	'strWriteLine = strWriteLine & strText & vbCrLf
End Sub

[Five]

thanks so much

I'll come back and start looking at it soon.. this helps me to relax, thx

[gwendibbley]

I was thinking that maybe we should write an entire new program, written in C#. With a GUI and everything..

/H

PS. Maybe we should continue this in a private conversation, like email..

[gwendibbley]

Originally Posted by Five

the binaries are out there, look on Jason Jordan's page in my signature first, reallyrarewares for the obscure stuff. let me know if you're having trouble finding anything and you don't have to install anything you don't care about. i'll get a link list together later.

I can’t seem to find Jason Jordan’s page..what binaries are you referring to?

H