{"id":268,"date":"2014-01-26T17:34:42","date_gmt":"2014-01-26T17:34:42","guid":{"rendered":"http:\/\/olofee.wordpress.com\/?p=268"},"modified":"2014-01-26T17:34:42","modified_gmt":"2014-01-26T17:34:42","slug":"fix-a-broken-gopro-video","status":"publish","type":"post","link":"http:\/\/malemuk.com\/olofee\/fix-a-broken-gopro-video\/","title":{"rendered":"Fix a broken GoPro video file"},"content":{"rendered":"

Run this Perl script<\/a> (link found here: http:\/\/goprohacks.blogspot.no\/2010\/11\/recuperer-un-fichier-mp4-de-gopro.html)<\/a><\/p>\n

Syntax: $ perl fix.pl videofile -reso 1080p30<\/p>\n

default resolution is 720p25, so if the resolution of your broken file is different, you have to use the -reso option.<\/p>\n

Here is the content of the script:<\/p>\n

my $infile = shift(@ARGV);
\nmy $outfile = $infile . “.restore.mp4”;<\/p>\n

my $ctts_offset=0;
\nmy $width = 1280;
\nmy $height = 720;
\nmy $framerate = 25;
\nmy $i, $val;<\/p>\n

#
\n# Parse command line options for options
\n#
\nfor($i=0; $i<@ARGV; $i++) {
\nif ($ARGV[$i] =~ \/-ctts\/) {
\n$ctts_offset = $ARGV[++$i];
\n}
\nif ($ARGV[$i] =~ \/-reso\/){
\n$val = $ARGV[++$i];
\nif ($val eq ‘720p30’ || $val eq ‘ntscr2’) {
\n$width = 1280;
\n$height = 720;
\n$framerate = 30;
\n} elsif ($val eq ‘720p60’ || $val eq ‘ntscr3’) {
\n$width = 1280;
\n$height = 720;
\n$framerate = 60;
\n} elsif ($val eq ‘960p30’ || $val eq ‘ntscr4’) {
\n$width = 1280;
\n$height = 960;
\n$framerate = 30;
\n} elsif ($val eq ‘1080p30’ || $val eq ‘ntscr5’) {
\n$width = 1920;
\n$height = 1080;
\n$framerate = 30;
\n} elsif ($val eq ‘480p60’ || $val eq ‘ntscr1’) {
\n$width = 848;
\n$height = 480;
\n$framerate = 60;
\n} elsif ($val eq ‘720p60’ || $val eq ‘palr3’) {
\n$width = 1280;
\n$height = 720;
\n$framerate = 50;
\n} elsif ($val eq ‘960p30’ || $val eq ‘palr4’) {
\n$width = 1280;
\n$height = 960;
\n$framerate = 25;
\n} elsif ($val eq ‘1080p30’ || $val eq ‘palr5’) {
\n$width = 1920;
\n$height = 1080;
\n$framerate = 25;
\n} elsif ($val eq ‘480p60’ || $val eq ‘palr1’) {
\n$width = 848;
\n$height = 480;
\n$framerate = 50;
\n} elsif ($val eq ‘720p30’ || $val eq ‘palr2’) {
\n$width = 1280;
\n$height = 720;
\n$framerate = 25;
\n} elsif ($val eq ‘960p48’ || $val eq ‘96048HD2′) {
\n$width = 1280;
\n$height = 960;
\n$framerate = 48;
\n} else {
\nprintf(“Error – resolution $val not supported. Trying default “.$height.”p”.”$frameraten”);
\n}
\n}<\/p>\n

}<\/p>\n

open INFILE, “<“, $infile or die(“Cannot open $infile for readingn”);
\nbinmode INFILE;<\/p>\n

print (“nAttempting to fix $infilenn”);<\/p>\n

#disable screen buffering
\n$|=1;<\/p>\n

#
\n# read data section, find video frames
\n#<\/p>\n

my $n, $size, $type, $buff, $framecount, @ptrs, @szs, $offset, $pmdat;<\/p>\n

#
\n# Skip looking for mdat, find frames by brute force
\n#<\/p>\n

$framecount = 0;<\/p>\n

#set delimiter to look for 6-byte value indicating AVC frame start
\n$\/ = pack (“C*”, (0x00, 0x00, 0x00, 0x02, 0x09));<\/p>\n

printf(“Found frame\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 at\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 “);
\nwhile ($buff = <INFILE>)\u00a0 {
\nprintf(“bbbbbbbbbbbbbbbbbb%06d at %08x”, $framecount, (tell INFILE) – 5);
\n$ptrs[$framecount] = (tell INFILE)-5; #adjust to start of code
\nif ($framecount > 0) {
\n$szs[$framecount-1] = $ptrs[$framecount] – $ptrs[$framecount-1];
\n#print (“size:\u00a0 “.$szs[$framecount-1].”\u00a0 n”);
\n}
\n$framecount++;
\n}<\/p>\n

# throw away last one since it triggered on EOF
\n$framecount–;
\npop(@ptrs);<\/p>\n

#set beginning of mdat pointer based on 1st found frame
\n$pmdat=$ptrs[0]-8;<\/p>\n

if ($framecount == 0){
\nprintf(“bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb”);
\nprintf(“No frames found. Quitting.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 n”);
\nclose INFILE;
\nexit;
\n} else {
\nprint (“n”);
\n}<\/p>\n

open OUTFILE, “>”, $outfile or die(“Cannot open $outfile for writingn”);
\nbinmode OUTFILE;
\nprint (“Opened file $outfile for writingnn”);<\/p>\n

$min=0xffffffff;
\n$max=0x0;
\nforeach(@szs){
\nif ($_> $max) {$max = $_}
\nif ($_< $min) {$min = $_}
\n}<\/p>\n

printf(“Found %d (%x) frames, or approx %ds of video at %dfpsn”, $framecount, $framecount, $framecount \/ $framerate, $framerate);
\nprintf(”\u00a0\u00a0 min size %x, max size %xn”, $min, $max);
\nprintf(”\u00a0\u00a0 from %x, to %xn”, $ptrs[0], $ptrs[$framecount-1]);<\/p>\n

#
\n# Rebuild Header
\n#<\/p>\n

my $hdrsize, $i, $moov, $stbl ;<\/p>\n

#calculate size
\n#17 B per frame V, 17 Bpf A, plus overhead
\n$hdrsize = (34 * $framecount) + 2500;
\n$hdrsize = int ($hdrsize \/ 0x8000) + 1;
\nif ($hdrsize % 2 == 0) {
\n$hdrsize ++; # always make header size an odd multiple of 0x8000
\n}
\n$hdrsize = $hdrsize * 0x8000;<\/p>\n

# calculate adjustment for new header size
\n$offset = $hdrsize – $pmdat ;<\/p>\n

printf(“Calculated header size of 0x%x n”,$hdrsize);
\nprintf(“Using ctts offset of $ctts_offsetn”);
\nprintf(“Using $width x $height @ $framerate fpsn”);<\/p>\n

# ftyp
\nprint OUTFILE pack(“NA4A4NA4A4NN”,0x20,’ftyp’,’avc1′,0,’avc1′,’isom’,0,0);<\/p>\n

#stbl
\n$stbl = pack (“NA4NN”,0xf9,’stsd’,0,0×01);
\n$stbl .= pack (“NA4NNNNNNnnNNNCCCA21C11CCC”,0xe9,’avc1′,0,1,0,0,0,0,$width,$height,0x480000,0x480000,0,0,1,0×15,’Ambarella AVC encoder’,0,0,0,0,0,0,0,0,0,0,0,0×18,0xff,0xff);
\n$stbl .= pack (“NA4NN”,0x10,’pasp’,0,0);
\n$stbl .= pack (“NA4N8”,0x28,’clap’,$width,1,$height,1,0,1,0,1);
\nif ($height == 1080) {
\n$stbl .= pack (“NA4N15C3”,0x47,’avcC’,0x014d0028,0xffe10030,0x274d0028,0x9a6280f0,0x044fcb80,0x8800001f,0x48000753,0x07430005, 0xb8e00019,0xbfd5de5c,0x686000b7,0x1c000337,0xfabbcb87,0xc2211458,0x01000428,0xee,0x3c,0x80);
\n} elsif ($height == 480) {
\n$stbl .= pack (“NA4N15C3”,0x47,’avcC’,0x014d401e,0xffe10030,0x274d401e,0x9a6281a8,0x7b602200,0x7d200,0x03a981d0,0x8007a180, 0x0044aa57,0x7971a100,0x0f430000,0x8954aef2,0xe1f08845,0x16000000,0x01000428,0xee,0x3c,0x80);
\n} elsif ($height == 960) {
\n$stbl .= pack (“NA4N15C3”,0x47,’avcC’,0x014d0028,0xffe10030,0x274d0028,0x9a6280a0,0x0f360220,0x7d20,0x1d4c1d,0x0c0016e3, 0x800066ff,0x577971a1,0x8002dc70,0x000cdfea,0xef2e1f08,0x84516000,0x01000428,0xee,0x3c,0x80);
\n}\u00a0 else {
\n$stbl .= pack (“NA4N15C3”,0x47,’avcC’,0x014d0028,0xffe10030,0x274d0028,0x9a6280a0,0x0b760220,0x7d20,0x1d4c1d,0x0c003d0a, 0x0112a9,0x5de5c686,0x1e8500,0x8954ae,0xf2e1f088,0x451e0000,0x01000428,0xee,0x3c,0x80);
\n}
\n$stbl .= pack (“NA4N3”,0x14,’btrt’,0,0,0);
\n$stbl .= pack (“NA4N4”,0x18,’stts’,0,1,$framecount,90090\/$framerate);
\n$stbl .= pack (“NA4NN”,8*$framecount\u00a0 + 0x10, ‘ctts’, 0, $framecount);
\nif ($height == 1080) {
\nfor ($i=0;$i < $framecount;$i++){
\n$stbl .= pack (“NN”,1,0x0bbb);
\n}
\n} elsif ( $framerate == 60) {
\nfor ($i=$ctts_offset;$i < $framecount + $ctts_offset;$i++){
\nif (($i\u00a0 %6 == 0) || ($i %6 == 3)) {
\n$stbl .= pack (“NN”,1,0×1199);
\n} elsif (($i\u00a0 %6 == 1) || ($i %6 == 5)) {
\n$stbl .= pack (“NN”,1,1);
\n} else {
\n$stbl .= pack (“NN”,1,0);
\n}
\n}
\n} else {
\nfor ($i=$ctts_offset;$i < $framecount + $ctts_offset;$i++){
\nif ($i % 3 == 0) {
\n$stbl .= pack (“NN”,1,0×2331);
\n} else {
\n$stbl .= pack (“NN”,1,0);
\n}
\n}
\n}
\n$stbl .= pack (“NA4N5”,0x1c,’stsc’,0,1,1,1,1);
\n$stbl .= pack (“NA4N3”,4*$framecount + 0x14, ‘stsz’,0,0,$framecount);
\nfor ($i=0;$i < $framecount;$i++){
\n$stbl .= pack (“N”,$szs[$i]);
\n}
\n$stbl .= pack (“NA4N2”,4*$framecount + 0x10, ‘stco’,0,$framecount);
\nfor ($i=0;$i < $framecount;$i++){
\n$stbl .= pack (“N”,$ptrs[$i] + $offset);
\n}
\n#fake stss because I don’t know how to re-calculate it
\n$stbl .= pack (“NA4N3”,0x14,’stss’,0,1,1);
\n$stbl .= pack (“NA4N”,$framecount + 0xc,’sdtp’,0);
\nif ($height == 1080) {
\nfor ($i=0;$i < $framecount;$i++){
\n$stbl .= pack (“C”,0);
\n}
\n} else {
\nfor ($i=0;$i < $framecount;$i++){
\nif ($i % 3 == 0) {
\n$stbl .= pack (“C”,0);
\n} else {
\n$stbl .= pack (“C”,0x08);
\n}
\n}
\n}
\n#moov
\nprint OUTFILE pack(“NA4”,$hdrsize-0x20,’moov’);
\nprint OUTFILE pack (“NA4N25”,0x6c,’mvhd’,0,0,0,0x015f90,2700000 \/ $framerate \/ 0x1d * $framecount, 0x010000, 0x01000000, 0, 0, 0x010000,0,0,0,0×010000,0,0,0,0x40000000,0,0,0,0,0,0,3);
\nprint OUTFILE pack (“NA4”,0x180,’udta’);
\nif ($height == 960) {
\nprint OUTFILE pack (“NA4N30”,0x80,’AMBA’,0x040003,0x01030f00,0x04,0x1776,0x02bf20,0xb71b00,0xb71b00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0×0100);
\n} elsif ($height == 1080) {
\nprint OUTFILE pack (“NA4N30”,0x80,’AMBA’,0x100009,0x01010800,0x04,0x0bbb * (3-($framerate\/30)),0x02bf20,0xb71b00,0xb71b00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0×0100);
\n} else {
\nprint OUTFILE pack (“NA4N30”,0x80,’AMBA’,0x100009,0x01030f00,0x04,0x0bbb * (3-($framerate\/30)),0x02bf20,0x7a1200,0x7a1200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0×0100);
\n}
\nprint OUTFILE pack (“NA4N60”,0xf8,’free’,(0)x60);
\nprint OUTFILE pack (“NA4”,0x16a + length($stbl), ‘trak’);
\nprint OUTFILE pack (“NA4N19n4”,0x5c,’tkhd’,0x07,0,0,1,0,2700000 \/ $framerate \/ 0x1d * $framecount,0,0,0,0,0×10000,0,0,0,0x10000,0,0,0,0×40000000,$width,0,$height,0);
\nprint OUTFILE pack (“NA4”,0x24,’edts’);
\nprint OUTFILE pack (“NA4N5”,0x1c,’elst’,0,1,0x015f90 \/ 0x1d * $framecount, 90090\/$framerate,0x10000);
\nprint OUTFILE pack (“NA4”,0x44, ‘tapt’);
\nprint OUTFILE pack (“NA4Nn4”,0x14,’clef’,0,$width,0,$height,0);
\nprint OUTFILE pack (“NA4Nn4”,0x14,’prof’,0,$width,0,$height,0);
\nprint OUTFILE pack (“NA4Nn4”,0x14,’enof’,0,$width,0,$height,0);
\nprint OUTFILE pack (“NA4”, 0x9e + length($stbl), ‘mdia’);
\nprint OUTFILE pack (“NA4N6”, 0x20, ‘mdhd’, 0,0,0,0x015f90,0x015f90 \/ 0x1d * $framecount,0);
\nprint OUTFILE pack (“NA4N2A4N3CA13”, 0x2e, ‘hdlr’, 0,0, ‘vide’,0,0,0,0xd,’Ambarella AVC’);
\nprint OUTFILE pack (“NA4”,0x48 + length ($stbl), ‘minf’);
\nprint OUTFILE pack (“NA4N3”, 0x14, ‘vmhd’, 1,0,0,);
\nprint OUTFILE pack (“NA4”,0x24,’dinf’);
\nprint OUTFILE pack (“NA4N2”,0x1c,’dref’,0,1);
\nprint OUTFILE pack (“NA4N”,0xc,’url ‘,1);
\nprint OUTFILE pack (“NA4”, 0x8+length($stbl),’stbl’);
\nprint OUTFILE $stbl;<\/p>\n

print OUTFILE pack (“NA4”,$hdrsize – tell OUTFILE, ‘free’);<\/p>\n

for ($i=$hdrsize – tell OUTFILE; $i>0; $i–) {
\nprint OUTFILE pack (“C”,0);
\n}<\/p>\n

#
\n# Copy data over
\n#<\/p>\n

print OUTFILE pack (“NA4”,unpack (“%123d*” , pack( “d*”, @szs)) + 13,’mdat’);
\nseek INFILE, $pmdat + 8, 0;
\n$framecount=0;
\nprintf(“Copying\u00a0 frame\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 …”);
\nwhile ($buff = <INFILE>)\u00a0 {
\nprintf(“bbbbbbbbb%06d…”, $framecount++);
\nprint OUTFILE $buff;
\n}
\nprint(“nDone.n”);<\/p>\n

close OUTFILE;
\nclose INFILE;<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

Run this Perl script (link found here: http:\/\/goprohacks.blogspot.no\/2010\/11\/recuperer-un-fichier-mp4-de-gopro.html) Syntax: $ perl fix.pl videofile -reso 1080p30 default resolution is 720p25, so if the resolution of your broken file is different, you have to use the -reso option. Here is the content of the script: my $infile = shift(@ARGV); my $outfile = $infile . “.restore.mp4”; my $ctts_offset=0; […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14],"tags":[],"class_list":["post-268","post","type-post","status-publish","format-standard","hentry","category-computer-stuff"],"jetpack-related-posts":[],"_links":{"self":[{"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/posts\/268","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/comments?post=268"}],"version-history":[{"count":0,"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/posts\/268\/revisions"}],"wp:attachment":[{"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/media?parent=268"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/categories?post=268"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/malemuk.com\/olofee\/wp-json\/wp\/v2\/tags?post=268"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}