Code: Select all
#!/usr/bin/env ruby
# Script to extract images from the Hawking HNC230G
#
# Copyright (C) Tim Haynes
# HNC230G{at}stirfried.vegetable.org.uk http://pig.sty.nu/
#
# Redistributable under the terms of the GNU Public License: see
# <http://www.gnu.org/copyleft/gpl.html>
#
# Requires ruby, imagemagick
#
nopics=ARGV[1] || "1"
nopics=nopics.to_i
require 'socket'
require 'RMagick'
xsize,ysize=640,480
puts "Connecting"
s=TCPSocket.new('buffalo', 4321)
nopics.times { |n|
puts "Requesting data"
s.puts("0110")
len=s.read(2).reverse.unpack("v")[0]
2.times {s.getc }
puts "Len: #{len}"
jpeg=s.read(len)
puts "Getting image"
img=Magick::Image.from_blob(jpeg)[0];
puts "Saving image"
img.write("foo-#{n}.jpg")
}Code: Select all
<html>
<head>
<title>EdimaxTest</title>
</head>
<body>
<p>
<object classid="clsid:B015B944-7316-49AE-AC84-ACCA9379EA32" id="IC1500PlugIn1" width="611" height="585">
<PARAM name="IP" value="xxx.xxx.x.xx">
<PARAM name="Port" value="4321">
<PARAM name="Code" value="A99EDF974454ADE3674A">
</object>
</p>
</body>
</html>
)? To make a new script with the same tasks.
Is this topic visible to others? I get absolutely no reaction from anybody. Is it just me, or what?Code: Select all
<?
$login = "admin";
$pass = "xxxxxxx";
$ip = "aa.bb.cc.dd";
$port = "4321";
// 120 byte
// 3x 0x00,
// 1x 0x01,
// user name
// 1x 0x00,
// password,
// Nx 0x00,
$logincmd = pack(
"x3H*a*xa*x" .
(120 - 3 - 1 - strlen($login) - 1 - strlen($pass)),
"01", $login, $pass);
// 120 byte
// 3x 0x00,
// 1x 0x0e,
// Nx 0x00,
$framecmd = pack("x3H2x116", "0e");
$login_ok_reply = "0c";
function error($msg)
{
global $sock;
if ($sock) {
fclose($sock);
}
die($msg);
}
function request($sock, $cmd, $len)
{
$ret = fwrite($sock, $cmd, $len);
if (!$ret) {
error("request()/fwrite()==FALSE");
}
if ($ret != $len) {
error("request()/fwrite(): written: {$len}/{$ret}");
}
fflush($sock);
}
/*
function dump($data, $file)
{
$f = fopen($file, "wb");
if (!$f) {
error("dump()/fopen()");
}
$ret = fwrite($f, $data);
if (!$ret) {
error("dump()/fwrite()");
}
fclose($f);
}
*/
$sock = fsockopen("tcp://$ip", $port);
if (!$sock) {
error("fsockopen(tcp://$ip:$port)");
}
// 350ms
stream_set_timeout($sock, 0, 350000);
request($sock, $logincmd, 120);
//echo("login request sent\n");
$ret = stream_get_contents($sock, 120);
//echo("login reply received\n");
if (strlen($ret) != 120) {
error("Error in reply for login. size:120/" . strlen($ret));
}
//dump($ret, "0.dump");
$reply = unpack("H*", $ret[3]);
if ($reply[1] != $login_ok_reply) {
error("Login incorrect!");
}
//echo("OK\n");
request($sock, $framecmd, 120);
//echo("get frame request sent\n");
// 6 fix byte
$ret = fread($sock, 6);
if (!$ret) {
error("Frame signature fread()==FALSE");
}
//dump($ret, "1.dump");
$sig = unpack("H*", $ret);
if ($sig[1] != "000700060000") {
error("Frame signature incorrect");
}
//echo("frame signature ok\n");
// 2 byte: jpeg size.
$ret = fread($sock, 2);
if (!$ret) {
error("Frame size fread()==FALSE");
}
//dump($ret, "2.dump");
$unpacked = unpack("H*", $ret);
sscanf($unpacked[1], "%04x", $frame_size);
//echo("frame_size = $frame_size\n");
// 20 byte ???.
$ret = fread($sock, 20);
if (!$ret) {
error("Skip before frame fread()==FALSE");
}
// JPEG: $frame_size byte.
$ret = stream_get_contents($sock, $frame_size);
if (!$ret) {
error("Frame data stream_get_contents()==FALSE");
}
if (strlen($ret) != $frame_size) {
error("Frame data stream_get_contents() size: " .
"{$frame_size}/" . strlen($ret));
}
header("Content-Type: image/jpeg");
header("Content-Length: $frame_size");
header("Content-Disposition: inline; filename=current.jpg");
echo($ret);
fclose($sock);
?>