Decoding Digital Red AVI Files

[Firebringer]

Originally Posted by bobthefish2

In the process I did discover that @firebringer is probably missing a video of Veronica Venoza because it turns out the Polish version of girls at work contains additional scenes not available in the german/russian version that's been going around.

If someone can help me figure out why this python code won't loop I would appreciate it. Also, if someone has the original polish version of girls next door as well as the original I would appreciate it, as I believe they both have additional hardcore scenes not available in the german version.

Looks like the Internet Archive has the Polish version!!!

Girls At Work (Internet Archive)

I'm downloading the Polish version now and I'll let you know how it works out.

firebringer

[Firebringer]

Originally Posted by Firebringer

I'm amazed to see this thread still gets traffic after all these years!!

$bytes = [System.IO.File]::ReadAllBytes("a01.avi");
for ($i = 0; $i -lt $bytes.length; $i++) { $bytes[$i] = [Int]$bytes[$i] -bxor 0xff; }
[System.IO.File]::WriteAllBytes("a01-fixed.avi", $bytes);

If this works for you and you want a version that will automagically do every file in a given directory on your local drive, let me know and I'll post (it's a 5 liner instead of a 3 liner!)

By request!! Will convert all .avi files in the current directory using the XOR algorithm to a new file called "<oldfilebasename>-Fixed.avi"

[System.IO.Directory]::SetCurrentDirectory($PWD);
Get-ChildItem | Where {$_.extension -eq ".avi"} | ForEach-Object {
    $bytes = [System.IO.File]::ReadAllBytes($_.Name);
    For ($i = 0; $i -lt $bytes.length; $i++) { $bytes[$i] = [Int]$bytes[$i] -bxor 0xff; }
    [System.IO.File]::WriteAllBytes("$($_.BaseName)-Fixed$($_.Extension)", $bytes);
}

firebringer