The Traders' Den  

  The Traders' Den > Where we go to learn ..... > Technobabble
 

Technobabble Post your general Need for Help questions here.
ē Lossy or Lossless?
Moderators

Reply
 
Thread Tools
  #61  
Old 2020-04-23, 01:31 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

Code:
;
; frontah v0.92 beta2 by maddah 2003
; weaponx script v0.011 by fivah 2020
; lossless archiver with interactive museum
;
Code:
# MD5 checksums generated by MD5summer (http://www.md5summer.org)
# Generated 2020-04-23 2:25:03 PM

379c0332b33952f4fb44fc4310330143 *frontah_script.ini
...
Attached Images
File Type: bmp wxp16.bmp
( 822 Bytes, 0 views)
 
File Type: bmp wxp32.bmp
( 3.1 KB, 0 views)
 
Attached Files
File Type: zip weaponx860011.zip
( 8.7 KB, 0 views)
 
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #62  
Old 2020-04-23, 01:35 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

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.
Attached Images
File Type: bmp frontah16.bmp
( 822 Bytes, 0 views)
 
File Type: bmp roy16.bmp
( 822 Bytes, 0 views)
 
File Type: bmp etree16.bmp
( 822 Bytes, 0 views)
 
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #63  
Old 2020-04-23, 01:37 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

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
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #64  
Old 2020-04-23, 01:51 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

...
Attached Images
File Type: bmp flac16b.bmp
( 822 Bytes, 2 views)
 
File Type: bmp flac32b.bmp
( 3.1 KB, 2 views)
 
File Type: bmp fp32.bmp
( 3.1 KB, 1 views)
 
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #65  
Old 2020-04-28, 12:50 AM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

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
Reply With Quote Reply with Nested Quotes
  #66  
Old 2020-04-28, 01:09 AM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

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

I'm interested in both, if you could pls. thx
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #67  
Old 2020-04-28, 01:50 AM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

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
Reply With Quote Reply with Nested Quotes
  #68  
Old 2020-04-28, 11:01 AM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

yes, please! I need something to do
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #69  
Old 2020-04-28, 03:10 PM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

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

Stay safe!

H
Reply With Quote Reply with Nested Quotes
  #70  
Old 2020-04-28, 05:37 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

thanks H take your time, get it right
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #71  
Old 2020-04-29, 07:58 AM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

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.

Code:
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
Reply With Quote Reply with Nested Quotes
  #72  
Old 2020-04-29, 09:41 AM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Angry Re: Checksums Demystified (.st5, .ffp and .md5)

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

Code:
 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
Reply With Quote Reply with Nested Quotes
  #73  
Old 2020-04-29, 12:17 PM
Five's Avatar
Five Five is offline
TTD Staff
189.30 GB/594.78 GB/3.14
 
Join Date: Oct 2004
Location: Canada
Re: Checksums Demystified (.st5, .ffp and .md5)

thanks so much

I'll come back and start looking at it soon.. this helps me to relax, thx
__________________
Checksums Demystified | ask for help in Technobabble

thetradersden.org | ttd recommended free software/freeware webring
shntool tlh eac foobar2000 spek audacity cdwave vlc

Quote:
Originally posted by oxymoron
Here you are in a place of permanent madness, be careful!
Reply With Quote Reply with Nested Quotes
  #74  
Old 2020-04-29, 12:30 PM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

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..
Reply With Quote Reply with Nested Quotes
  #75  
Old 2020-04-29, 02:20 PM
gwendibbley gwendibbley is offline
71.01 GB/315.41 GB/4.44
 
Join Date: Feb 2005
Re: Checksums Demystified (.st5, .ffp and .md5)

Quote:
Originally Posted by Five View Post
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
Reply With Quote Reply with Nested Quotes
Reply

The Traders' Den > Where we go to learn ..... > Technobabble

Similar Threads
Thread Forum Replies Last Post
Where to download checksums? - popeye Technobabble 1 2006-12-03 11:24 AM
creating checksums - Music 2 My Ears Technobabble 2 2006-07-05 12:24 AM
How do I get Checksums? - Scott Technobabble 7 2005-09-09 04:54 PM


Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forums


All times are GMT -5. The time now is 01:27 AM.


Powered by: vBulletin, Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright ©2004 - , TheTradersDen.org - All Rights Reserved - Hosted at QuickPacket
no new posts