1cb77f0d6SKamil Rytarowski#!/usr/bin/env perl 2fcbf5ca0SMauro Carvalho Chehab# DVB firmware extractor 3fcbf5ca0SMauro Carvalho Chehab# 4fcbf5ca0SMauro Carvalho Chehab# (c) 2004 Andrew de Quincey 5fcbf5ca0SMauro Carvalho Chehab# 6fcbf5ca0SMauro Carvalho Chehab# This program is free software; you can redistribute it and/or modify 7fcbf5ca0SMauro Carvalho Chehab# it under the terms of the GNU General Public License as published by 8fcbf5ca0SMauro Carvalho Chehab# the Free Software Foundation; either version 2 of the License, or 9fcbf5ca0SMauro Carvalho Chehab# (at your option) any later version. 10fcbf5ca0SMauro Carvalho Chehab# 11fcbf5ca0SMauro Carvalho Chehab# This program is distributed in the hope that it will be useful, 12fcbf5ca0SMauro Carvalho Chehab# but WITHOUT ANY WARRANTY; without even the implied warranty of 13fcbf5ca0SMauro Carvalho Chehab# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14fcbf5ca0SMauro Carvalho Chehab# 15fcbf5ca0SMauro Carvalho Chehab# GNU General Public License for more details. 16fcbf5ca0SMauro Carvalho Chehab# 17fcbf5ca0SMauro Carvalho Chehab# You should have received a copy of the GNU General Public License 18fcbf5ca0SMauro Carvalho Chehab# along with this program; if not, write to the Free Software 19fcbf5ca0SMauro Carvalho Chehab# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 20fcbf5ca0SMauro Carvalho Chehab 21fcbf5ca0SMauro Carvalho Chehabuse File::Temp qw/ tempdir /; 22fcbf5ca0SMauro Carvalho Chehabuse IO::Handle; 23fcbf5ca0SMauro Carvalho Chehab 24fcbf5ca0SMauro Carvalho Chehab@components = ( "sp8870", "sp887x", "tda10045", "tda10046", 25fcbf5ca0SMauro Carvalho Chehab "tda10046lifeview", "av7110", "dec2000t", "dec2540t", 26fcbf5ca0SMauro Carvalho Chehab "dec3000s", "vp7041", "vp7049", "dibusb", "nxt2002", "nxt2004", 27fcbf5ca0SMauro Carvalho Chehab "or51211", "or51132_qam", "or51132_vsb", "bluebird", 28fcbf5ca0SMauro Carvalho Chehab "opera1", "cx231xx", "cx18", "cx23885", "pvrusb2", "mpc718", 29fcbf5ca0SMauro Carvalho Chehab "af9015", "ngene", "az6027", "lme2510_lg", "lme2510c_s7395", 30fcbf5ca0SMauro Carvalho Chehab "lme2510c_s7395_old", "drxk", "drxk_terratec_h5", 31fcbf5ca0SMauro Carvalho Chehab "drxk_hauppauge_hvr930c", "tda10071", "it9135", "drxk_pctv", 32fcbf5ca0SMauro Carvalho Chehab "drxk_terratec_htc_stick", "sms1xxx_hcw", "si2165"); 33fcbf5ca0SMauro Carvalho Chehab 34fcbf5ca0SMauro Carvalho Chehab# Check args 35fcbf5ca0SMauro Carvalho Chehabsyntax() if (scalar(@ARGV) != 1); 36fcbf5ca0SMauro Carvalho Chehab$cid = $ARGV[0]; 37fcbf5ca0SMauro Carvalho Chehab 38fcbf5ca0SMauro Carvalho Chehab# Do it! 39fcbf5ca0SMauro Carvalho Chehabfor ($i=0; $i < scalar(@components); $i++) { 40fcbf5ca0SMauro Carvalho Chehab if ($cid eq $components[$i]) { 41fcbf5ca0SMauro Carvalho Chehab $outfile = eval($cid); 42fcbf5ca0SMauro Carvalho Chehab die $@ if $@; 43fcbf5ca0SMauro Carvalho Chehab print STDERR <<EOF; 44fcbf5ca0SMauro Carvalho ChehabFirmware(s) $outfile extracted successfully. 45fcbf5ca0SMauro Carvalho ChehabNow copy it(them) to either /usr/lib/hotplug/firmware or /lib/firmware 46fcbf5ca0SMauro Carvalho Chehab(depending on configuration of firmware hotplug). 47fcbf5ca0SMauro Carvalho ChehabEOF 48fcbf5ca0SMauro Carvalho Chehab exit(0); 49fcbf5ca0SMauro Carvalho Chehab } 50fcbf5ca0SMauro Carvalho Chehab} 51fcbf5ca0SMauro Carvalho Chehab 52fcbf5ca0SMauro Carvalho Chehab# If we get here, it wasn't found 53fcbf5ca0SMauro Carvalho Chehabprint STDERR "Unknown component \"$cid\"\n"; 54fcbf5ca0SMauro Carvalho Chehabsyntax(); 55fcbf5ca0SMauro Carvalho Chehab 56fcbf5ca0SMauro Carvalho Chehab 57fcbf5ca0SMauro Carvalho Chehab 58fcbf5ca0SMauro Carvalho Chehab 59fcbf5ca0SMauro Carvalho Chehab# --------------------------------------------------------------- 60fcbf5ca0SMauro Carvalho Chehab# Firmware-specific extraction subroutines 61fcbf5ca0SMauro Carvalho Chehab 62fcbf5ca0SMauro Carvalho Chehabsub sp8870 { 63fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "tt_Premium_217g.zip"; 64fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.softwarepatch.pl/9999ccd06a4813cb827dbb0005071c71/$sourcefile"; 65fcbf5ca0SMauro Carvalho Chehab my $hash = "53970ec17a538945a6d8cb608a7b3899"; 66fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-sp8870.fw"; 67fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 68fcbf5ca0SMauro Carvalho Chehab 69fcbf5ca0SMauro Carvalho Chehab checkstandard(); 70fcbf5ca0SMauro Carvalho Chehab 71fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 72fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 73fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/software/OEM/HE/App/boot/SC_MAIN.MC", $hash); 74fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/software/OEM/HE/App/boot/SC_MAIN.MC", $outfile); 75fcbf5ca0SMauro Carvalho Chehab 76fcbf5ca0SMauro Carvalho Chehab $outfile; 77fcbf5ca0SMauro Carvalho Chehab} 78fcbf5ca0SMauro Carvalho Chehab 79fcbf5ca0SMauro Carvalho Chehabsub sp887x { 80fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "Dvbt1.3.57.6.zip"; 81fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.avermedia.com/software/$sourcefile"; 82fcbf5ca0SMauro Carvalho Chehab my $cabfile = "DVBT Net Ver1.3.57.6/disk1/data1.cab"; 83fcbf5ca0SMauro Carvalho Chehab my $hash = "237938d53a7f834c05c42b894ca68ac3"; 84fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-sp887x.fw"; 85fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 86fcbf5ca0SMauro Carvalho Chehab 87fcbf5ca0SMauro Carvalho Chehab checkstandard(); 88fcbf5ca0SMauro Carvalho Chehab checkunshield(); 89fcbf5ca0SMauro Carvalho Chehab 90fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 91fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 92fcbf5ca0SMauro Carvalho Chehab unshield("$tmpdir/$cabfile", $tmpdir); 93fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/ZEnglish/sc_main.mc", $hash); 94fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/ZEnglish/sc_main.mc", $outfile); 95fcbf5ca0SMauro Carvalho Chehab 96fcbf5ca0SMauro Carvalho Chehab $outfile; 97fcbf5ca0SMauro Carvalho Chehab} 98fcbf5ca0SMauro Carvalho Chehab 99fcbf5ca0SMauro Carvalho Chehabsub tda10045 { 100fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "tt_budget_217g.zip"; 101fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.technotrend.de/new/217g/$sourcefile"; 102fcbf5ca0SMauro Carvalho Chehab my $hash = "2105fd5bf37842fbcdfa4bfd58f3594a"; 103fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-tda10045.fw"; 104fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 105fcbf5ca0SMauro Carvalho Chehab 106fcbf5ca0SMauro Carvalho Chehab checkstandard(); 107fcbf5ca0SMauro Carvalho Chehab 108fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 109fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 110fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/software/OEM/PCI/App/ttlcdacc.dll", 0x37ef9, 30555, "$tmpdir/fwtmp"); 111fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fwtmp", $hash); 112fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/fwtmp", $outfile); 113fcbf5ca0SMauro Carvalho Chehab 114fcbf5ca0SMauro Carvalho Chehab $outfile; 115fcbf5ca0SMauro Carvalho Chehab} 116fcbf5ca0SMauro Carvalho Chehab 117fcbf5ca0SMauro Carvalho Chehabsub tda10046 { 118fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "TT_PCI_2.19h_28_11_2006.zip"; 119fcbf5ca0SMauro Carvalho Chehab my $url = "http://technotrend.com.ua/download/software/219/$sourcefile"; 120fcbf5ca0SMauro Carvalho Chehab my $hash = "6a7e1e2f2644b162ff0502367553c72d"; 121fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-tda10046.fw"; 122fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 123fcbf5ca0SMauro Carvalho Chehab 124fcbf5ca0SMauro Carvalho Chehab checkstandard(); 125fcbf5ca0SMauro Carvalho Chehab 126fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 127fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 128fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/TT_PCI_2.19h_28_11_2006/software/OEM/PCI/App/ttlcdacc.dll", 0x65389, 24478, "$tmpdir/fwtmp"); 129fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fwtmp", $hash); 130fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/fwtmp", $outfile); 131fcbf5ca0SMauro Carvalho Chehab 132fcbf5ca0SMauro Carvalho Chehab $outfile; 133fcbf5ca0SMauro Carvalho Chehab} 134fcbf5ca0SMauro Carvalho Chehab 135fcbf5ca0SMauro Carvalho Chehabsub tda10046lifeview { 136fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "7%5Cdrv_2.11.02.zip"; 137fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.lifeview.hk/dbimages/document/$sourcefile"; 138fcbf5ca0SMauro Carvalho Chehab my $hash = "1ea24dee4eea8fe971686981f34fd2e0"; 139fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-tda10046.fw"; 140fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 141fcbf5ca0SMauro Carvalho Chehab 142fcbf5ca0SMauro Carvalho Chehab checkstandard(); 143fcbf5ca0SMauro Carvalho Chehab 144fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 145fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 146fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/LVHybrid.sys", 0x8b088, 24602, "$tmpdir/fwtmp"); 147fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fwtmp", $hash); 148fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/fwtmp", $outfile); 149fcbf5ca0SMauro Carvalho Chehab 150fcbf5ca0SMauro Carvalho Chehab $outfile; 151fcbf5ca0SMauro Carvalho Chehab} 152fcbf5ca0SMauro Carvalho Chehab 153fcbf5ca0SMauro Carvalho Chehabsub av7110 { 154fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "dvb-ttpci-01.fw-261d"; 155fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/$sourcefile"; 156fcbf5ca0SMauro Carvalho Chehab my $hash = "603431b6259715a8e88f376a53b64e2f"; 157fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-ttpci-01.fw"; 158fcbf5ca0SMauro Carvalho Chehab 159fcbf5ca0SMauro Carvalho Chehab checkstandard(); 160fcbf5ca0SMauro Carvalho Chehab 161fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 162fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 163fcbf5ca0SMauro Carvalho Chehab copy($sourcefile, $outfile); 164fcbf5ca0SMauro Carvalho Chehab 165fcbf5ca0SMauro Carvalho Chehab $outfile; 166fcbf5ca0SMauro Carvalho Chehab} 167fcbf5ca0SMauro Carvalho Chehab 168fcbf5ca0SMauro Carvalho Chehabsub dec2000t { 169fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "dec217g.exe"; 170fcbf5ca0SMauro Carvalho Chehab my $url = "http://hauppauge.lightpath.net/de/$sourcefile"; 171fcbf5ca0SMauro Carvalho Chehab my $hash = "bd86f458cee4a8f0a8ce2d20c66215a9"; 172fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-ttusb-dec-2000t.fw"; 173fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 174fcbf5ca0SMauro Carvalho Chehab 175fcbf5ca0SMauro Carvalho Chehab checkstandard(); 176fcbf5ca0SMauro Carvalho Chehab 177fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 178fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 179fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/software/OEM/STB/App/Boot/STB_PC_T.bin", $hash); 180fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/software/OEM/STB/App/Boot/STB_PC_T.bin", $outfile); 181fcbf5ca0SMauro Carvalho Chehab 182fcbf5ca0SMauro Carvalho Chehab $outfile; 183fcbf5ca0SMauro Carvalho Chehab} 184fcbf5ca0SMauro Carvalho Chehab 185fcbf5ca0SMauro Carvalho Chehabsub dec2540t { 186fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "dec217g.exe"; 187fcbf5ca0SMauro Carvalho Chehab my $url = "http://hauppauge.lightpath.net/de/$sourcefile"; 188fcbf5ca0SMauro Carvalho Chehab my $hash = "53e58f4f5b5c2930beee74a7681fed92"; 189fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-ttusb-dec-2540t.fw"; 190fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 191fcbf5ca0SMauro Carvalho Chehab 192fcbf5ca0SMauro Carvalho Chehab checkstandard(); 193fcbf5ca0SMauro Carvalho Chehab 194fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 195fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 196fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/software/OEM/STB/App/Boot/STB_PC_X.bin", $hash); 197fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/software/OEM/STB/App/Boot/STB_PC_X.bin", $outfile); 198fcbf5ca0SMauro Carvalho Chehab 199fcbf5ca0SMauro Carvalho Chehab $outfile; 200fcbf5ca0SMauro Carvalho Chehab} 201fcbf5ca0SMauro Carvalho Chehab 202fcbf5ca0SMauro Carvalho Chehabsub dec3000s { 203fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "dec217g.exe"; 204fcbf5ca0SMauro Carvalho Chehab my $url = "http://hauppauge.lightpath.net/de/$sourcefile"; 205fcbf5ca0SMauro Carvalho Chehab my $hash = "b013ececea83f4d6d8d2a29ac7c1b448"; 206fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-ttusb-dec-3000s.fw"; 207fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 208fcbf5ca0SMauro Carvalho Chehab 209fcbf5ca0SMauro Carvalho Chehab checkstandard(); 210fcbf5ca0SMauro Carvalho Chehab 211fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 212fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 213fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/software/OEM/STB/App/Boot/STB_PC_S.bin", $hash); 214fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/software/OEM/STB/App/Boot/STB_PC_S.bin", $outfile); 215fcbf5ca0SMauro Carvalho Chehab 216fcbf5ca0SMauro Carvalho Chehab $outfile; 217fcbf5ca0SMauro Carvalho Chehab} 218fcbf5ca0SMauro Carvalho Chehabsub opera1{ 219fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 0); 220fcbf5ca0SMauro Carvalho Chehab 221fcbf5ca0SMauro Carvalho Chehab checkstandard(); 222fcbf5ca0SMauro Carvalho Chehab my $fwfile1="dvb-usb-opera1-fpga-01.fw"; 223fcbf5ca0SMauro Carvalho Chehab my $fwfile2="dvb-usb-opera-01.fw"; 224fcbf5ca0SMauro Carvalho Chehab extract("2830SCap2.sys", 0x62e8, 55024, "$tmpdir/opera1-fpga.fw"); 225fcbf5ca0SMauro Carvalho Chehab extract("2830SLoad2.sys",0x3178,0x3685-0x3178,"$tmpdir/fw1part1"); 226fcbf5ca0SMauro Carvalho Chehab extract("2830SLoad2.sys",0x0980,0x3150-0x0980,"$tmpdir/fw1part2"); 227fcbf5ca0SMauro Carvalho Chehab delzero("$tmpdir/fw1part1","$tmpdir/fw1part1-1"); 228fcbf5ca0SMauro Carvalho Chehab delzero("$tmpdir/fw1part2","$tmpdir/fw1part2-1"); 229fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fw1part1-1","5e0909858fdf0b5b09ad48b9fe622e70"); 230fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fw1part2-1","d6e146f321427e931df2c6fcadac37a1"); 231fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/opera1-fpga.fw","0f8133f5e9051f5f3c1928f7e5a1b07d"); 232fcbf5ca0SMauro Carvalho Chehab 233fcbf5ca0SMauro Carvalho Chehab my $RES1="\x01\x92\x7f\x00\x01\x00"; 234fcbf5ca0SMauro Carvalho Chehab my $RES0="\x01\x92\x7f\x00\x00\x00"; 235fcbf5ca0SMauro Carvalho Chehab my $DAT1="\x01\x00\xe6\x00\x01\x00"; 236fcbf5ca0SMauro Carvalho Chehab my $DAT0="\x01\x00\xe6\x00\x00\x00"; 237fcbf5ca0SMauro Carvalho Chehab open FW,">$tmpdir/opera.fw"; 238fcbf5ca0SMauro Carvalho Chehab print FW "$RES1"; 239fcbf5ca0SMauro Carvalho Chehab print FW "$DAT1"; 240fcbf5ca0SMauro Carvalho Chehab print FW "$RES1"; 241fcbf5ca0SMauro Carvalho Chehab print FW "$DAT1"; 242fcbf5ca0SMauro Carvalho Chehab appendfile(FW,"$tmpdir/fw1part1-1"); 243fcbf5ca0SMauro Carvalho Chehab print FW "$RES0"; 244fcbf5ca0SMauro Carvalho Chehab print FW "$DAT0"; 245fcbf5ca0SMauro Carvalho Chehab print FW "$RES1"; 246fcbf5ca0SMauro Carvalho Chehab print FW "$DAT1"; 247fcbf5ca0SMauro Carvalho Chehab appendfile(FW,"$tmpdir/fw1part2-1"); 248fcbf5ca0SMauro Carvalho Chehab print FW "$RES1"; 249fcbf5ca0SMauro Carvalho Chehab print FW "$DAT1"; 250fcbf5ca0SMauro Carvalho Chehab print FW "$RES0"; 251fcbf5ca0SMauro Carvalho Chehab print FW "$DAT0"; 252fcbf5ca0SMauro Carvalho Chehab copy ("$tmpdir/opera1-fpga.fw",$fwfile1); 253fcbf5ca0SMauro Carvalho Chehab copy ("$tmpdir/opera.fw",$fwfile2); 254fcbf5ca0SMauro Carvalho Chehab 255fcbf5ca0SMauro Carvalho Chehab $fwfile1.",".$fwfile2; 256fcbf5ca0SMauro Carvalho Chehab} 257fcbf5ca0SMauro Carvalho Chehab 258fcbf5ca0SMauro Carvalho Chehabsub vp7041 { 259fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "2.422.zip"; 260fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.twinhan.com/files/driver/USB-Ter/$sourcefile"; 261fcbf5ca0SMauro Carvalho Chehab my $hash = "e88c9372d1f66609a3e7b072c53fbcfe"; 262fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-vp7041-2.422.fw"; 263fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 264fcbf5ca0SMauro Carvalho Chehab 265fcbf5ca0SMauro Carvalho Chehab checkstandard(); 266fcbf5ca0SMauro Carvalho Chehab 267fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 268fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 269fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/VisionDTV/Drivers/Win2K&XP/UDTTload.sys", 12503, 3036, "$tmpdir/fwtmp1"); 270fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/VisionDTV/Drivers/Win2K&XP/UDTTload.sys", 2207, 10274, "$tmpdir/fwtmp2"); 271fcbf5ca0SMauro Carvalho Chehab 272fcbf5ca0SMauro Carvalho Chehab my $CMD = "\000\001\000\222\177\000"; 273fcbf5ca0SMauro Carvalho Chehab my $PAD = "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"; 274fcbf5ca0SMauro Carvalho Chehab my ($FW); 275fcbf5ca0SMauro Carvalho Chehab open $FW, ">$tmpdir/fwtmp3"; 276fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\001$PAD"; 277fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\001$PAD"; 278fcbf5ca0SMauro Carvalho Chehab appendfile($FW, "$tmpdir/fwtmp1"); 279fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\000$PAD"; 280fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\001$PAD"; 281fcbf5ca0SMauro Carvalho Chehab appendfile($FW, "$tmpdir/fwtmp2"); 282fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\001$PAD"; 283fcbf5ca0SMauro Carvalho Chehab print $FW "$CMD\000$PAD"; 284fcbf5ca0SMauro Carvalho Chehab close($FW); 285fcbf5ca0SMauro Carvalho Chehab 286fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/fwtmp3", $hash); 287fcbf5ca0SMauro Carvalho Chehab copy("$tmpdir/fwtmp3", $outfile); 288fcbf5ca0SMauro Carvalho Chehab 289fcbf5ca0SMauro Carvalho Chehab $outfile; 290fcbf5ca0SMauro Carvalho Chehab} 291fcbf5ca0SMauro Carvalho Chehab 292fcbf5ca0SMauro Carvalho Chehabsub vp7049 { 293fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-usb-vp7049-0.95.fw"; 294fcbf5ca0SMauro Carvalho Chehab my $url = "http://ao2.it/sites/default/files/blog/2012/11/06/linux-support-digicom-digitune-s-vp7049-udtt7049/$fwfile"; 295fcbf5ca0SMauro Carvalho Chehab my $hash = "5609fd295168aea88b25ff43a6f79c36"; 296fcbf5ca0SMauro Carvalho Chehab 297fcbf5ca0SMauro Carvalho Chehab checkstandard(); 298fcbf5ca0SMauro Carvalho Chehab 299fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url); 300fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 301fcbf5ca0SMauro Carvalho Chehab 302fcbf5ca0SMauro Carvalho Chehab $fwfile; 303fcbf5ca0SMauro Carvalho Chehab} 304fcbf5ca0SMauro Carvalho Chehab 305fcbf5ca0SMauro Carvalho Chehabsub dibusb { 306fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/dvb-usb-dibusb-5.0.0.11.fw"; 307fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-dibusb-5.0.0.11.fw"; 308fcbf5ca0SMauro Carvalho Chehab my $hash = "fa490295a527360ca16dcdf3224ca243"; 309fcbf5ca0SMauro Carvalho Chehab 310fcbf5ca0SMauro Carvalho Chehab checkstandard(); 311fcbf5ca0SMauro Carvalho Chehab 312fcbf5ca0SMauro Carvalho Chehab wgetfile($outfile, $url); 313fcbf5ca0SMauro Carvalho Chehab verify($outfile,$hash); 314fcbf5ca0SMauro Carvalho Chehab 315fcbf5ca0SMauro Carvalho Chehab $outfile; 316fcbf5ca0SMauro Carvalho Chehab} 317fcbf5ca0SMauro Carvalho Chehab 318fcbf5ca0SMauro Carvalho Chehabsub nxt2002 { 319fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "Technisat_DVB-PC_4_4_COMPACT.zip"; 320fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.bbti.us/download/windows/$sourcefile"; 321fcbf5ca0SMauro Carvalho Chehab my $hash = "476befae8c7c1bb9648954060b1eec1f"; 322fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-nxt2002.fw"; 323fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 324fcbf5ca0SMauro Carvalho Chehab 325fcbf5ca0SMauro Carvalho Chehab checkstandard(); 326fcbf5ca0SMauro Carvalho Chehab 327fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 328fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 329fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/SkyNET.sys", $hash); 330fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/SkyNET.sys", 331624, 5908, $outfile); 331fcbf5ca0SMauro Carvalho Chehab 332fcbf5ca0SMauro Carvalho Chehab $outfile; 333fcbf5ca0SMauro Carvalho Chehab} 334fcbf5ca0SMauro Carvalho Chehab 335fcbf5ca0SMauro Carvalho Chehabsub nxt2004 { 336fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "AVerTVHD_MCE_A180_Drv_v1.2.2.16.zip"; 337fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.avermedia-usa.com/support/Drivers/$sourcefile"; 338fcbf5ca0SMauro Carvalho Chehab my $hash = "111cb885b1e009188346d72acfed024c"; 339fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-fe-nxt2004.fw"; 340fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 341fcbf5ca0SMauro Carvalho Chehab 342fcbf5ca0SMauro Carvalho Chehab checkstandard(); 343fcbf5ca0SMauro Carvalho Chehab 344fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 345fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 346fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/3xHybrid.sys", $hash); 347fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/3xHybrid.sys", 465304, 9584, $outfile); 348fcbf5ca0SMauro Carvalho Chehab 349fcbf5ca0SMauro Carvalho Chehab $outfile; 350fcbf5ca0SMauro Carvalho Chehab} 351fcbf5ca0SMauro Carvalho Chehab 352fcbf5ca0SMauro Carvalho Chehabsub or51211 { 353fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-fe-or51211.fw"; 354fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/$fwfile"; 355fcbf5ca0SMauro Carvalho Chehab my $hash = "d830949c771a289505bf9eafc225d491"; 356fcbf5ca0SMauro Carvalho Chehab 357fcbf5ca0SMauro Carvalho Chehab checkstandard(); 358fcbf5ca0SMauro Carvalho Chehab 359fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url); 360fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 361fcbf5ca0SMauro Carvalho Chehab 362fcbf5ca0SMauro Carvalho Chehab $fwfile; 363fcbf5ca0SMauro Carvalho Chehab} 364fcbf5ca0SMauro Carvalho Chehab 365fcbf5ca0SMauro Carvalho Chehabsub cx231xx { 366fcbf5ca0SMauro Carvalho Chehab my $fwfile = "v4l-cx231xx-avcore-01.fw"; 367fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/$fwfile"; 368fcbf5ca0SMauro Carvalho Chehab my $hash = "7d3bb956dc9df0eafded2b56ba57cc42"; 369fcbf5ca0SMauro Carvalho Chehab 370fcbf5ca0SMauro Carvalho Chehab checkstandard(); 371fcbf5ca0SMauro Carvalho Chehab 372fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url); 373fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 374fcbf5ca0SMauro Carvalho Chehab 375fcbf5ca0SMauro Carvalho Chehab $fwfile; 376fcbf5ca0SMauro Carvalho Chehab} 377fcbf5ca0SMauro Carvalho Chehab 378fcbf5ca0SMauro Carvalho Chehabsub cx18 { 379fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/"; 380fcbf5ca0SMauro Carvalho Chehab 381fcbf5ca0SMauro Carvalho Chehab my %files = ( 382fcbf5ca0SMauro Carvalho Chehab 'v4l-cx23418-apu.fw' => '588f081b562f5c653a3db1ad8f65939a', 383fcbf5ca0SMauro Carvalho Chehab 'v4l-cx23418-cpu.fw' => 'b6c7ed64bc44b1a6e0840adaeac39d79', 384fcbf5ca0SMauro Carvalho Chehab 'v4l-cx23418-dig.fw' => '95bc688d3e7599fd5800161e9971cc55', 385fcbf5ca0SMauro Carvalho Chehab ); 386fcbf5ca0SMauro Carvalho Chehab 387fcbf5ca0SMauro Carvalho Chehab checkstandard(); 388fcbf5ca0SMauro Carvalho Chehab 389fcbf5ca0SMauro Carvalho Chehab my $allfiles; 390fcbf5ca0SMauro Carvalho Chehab foreach my $fwfile (keys %files) { 391fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, "$url/$fwfile"); 392fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $files{$fwfile}); 393fcbf5ca0SMauro Carvalho Chehab $allfiles .= " $fwfile"; 394fcbf5ca0SMauro Carvalho Chehab } 395fcbf5ca0SMauro Carvalho Chehab 396fcbf5ca0SMauro Carvalho Chehab $allfiles =~ s/^\s//; 397fcbf5ca0SMauro Carvalho Chehab 398fcbf5ca0SMauro Carvalho Chehab $allfiles; 399fcbf5ca0SMauro Carvalho Chehab} 400fcbf5ca0SMauro Carvalho Chehab 401fcbf5ca0SMauro Carvalho Chehabsub mpc718 { 402fcbf5ca0SMauro Carvalho Chehab my $archive = 'Yuan MPC718 TV Tuner Card 2.13.10.1016.zip'; 403fcbf5ca0SMauro Carvalho Chehab my $url = "ftp://ftp.work.acer-euro.com/desktop/aspire_idea510/vista/Drivers/$archive"; 404fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-cx18-mpc718-mt352.fw"; 405fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 406fcbf5ca0SMauro Carvalho Chehab 407fcbf5ca0SMauro Carvalho Chehab checkstandard(); 408fcbf5ca0SMauro Carvalho Chehab wgetfile($archive, $url); 409fcbf5ca0SMauro Carvalho Chehab unzip($archive, $tmpdir); 410fcbf5ca0SMauro Carvalho Chehab 411fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "$tmpdir/Yuan MPC718 TV Tuner Card 2.13.10.1016/mpc718_32bit/yuanrap.sys"; 412fcbf5ca0SMauro Carvalho Chehab my $found = 0; 413fcbf5ca0SMauro Carvalho Chehab 414fcbf5ca0SMauro Carvalho Chehab open IN, '<', $sourcefile or die "Couldn't open $sourcefile to extract $fwfile data\n"; 415fcbf5ca0SMauro Carvalho Chehab binmode IN; 416fcbf5ca0SMauro Carvalho Chehab open OUT, '>', $fwfile; 417fcbf5ca0SMauro Carvalho Chehab binmode OUT; 418fcbf5ca0SMauro Carvalho Chehab { 419fcbf5ca0SMauro Carvalho Chehab # Block scope because we change the line terminator variable $/ 420fcbf5ca0SMauro Carvalho Chehab my $prevlen = 0; 421fcbf5ca0SMauro Carvalho Chehab my $currlen; 422fcbf5ca0SMauro Carvalho Chehab 423fcbf5ca0SMauro Carvalho Chehab # Buried in the data segment are 3 runs of almost identical 424fcbf5ca0SMauro Carvalho Chehab # register-value pairs that end in 0x5d 0x01 which is a "TUNER GO" 425fcbf5ca0SMauro Carvalho Chehab # command for the MT352. 426fcbf5ca0SMauro Carvalho Chehab # Pull out the middle run (because it's easy) of register-value 427fcbf5ca0SMauro Carvalho Chehab # pairs to make the "firmware" file. 428fcbf5ca0SMauro Carvalho Chehab 429fcbf5ca0SMauro Carvalho Chehab local $/ = "\x5d\x01"; # MT352 "TUNER GO" 430fcbf5ca0SMauro Carvalho Chehab 431fcbf5ca0SMauro Carvalho Chehab while (<IN>) { 432fcbf5ca0SMauro Carvalho Chehab $currlen = length($_); 433fcbf5ca0SMauro Carvalho Chehab if ($prevlen == $currlen && $currlen <= 64) { 434fcbf5ca0SMauro Carvalho Chehab chop; chop; # Get rid of "TUNER GO" 435fcbf5ca0SMauro Carvalho Chehab s/^\0\0//; # get rid of leading 00 00 if it's there 436fcbf5ca0SMauro Carvalho Chehab printf OUT "$_"; 437fcbf5ca0SMauro Carvalho Chehab $found = 1; 438fcbf5ca0SMauro Carvalho Chehab last; 439fcbf5ca0SMauro Carvalho Chehab } 440fcbf5ca0SMauro Carvalho Chehab $prevlen = $currlen; 441fcbf5ca0SMauro Carvalho Chehab } 442fcbf5ca0SMauro Carvalho Chehab } 443fcbf5ca0SMauro Carvalho Chehab close OUT; 444fcbf5ca0SMauro Carvalho Chehab close IN; 445fcbf5ca0SMauro Carvalho Chehab if (!$found) { 446fcbf5ca0SMauro Carvalho Chehab unlink $fwfile; 447fcbf5ca0SMauro Carvalho Chehab die "Couldn't find valid register-value sequence in $sourcefile for $fwfile\n"; 448fcbf5ca0SMauro Carvalho Chehab } 449fcbf5ca0SMauro Carvalho Chehab $fwfile; 450fcbf5ca0SMauro Carvalho Chehab} 451fcbf5ca0SMauro Carvalho Chehab 452fcbf5ca0SMauro Carvalho Chehabsub cx23885 { 453fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/"; 454fcbf5ca0SMauro Carvalho Chehab 455fcbf5ca0SMauro Carvalho Chehab my %files = ( 456fcbf5ca0SMauro Carvalho Chehab 'v4l-cx23885-avcore-01.fw' => 'a9f8f5d901a7fb42f552e1ee6384f3bb', 457fcbf5ca0SMauro Carvalho Chehab 'v4l-cx23885-enc.fw' => 'a9f8f5d901a7fb42f552e1ee6384f3bb', 458fcbf5ca0SMauro Carvalho Chehab ); 459fcbf5ca0SMauro Carvalho Chehab 460fcbf5ca0SMauro Carvalho Chehab checkstandard(); 461fcbf5ca0SMauro Carvalho Chehab 462fcbf5ca0SMauro Carvalho Chehab my $allfiles; 463fcbf5ca0SMauro Carvalho Chehab foreach my $fwfile (keys %files) { 464fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, "$url/$fwfile"); 465fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $files{$fwfile}); 466fcbf5ca0SMauro Carvalho Chehab $allfiles .= " $fwfile"; 467fcbf5ca0SMauro Carvalho Chehab } 468fcbf5ca0SMauro Carvalho Chehab 469fcbf5ca0SMauro Carvalho Chehab $allfiles =~ s/^\s//; 470fcbf5ca0SMauro Carvalho Chehab 471fcbf5ca0SMauro Carvalho Chehab $allfiles; 472fcbf5ca0SMauro Carvalho Chehab} 473fcbf5ca0SMauro Carvalho Chehab 474fcbf5ca0SMauro Carvalho Chehabsub pvrusb2 { 475fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/"; 476fcbf5ca0SMauro Carvalho Chehab 477fcbf5ca0SMauro Carvalho Chehab my %files = ( 478fcbf5ca0SMauro Carvalho Chehab 'v4l-cx25840.fw' => 'dadb79e9904fc8af96e8111d9cb59320', 479fcbf5ca0SMauro Carvalho Chehab ); 480fcbf5ca0SMauro Carvalho Chehab 481fcbf5ca0SMauro Carvalho Chehab checkstandard(); 482fcbf5ca0SMauro Carvalho Chehab 483fcbf5ca0SMauro Carvalho Chehab my $allfiles; 484fcbf5ca0SMauro Carvalho Chehab foreach my $fwfile (keys %files) { 485fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, "$url/$fwfile"); 486fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $files{$fwfile}); 487fcbf5ca0SMauro Carvalho Chehab $allfiles .= " $fwfile"; 488fcbf5ca0SMauro Carvalho Chehab } 489fcbf5ca0SMauro Carvalho Chehab 490fcbf5ca0SMauro Carvalho Chehab $allfiles =~ s/^\s//; 491fcbf5ca0SMauro Carvalho Chehab 492fcbf5ca0SMauro Carvalho Chehab $allfiles; 493fcbf5ca0SMauro Carvalho Chehab} 494fcbf5ca0SMauro Carvalho Chehab 495fcbf5ca0SMauro Carvalho Chehabsub or51132_qam { 496fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-fe-or51132-qam.fw"; 497fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/$fwfile"; 498fcbf5ca0SMauro Carvalho Chehab my $hash = "7702e8938612de46ccadfe9b413cb3b5"; 499fcbf5ca0SMauro Carvalho Chehab 500fcbf5ca0SMauro Carvalho Chehab checkstandard(); 501fcbf5ca0SMauro Carvalho Chehab 502fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url); 503fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 504fcbf5ca0SMauro Carvalho Chehab 505fcbf5ca0SMauro Carvalho Chehab $fwfile; 506fcbf5ca0SMauro Carvalho Chehab} 507fcbf5ca0SMauro Carvalho Chehab 508fcbf5ca0SMauro Carvalho Chehabsub or51132_vsb { 509fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-fe-or51132-vsb.fw"; 510fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/$fwfile"; 511fcbf5ca0SMauro Carvalho Chehab my $hash = "c16208e02f36fc439a557ad4c613364a"; 512fcbf5ca0SMauro Carvalho Chehab 513fcbf5ca0SMauro Carvalho Chehab checkstandard(); 514fcbf5ca0SMauro Carvalho Chehab 515fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url); 516fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 517fcbf5ca0SMauro Carvalho Chehab 518fcbf5ca0SMauro Carvalho Chehab $fwfile; 519fcbf5ca0SMauro Carvalho Chehab} 520fcbf5ca0SMauro Carvalho Chehab 521fcbf5ca0SMauro Carvalho Chehabsub bluebird { 522fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/download/dvb/firmware/dvb-usb-bluebird-01.fw"; 523fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-usb-bluebird-01.fw"; 524fcbf5ca0SMauro Carvalho Chehab my $hash = "658397cb9eba9101af9031302671f49d"; 525fcbf5ca0SMauro Carvalho Chehab 526fcbf5ca0SMauro Carvalho Chehab checkstandard(); 527fcbf5ca0SMauro Carvalho Chehab 528fcbf5ca0SMauro Carvalho Chehab wgetfile($outfile, $url); 529fcbf5ca0SMauro Carvalho Chehab verify($outfile,$hash); 530fcbf5ca0SMauro Carvalho Chehab 531fcbf5ca0SMauro Carvalho Chehab $outfile; 532fcbf5ca0SMauro Carvalho Chehab} 533fcbf5ca0SMauro Carvalho Chehab 534fcbf5ca0SMauro Carvalho Chehabsub af9015 { 535fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "download.ashx?file=57"; 536fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.ite.com.tw/EN/Services/$sourcefile"; 537fcbf5ca0SMauro Carvalho Chehab my $hash = "e3f08935158038d385ad382442f4bb2d"; 538fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-usb-af9015.fw"; 539fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 540fcbf5ca0SMauro Carvalho Chehab my $fwoffset = 0x25690; 541fcbf5ca0SMauro Carvalho Chehab my $fwlength = 18725; 542fcbf5ca0SMauro Carvalho Chehab my ($chunklength, $buf, $rcount); 543fcbf5ca0SMauro Carvalho Chehab 544fcbf5ca0SMauro Carvalho Chehab checkstandard(); 545fcbf5ca0SMauro Carvalho Chehab 546fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url); 547fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 548fcbf5ca0SMauro Carvalho Chehab verify("$tmpdir/Driver/Files/AF15BDA.sys", $hash); 549fcbf5ca0SMauro Carvalho Chehab 550fcbf5ca0SMauro Carvalho Chehab open INFILE, '<', "$tmpdir/Driver/Files/AF15BDA.sys"; 551fcbf5ca0SMauro Carvalho Chehab open OUTFILE, '>', $outfile; 552fcbf5ca0SMauro Carvalho Chehab 553fcbf5ca0SMauro Carvalho Chehab sysseek(INFILE, $fwoffset, SEEK_SET); 554fcbf5ca0SMauro Carvalho Chehab while($fwlength > 0) { 555fcbf5ca0SMauro Carvalho Chehab $chunklength = 55; 556fcbf5ca0SMauro Carvalho Chehab $chunklength = $fwlength if ($chunklength > $fwlength); 557fcbf5ca0SMauro Carvalho Chehab $rcount = sysread(INFILE, $buf, $chunklength); 558fcbf5ca0SMauro Carvalho Chehab die "Ran out of data\n" if ($rcount != $chunklength); 559fcbf5ca0SMauro Carvalho Chehab syswrite(OUTFILE, $buf); 560fcbf5ca0SMauro Carvalho Chehab sysread(INFILE, $buf, 8); 561fcbf5ca0SMauro Carvalho Chehab $fwlength -= $rcount + 8; 562fcbf5ca0SMauro Carvalho Chehab } 563fcbf5ca0SMauro Carvalho Chehab 564fcbf5ca0SMauro Carvalho Chehab close OUTFILE; 565fcbf5ca0SMauro Carvalho Chehab close INFILE; 566fcbf5ca0SMauro Carvalho Chehab} 567fcbf5ca0SMauro Carvalho Chehab 568fcbf5ca0SMauro Carvalho Chehabsub ngene { 569fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.digitaldevices.de/download/"; 570fcbf5ca0SMauro Carvalho Chehab my $file1 = "ngene_15.fw"; 571fcbf5ca0SMauro Carvalho Chehab my $hash1 = "d798d5a757121174f0dbc5f2833c0c85"; 572fcbf5ca0SMauro Carvalho Chehab my $file2 = "ngene_17.fw"; 573fcbf5ca0SMauro Carvalho Chehab my $hash2 = "26b687136e127b8ac24b81e0eeafc20b"; 574fcbf5ca0SMauro Carvalho Chehab my $url2 = "http://l4m-daten.de/downloads/firmware/dvb-s2/linux/all/"; 575fcbf5ca0SMauro Carvalho Chehab my $file3 = "ngene_18.fw"; 576fcbf5ca0SMauro Carvalho Chehab my $hash3 = "ebce3ea769a53e3e0b0197c3b3f127e3"; 577fcbf5ca0SMauro Carvalho Chehab 578fcbf5ca0SMauro Carvalho Chehab checkstandard(); 579fcbf5ca0SMauro Carvalho Chehab 580fcbf5ca0SMauro Carvalho Chehab wgetfile($file1, $url . $file1); 581fcbf5ca0SMauro Carvalho Chehab verify($file1, $hash1); 582fcbf5ca0SMauro Carvalho Chehab 583fcbf5ca0SMauro Carvalho Chehab wgetfile($file2, $url . $file2); 584fcbf5ca0SMauro Carvalho Chehab verify($file2, $hash2); 585fcbf5ca0SMauro Carvalho Chehab 586fcbf5ca0SMauro Carvalho Chehab wgetfile($file3, $url2 . $file3); 587fcbf5ca0SMauro Carvalho Chehab verify($file3, $hash3); 588fcbf5ca0SMauro Carvalho Chehab 589fcbf5ca0SMauro Carvalho Chehab "$file1, $file2, $file3"; 590fcbf5ca0SMauro Carvalho Chehab} 591fcbf5ca0SMauro Carvalho Chehab 592fcbf5ca0SMauro Carvalho Chehabsub az6027{ 593fcbf5ca0SMauro Carvalho Chehab my $firmware = "dvb-usb-az6027-03.fw"; 594fcbf5ca0SMauro Carvalho Chehab my $url = "http://linux.terratec.de/files/TERRATEC_S7/$firmware"; 595fcbf5ca0SMauro Carvalho Chehab 596fcbf5ca0SMauro Carvalho Chehab wgetfile($firmware, $url); 597fcbf5ca0SMauro Carvalho Chehab 598fcbf5ca0SMauro Carvalho Chehab $firmware; 599fcbf5ca0SMauro Carvalho Chehab} 600fcbf5ca0SMauro Carvalho Chehab 601fcbf5ca0SMauro Carvalho Chehabsub lme2510_lg { 602fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "LMEBDA_DVBS.sys"; 603fcbf5ca0SMauro Carvalho Chehab my $hash = "fc6017ad01e79890a97ec53bea157ed2"; 604fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-usb-lme2510-lg.fw"; 605fcbf5ca0SMauro Carvalho Chehab my $hasho = "caa065d5fdbd2c09ad57b399bbf55cad"; 606fcbf5ca0SMauro Carvalho Chehab 607fcbf5ca0SMauro Carvalho Chehab checkstandard(); 608fcbf5ca0SMauro Carvalho Chehab 609fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 610fcbf5ca0SMauro Carvalho Chehab extract($sourcefile, 4168, 3841, $outfile); 611fcbf5ca0SMauro Carvalho Chehab verify($outfile, $hasho); 612fcbf5ca0SMauro Carvalho Chehab $outfile; 613fcbf5ca0SMauro Carvalho Chehab} 614fcbf5ca0SMauro Carvalho Chehab 615fcbf5ca0SMauro Carvalho Chehabsub lme2510c_s7395 { 616fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "US2A0D.sys"; 617fcbf5ca0SMauro Carvalho Chehab my $hash = "b0155a8083fb822a3bd47bc360e74601"; 618fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-usb-lme2510c-s7395.fw"; 619fcbf5ca0SMauro Carvalho Chehab my $hasho = "3a3cf1aeebd17b6ddc04cebe131e94cf"; 620fcbf5ca0SMauro Carvalho Chehab 621fcbf5ca0SMauro Carvalho Chehab checkstandard(); 622fcbf5ca0SMauro Carvalho Chehab 623fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 624fcbf5ca0SMauro Carvalho Chehab extract($sourcefile, 37248, 3720, $outfile); 625fcbf5ca0SMauro Carvalho Chehab verify($outfile, $hasho); 626fcbf5ca0SMauro Carvalho Chehab $outfile; 627fcbf5ca0SMauro Carvalho Chehab} 628fcbf5ca0SMauro Carvalho Chehab 629fcbf5ca0SMauro Carvalho Chehabsub lme2510c_s7395_old { 630fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "LMEBDA_DVBS7395C.sys"; 631fcbf5ca0SMauro Carvalho Chehab my $hash = "7572ae0eb9cdf91baabd7c0ba9e09b31"; 632fcbf5ca0SMauro Carvalho Chehab my $outfile = "dvb-usb-lme2510c-s7395.fw"; 633fcbf5ca0SMauro Carvalho Chehab my $hasho = "90430c5b435eb5c6f88fd44a9d950674"; 634fcbf5ca0SMauro Carvalho Chehab 635fcbf5ca0SMauro Carvalho Chehab checkstandard(); 636fcbf5ca0SMauro Carvalho Chehab 637fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 638fcbf5ca0SMauro Carvalho Chehab extract($sourcefile, 4208, 3881, $outfile); 639fcbf5ca0SMauro Carvalho Chehab verify($outfile, $hasho); 640fcbf5ca0SMauro Carvalho Chehab $outfile; 641fcbf5ca0SMauro Carvalho Chehab} 642fcbf5ca0SMauro Carvalho Chehab 643fcbf5ca0SMauro Carvalho Chehabsub drxk { 644fcbf5ca0SMauro Carvalho Chehab my $url = "http://l4m-daten.de/files/"; 645fcbf5ca0SMauro Carvalho Chehab my $zipfile = "DDTuner.zip"; 646fcbf5ca0SMauro Carvalho Chehab my $hash = "f5a37b9a20a3534997997c0b1382a3e5"; 647fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 648fcbf5ca0SMauro Carvalho Chehab my $drvfile = "DDTuner.sys"; 649fcbf5ca0SMauro Carvalho Chehab my $fwfile = "drxk_a3.mc"; 650fcbf5ca0SMauro Carvalho Chehab 651fcbf5ca0SMauro Carvalho Chehab checkstandard(); 652fcbf5ca0SMauro Carvalho Chehab 653fcbf5ca0SMauro Carvalho Chehab wgetfile($zipfile, $url . $zipfile); 654fcbf5ca0SMauro Carvalho Chehab verify($zipfile, $hash); 655fcbf5ca0SMauro Carvalho Chehab unzip($zipfile, $tmpdir); 656fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/$drvfile", 0x14dd8, 15634, "$fwfile"); 657fcbf5ca0SMauro Carvalho Chehab 658fcbf5ca0SMauro Carvalho Chehab "$fwfile" 659fcbf5ca0SMauro Carvalho Chehab} 660fcbf5ca0SMauro Carvalho Chehab 661fcbf5ca0SMauro Carvalho Chehabsub drxk_hauppauge_hvr930c { 662fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.wintvcd.co.uk/drivers/"; 663fcbf5ca0SMauro Carvalho Chehab my $zipfile = "HVR-9x0_5_10_325_28153_SIGNED.zip"; 664fcbf5ca0SMauro Carvalho Chehab my $hash = "83ab82e7e9480ec8bf1ae0155ca63c88"; 665fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 666fcbf5ca0SMauro Carvalho Chehab my $drvfile = "HVR-900/emOEM.sys"; 667fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-usb-hauppauge-hvr930c-drxk.fw"; 668fcbf5ca0SMauro Carvalho Chehab 669fcbf5ca0SMauro Carvalho Chehab checkstandard(); 670fcbf5ca0SMauro Carvalho Chehab 671fcbf5ca0SMauro Carvalho Chehab wgetfile($zipfile, $url . $zipfile); 672fcbf5ca0SMauro Carvalho Chehab verify($zipfile, $hash); 673fcbf5ca0SMauro Carvalho Chehab unzip($zipfile, $tmpdir); 674fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/$drvfile", 0x117b0, 42692, "$fwfile"); 675fcbf5ca0SMauro Carvalho Chehab 676fcbf5ca0SMauro Carvalho Chehab "$fwfile" 677fcbf5ca0SMauro Carvalho Chehab} 678fcbf5ca0SMauro Carvalho Chehab 679fcbf5ca0SMauro Carvalho Chehabsub drxk_terratec_h5 { 680fcbf5ca0SMauro Carvalho Chehab my $url = "https://linuxtv.org/downloads/firmware/"; 681fcbf5ca0SMauro Carvalho Chehab my $hash = "19000dada8e2741162ccc50cc91fa7f1"; 682fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-usb-terratec-h5-drxk.fw"; 683fcbf5ca0SMauro Carvalho Chehab 684fcbf5ca0SMauro Carvalho Chehab checkstandard(); 685fcbf5ca0SMauro Carvalho Chehab 686fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, $url . $fwfile); 687fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $hash); 688fcbf5ca0SMauro Carvalho Chehab 689fcbf5ca0SMauro Carvalho Chehab "$fwfile" 690fcbf5ca0SMauro Carvalho Chehab} 691fcbf5ca0SMauro Carvalho Chehab 692fcbf5ca0SMauro Carvalho Chehabsub drxk_terratec_htc_stick { 693fcbf5ca0SMauro Carvalho Chehab my $url = "http://ftp.terratec.de/Receiver/Cinergy_HTC_Stick/Updates/History/"; 694fcbf5ca0SMauro Carvalho Chehab my $zipfile = "Cinergy_HTC_Stick_Drv_5.09.1202.00_XP_Vista_7.exe"; 695fcbf5ca0SMauro Carvalho Chehab my $hash = "6722a2442a05423b781721fbc069ed5e"; 696fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 0); 697fcbf5ca0SMauro Carvalho Chehab my $drvfile = "Cinergy HTC Stick/BDA Driver 5.09.1202.00/Windows 32 Bit/emOEM.sys"; 698fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-usb-terratec-htc-stick-drxk.fw"; 699fcbf5ca0SMauro Carvalho Chehab 700fcbf5ca0SMauro Carvalho Chehab checkstandard(); 701fcbf5ca0SMauro Carvalho Chehab 702fcbf5ca0SMauro Carvalho Chehab wgetfile($zipfile, $url . $zipfile); 703fcbf5ca0SMauro Carvalho Chehab verify($zipfile, $hash); 704fcbf5ca0SMauro Carvalho Chehab unzip($zipfile, $tmpdir); 705fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/$drvfile", 0x4e5c0, 42692, "$fwfile"); 706fcbf5ca0SMauro Carvalho Chehab 707fcbf5ca0SMauro Carvalho Chehab "$fwfile" 708fcbf5ca0SMauro Carvalho Chehab} 709fcbf5ca0SMauro Carvalho Chehab 710fcbf5ca0SMauro Carvalho Chehabsub it9135 { 711fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.ite.com.tw/uploads/firmware/v3.25.0.0/"; 712fcbf5ca0SMauro Carvalho Chehab my $file1 = "dvb-usb-it9135-01.zip"; 713fcbf5ca0SMauro Carvalho Chehab my $fwfile1 = "dvb-usb-it9135-01.fw"; 714fcbf5ca0SMauro Carvalho Chehab my $hash1 = "02fcf11174eda84745dae7e61c5ff9ba"; 715fcbf5ca0SMauro Carvalho Chehab my $file2 = "dvb-usb-it9135-02.zip"; 716fcbf5ca0SMauro Carvalho Chehab my $fwfile2 = "dvb-usb-it9135-02.fw"; 717fcbf5ca0SMauro Carvalho Chehab my $hash2 = "d5e1437dc24358578e07999475d4cac9"; 718fcbf5ca0SMauro Carvalho Chehab 719fcbf5ca0SMauro Carvalho Chehab checkstandard(); 720fcbf5ca0SMauro Carvalho Chehab 721fcbf5ca0SMauro Carvalho Chehab wgetfile($file1, $url . $file1); 722fcbf5ca0SMauro Carvalho Chehab unzip($file1, ""); 723fcbf5ca0SMauro Carvalho Chehab verify("$fwfile1", $hash1); 724fcbf5ca0SMauro Carvalho Chehab 725fcbf5ca0SMauro Carvalho Chehab wgetfile($file2, $url . $file2); 726fcbf5ca0SMauro Carvalho Chehab unzip($file2, ""); 727fcbf5ca0SMauro Carvalho Chehab verify("$fwfile2", $hash2); 728fcbf5ca0SMauro Carvalho Chehab 729fcbf5ca0SMauro Carvalho Chehab "$file1 $file2" 730fcbf5ca0SMauro Carvalho Chehab} 731fcbf5ca0SMauro Carvalho Chehab 732fcbf5ca0SMauro Carvalho Chehabsub tda10071 { 733fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "PCTV_460e_reference.zip"; 734fcbf5ca0SMauro Carvalho Chehab my $url = "ftp://ftp.pctvsystems.com/TV/driver/PCTV%2070e%2080e%20100e%20320e%20330e%20800e/"; 735fcbf5ca0SMauro Carvalho Chehab my $hash = "4403de903bf2593464c8d74bbc200a57"; 736fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-fe-tda10071.fw"; 737fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 738fcbf5ca0SMauro Carvalho Chehab 739fcbf5ca0SMauro Carvalho Chehab checkstandard(); 740fcbf5ca0SMauro Carvalho Chehab 741fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url . $sourcefile); 742fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 743fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 744fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/PCTV\ 70e\ 80e\ 100e\ 320e\ 330e\ 800e/32\ bit/emOEM.sys", 0x67d38, 40504, $fwfile); 745fcbf5ca0SMauro Carvalho Chehab 746fcbf5ca0SMauro Carvalho Chehab "$fwfile"; 747fcbf5ca0SMauro Carvalho Chehab} 748fcbf5ca0SMauro Carvalho Chehab 749fcbf5ca0SMauro Carvalho Chehabsub drxk_pctv { 750fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "PCTV_460e_reference.zip"; 751fcbf5ca0SMauro Carvalho Chehab my $url = "ftp://ftp.pctvsystems.com/TV/driver/PCTV%2070e%2080e%20100e%20320e%20330e%20800e/"; 752fcbf5ca0SMauro Carvalho Chehab my $hash = "4403de903bf2593464c8d74bbc200a57"; 753fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-demod-drxk-pctv.fw"; 754fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 755fcbf5ca0SMauro Carvalho Chehab 756fcbf5ca0SMauro Carvalho Chehab checkstandard(); 757fcbf5ca0SMauro Carvalho Chehab 758fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url . $sourcefile); 759fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 760fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 761fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/PCTV\ 70e\ 80e\ 100e\ 320e\ 330e\ 800e/32\ bit/emOEM.sys", 0x72b80, 42692, $fwfile); 762fcbf5ca0SMauro Carvalho Chehab 763fcbf5ca0SMauro Carvalho Chehab "$fwfile"; 764fcbf5ca0SMauro Carvalho Chehab} 765fcbf5ca0SMauro Carvalho Chehab 766fcbf5ca0SMauro Carvalho Chehabsub sms1xxx_hcw { 767fcbf5ca0SMauro Carvalho Chehab my $url = "http://steventoth.net/linux/sms1xxx/"; 768fcbf5ca0SMauro Carvalho Chehab my %files = ( 769fcbf5ca0SMauro Carvalho Chehab 'sms1xxx-hcw-55xxx-dvbt-01.fw' => "afb6f9fb9a71d64392e8564ef9577e5a", 770fcbf5ca0SMauro Carvalho Chehab 'sms1xxx-hcw-55xxx-dvbt-02.fw' => "b44807098ba26e52cbedeadc052ba58f", 771fcbf5ca0SMauro Carvalho Chehab 'sms1xxx-hcw-55xxx-isdbt-02.fw' => "dae934eeea85225acbd63ce6cfe1c9e4", 772fcbf5ca0SMauro Carvalho Chehab ); 773fcbf5ca0SMauro Carvalho Chehab 774fcbf5ca0SMauro Carvalho Chehab checkstandard(); 775fcbf5ca0SMauro Carvalho Chehab 776fcbf5ca0SMauro Carvalho Chehab my $allfiles; 777fcbf5ca0SMauro Carvalho Chehab foreach my $fwfile (keys %files) { 778fcbf5ca0SMauro Carvalho Chehab wgetfile($fwfile, "$url/$fwfile"); 779fcbf5ca0SMauro Carvalho Chehab verify($fwfile, $files{$fwfile}); 780fcbf5ca0SMauro Carvalho Chehab $allfiles .= " $fwfile"; 781fcbf5ca0SMauro Carvalho Chehab } 782fcbf5ca0SMauro Carvalho Chehab 783fcbf5ca0SMauro Carvalho Chehab $allfiles =~ s/^\s//; 784fcbf5ca0SMauro Carvalho Chehab 785fcbf5ca0SMauro Carvalho Chehab $allfiles; 786fcbf5ca0SMauro Carvalho Chehab} 787fcbf5ca0SMauro Carvalho Chehab 788fcbf5ca0SMauro Carvalho Chehabsub si2165 { 789fcbf5ca0SMauro Carvalho Chehab my $sourcefile = "model_111xxx_122xxx_driver_6_0_119_31191_WHQL.zip"; 790fcbf5ca0SMauro Carvalho Chehab my $url = "http://www.hauppauge.de/files/drivers/"; 791fcbf5ca0SMauro Carvalho Chehab my $hash = "76633e7c76b0edee47c3ba18ded99336"; 792fcbf5ca0SMauro Carvalho Chehab my $fwfile = "dvb-demod-si2165.fw"; 793fcbf5ca0SMauro Carvalho Chehab my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1); 794fcbf5ca0SMauro Carvalho Chehab 795fcbf5ca0SMauro Carvalho Chehab checkstandard(); 796fcbf5ca0SMauro Carvalho Chehab 797fcbf5ca0SMauro Carvalho Chehab wgetfile($sourcefile, $url . $sourcefile); 798fcbf5ca0SMauro Carvalho Chehab verify($sourcefile, $hash); 799fcbf5ca0SMauro Carvalho Chehab unzip($sourcefile, $tmpdir); 800fcbf5ca0SMauro Carvalho Chehab extract("$tmpdir/Driver10/Hcw10bda.sys", 0x80788, 0x81E08-0x80788, "$tmpdir/fw1"); 801fcbf5ca0SMauro Carvalho Chehab 802fcbf5ca0SMauro Carvalho Chehab delzero("$tmpdir/fw1","$tmpdir/fw1-1"); 803fcbf5ca0SMauro Carvalho Chehab #verify("$tmpdir/fw1","5e0909858fdf0b5b09ad48b9fe622e70"); 804fcbf5ca0SMauro Carvalho Chehab 805fcbf5ca0SMauro Carvalho Chehab my $CRC="\x0A\xCC"; 806fcbf5ca0SMauro Carvalho Chehab my $BLOCKS_MAIN="\x27"; 807fcbf5ca0SMauro Carvalho Chehab open FW,">$fwfile"; 808fcbf5ca0SMauro Carvalho Chehab print FW "\x01\x00"; # just a version id for the driver itself 809fcbf5ca0SMauro Carvalho Chehab print FW "\x9A"; # fw version 810fcbf5ca0SMauro Carvalho Chehab print FW "\x00"; # padding 811fcbf5ca0SMauro Carvalho Chehab print FW "$BLOCKS_MAIN"; # number of blocks of main part 812fcbf5ca0SMauro Carvalho Chehab print FW "\x00"; # padding 813fcbf5ca0SMauro Carvalho Chehab print FW "$CRC"; # 16bit crc value of main part 814fcbf5ca0SMauro Carvalho Chehab appendfile(FW,"$tmpdir/fw1"); 815fcbf5ca0SMauro Carvalho Chehab 816fcbf5ca0SMauro Carvalho Chehab "$fwfile"; 817fcbf5ca0SMauro Carvalho Chehab} 818fcbf5ca0SMauro Carvalho Chehab 819fcbf5ca0SMauro Carvalho Chehab# --------------------------------------------------------------- 820fcbf5ca0SMauro Carvalho Chehab# Utilities 821fcbf5ca0SMauro Carvalho Chehab 822fcbf5ca0SMauro Carvalho Chehabsub checkstandard { 823fcbf5ca0SMauro Carvalho Chehab if (system("which unzip > /dev/null 2>&1")) { 824fcbf5ca0SMauro Carvalho Chehab die "This firmware requires the unzip command - see ftp://ftp.info-zip.org/pub/infozip/UnZip.html\n"; 825fcbf5ca0SMauro Carvalho Chehab } 826fcbf5ca0SMauro Carvalho Chehab if (system("which md5sum > /dev/null 2>&1")) { 827fcbf5ca0SMauro Carvalho Chehab die "This firmware requires the md5sum command - see http://www.gnu.org/software/coreutils/\n"; 828fcbf5ca0SMauro Carvalho Chehab } 829fcbf5ca0SMauro Carvalho Chehab if (system("which wget > /dev/null 2>&1")) { 830fcbf5ca0SMauro Carvalho Chehab die "This firmware requires the wget command - see http://wget.sunsite.dk/\n"; 831fcbf5ca0SMauro Carvalho Chehab } 832fcbf5ca0SMauro Carvalho Chehab} 833fcbf5ca0SMauro Carvalho Chehab 834fcbf5ca0SMauro Carvalho Chehabsub checkunshield { 835fcbf5ca0SMauro Carvalho Chehab if (system("which unshield > /dev/null 2>&1")) { 836fcbf5ca0SMauro Carvalho Chehab die "This firmware requires the unshield command - see http://sourceforge.net/projects/synce/\n"; 837fcbf5ca0SMauro Carvalho Chehab } 838fcbf5ca0SMauro Carvalho Chehab} 839fcbf5ca0SMauro Carvalho Chehab 840fcbf5ca0SMauro Carvalho Chehabsub wgetfile { 841fcbf5ca0SMauro Carvalho Chehab my ($sourcefile, $url) = @_; 842fcbf5ca0SMauro Carvalho Chehab 843fcbf5ca0SMauro Carvalho Chehab if (! -f $sourcefile) { 844fcbf5ca0SMauro Carvalho Chehab system("wget -O \"$sourcefile\" \"$url\"") and die "wget failed - unable to download firmware"; 845fcbf5ca0SMauro Carvalho Chehab } 846fcbf5ca0SMauro Carvalho Chehab} 847fcbf5ca0SMauro Carvalho Chehab 848fcbf5ca0SMauro Carvalho Chehabsub unzip { 849fcbf5ca0SMauro Carvalho Chehab my ($sourcefile, $todir) = @_; 850fcbf5ca0SMauro Carvalho Chehab 851fcbf5ca0SMauro Carvalho Chehab $status = system("unzip -q -o -d \"$todir\" \"$sourcefile\" 2>/dev/null" ); 852fcbf5ca0SMauro Carvalho Chehab if ((($status >> 8) > 2) || (($status & 0xff) != 0)) { 853fcbf5ca0SMauro Carvalho Chehab die ("unzip failed - unable to extract firmware"); 854fcbf5ca0SMauro Carvalho Chehab } 855fcbf5ca0SMauro Carvalho Chehab} 856fcbf5ca0SMauro Carvalho Chehab 857fcbf5ca0SMauro Carvalho Chehabsub unshield { 858fcbf5ca0SMauro Carvalho Chehab my ($sourcefile, $todir) = @_; 859fcbf5ca0SMauro Carvalho Chehab 860fcbf5ca0SMauro Carvalho Chehab system("unshield x -d \"$todir\" \"$sourcefile\" > /dev/null" ) and die ("unshield failed - unable to extract firmware"); 861fcbf5ca0SMauro Carvalho Chehab} 862fcbf5ca0SMauro Carvalho Chehab 863fcbf5ca0SMauro Carvalho Chehabsub verify { 864fcbf5ca0SMauro Carvalho Chehab my ($filename, $hash) = @_; 865fcbf5ca0SMauro Carvalho Chehab my ($testhash); 866fcbf5ca0SMauro Carvalho Chehab 867fcbf5ca0SMauro Carvalho Chehab open(CMD, "md5sum \"$filename\"|"); 868fcbf5ca0SMauro Carvalho Chehab $testhash = <CMD>; 869fcbf5ca0SMauro Carvalho Chehab $testhash =~ /([a-zA-Z0-9]*)/; 870fcbf5ca0SMauro Carvalho Chehab $testhash = $1; 871fcbf5ca0SMauro Carvalho Chehab close CMD; 872fcbf5ca0SMauro Carvalho Chehab die "Hash of extracted file does not match!\n" if ($testhash ne $hash); 873fcbf5ca0SMauro Carvalho Chehab} 874fcbf5ca0SMauro Carvalho Chehab 875fcbf5ca0SMauro Carvalho Chehabsub copy { 876fcbf5ca0SMauro Carvalho Chehab my ($from, $to) = @_; 877fcbf5ca0SMauro Carvalho Chehab 878fcbf5ca0SMauro Carvalho Chehab system("cp -f \"$from\" \"$to\"") and die ("cp failed"); 879fcbf5ca0SMauro Carvalho Chehab} 880fcbf5ca0SMauro Carvalho Chehab 881fcbf5ca0SMauro Carvalho Chehabsub extract { 882fcbf5ca0SMauro Carvalho Chehab my ($infile, $offset, $length, $outfile) = @_; 883fcbf5ca0SMauro Carvalho Chehab my ($chunklength, $buf, $rcount); 884fcbf5ca0SMauro Carvalho Chehab 885fcbf5ca0SMauro Carvalho Chehab open INFILE, "<$infile"; 886fcbf5ca0SMauro Carvalho Chehab open OUTFILE, ">$outfile"; 887fcbf5ca0SMauro Carvalho Chehab sysseek(INFILE, $offset, SEEK_SET); 888fcbf5ca0SMauro Carvalho Chehab while($length > 0) { 889fcbf5ca0SMauro Carvalho Chehab # Calc chunk size 890fcbf5ca0SMauro Carvalho Chehab $chunklength = 2048; 891fcbf5ca0SMauro Carvalho Chehab $chunklength = $length if ($chunklength > $length); 892fcbf5ca0SMauro Carvalho Chehab 893fcbf5ca0SMauro Carvalho Chehab $rcount = sysread(INFILE, $buf, $chunklength); 894fcbf5ca0SMauro Carvalho Chehab die "Ran out of data\n" if ($rcount != $chunklength); 895fcbf5ca0SMauro Carvalho Chehab syswrite(OUTFILE, $buf); 896fcbf5ca0SMauro Carvalho Chehab $length -= $rcount; 897fcbf5ca0SMauro Carvalho Chehab } 898fcbf5ca0SMauro Carvalho Chehab close INFILE; 899fcbf5ca0SMauro Carvalho Chehab close OUTFILE; 900fcbf5ca0SMauro Carvalho Chehab} 901fcbf5ca0SMauro Carvalho Chehab 902fcbf5ca0SMauro Carvalho Chehabsub appendfile { 903fcbf5ca0SMauro Carvalho Chehab my ($FH, $infile) = @_; 904fcbf5ca0SMauro Carvalho Chehab my ($buf); 905fcbf5ca0SMauro Carvalho Chehab 906fcbf5ca0SMauro Carvalho Chehab open INFILE, "<$infile"; 907fcbf5ca0SMauro Carvalho Chehab while(1) { 908fcbf5ca0SMauro Carvalho Chehab $rcount = sysread(INFILE, $buf, 2048); 909fcbf5ca0SMauro Carvalho Chehab last if ($rcount == 0); 910fcbf5ca0SMauro Carvalho Chehab print $FH $buf; 911fcbf5ca0SMauro Carvalho Chehab } 912fcbf5ca0SMauro Carvalho Chehab close(INFILE); 913fcbf5ca0SMauro Carvalho Chehab} 914fcbf5ca0SMauro Carvalho Chehab 915fcbf5ca0SMauro Carvalho Chehabsub delzero{ 916fcbf5ca0SMauro Carvalho Chehab my ($infile,$outfile) =@_; 917fcbf5ca0SMauro Carvalho Chehab 918fcbf5ca0SMauro Carvalho Chehab open INFILE,"<$infile"; 919fcbf5ca0SMauro Carvalho Chehab open OUTFILE,">$outfile"; 920fcbf5ca0SMauro Carvalho Chehab while (1){ 921fcbf5ca0SMauro Carvalho Chehab $rcount=sysread(INFILE,$buf,22); 922fcbf5ca0SMauro Carvalho Chehab $len=ord(substr($buf,0,1)); 923fcbf5ca0SMauro Carvalho Chehab print OUTFILE substr($buf,0,1); 924fcbf5ca0SMauro Carvalho Chehab print OUTFILE substr($buf,2,$len+3); 925fcbf5ca0SMauro Carvalho Chehab last if ($rcount<1); 926fcbf5ca0SMauro Carvalho Chehab printf OUTFILE "%c",0; 927fcbf5ca0SMauro Carvalho Chehab#print $len." ".length($buf)."\n"; 928fcbf5ca0SMauro Carvalho Chehab 929fcbf5ca0SMauro Carvalho Chehab } 930fcbf5ca0SMauro Carvalho Chehab close(INFILE); 931fcbf5ca0SMauro Carvalho Chehab close(OUTFILE); 932fcbf5ca0SMauro Carvalho Chehab} 933fcbf5ca0SMauro Carvalho Chehab 934fcbf5ca0SMauro Carvalho Chehabsub syntax() { 935fcbf5ca0SMauro Carvalho Chehab print STDERR "syntax: get_dvb_firmware <component>\n"; 936fcbf5ca0SMauro Carvalho Chehab print STDERR "Supported components:\n"; 937fcbf5ca0SMauro Carvalho Chehab @components = sort @components; 938fcbf5ca0SMauro Carvalho Chehab for($i=0; $i < scalar(@components); $i++) { 939fcbf5ca0SMauro Carvalho Chehab print STDERR "\t" . $components[$i] . "\n"; 940fcbf5ca0SMauro Carvalho Chehab } 941fcbf5ca0SMauro Carvalho Chehab exit(1); 942fcbf5ca0SMauro Carvalho Chehab} 943