sane-project-website/old-archive/1998-11/0106.html

<!-- received="Wed Nov 11 02:27:50 1998 PST" -->
<!-- sent="Wed, 11 Nov 1998 10:24:40 +0000 (GMT)" -->
<!-- name="Jon Knight" -->
<!-- email="jon@net.lut.ac.uk" -->
<!-- subject="Re: Parallell port scanners" -->
<!-- id="" -->
<!-- inreplyto="Pine.SOL.3.96.981111111401.2295A-100000@pherl.dtek.chalmers.se" -->
<title>sane-devel: Re: Parallell port scanners</title>
<h1>Re: Parallell port scanners</h1>
<b>Jon Knight</b> (<a href="mailto:jon@net.lut.ac.uk"><i>jon@net.lut.ac.uk</i></a>)<br>
<i>Wed, 11 Nov 1998 10:24:40 +0000 (GMT)</i>
<p>
<ul>
<li> <b>Messages sorted by:</b> <a href="date.html#106">[ date ]</a><a href="index.html#106">[ thread ]</a><a href="subject.html#106">[ subject ]</a><a href="author.html#106">[ author ]</a>
<!-- next="start" -->
<li> <b>Next message:</b> <a href="0107.html">Dr. Andreas Bolsch: "Re: Problems with sane 0.74 for OS/2"</a>
<li> <b>Previous message:</b> <a href="0105.html">Magnus Hacker: "Parallell port scanners"</a>
<!-- nextthread="start" -->
<!-- reply="end" -->
</ul>
<!-- body="start" -->
On Wed, 11 Nov 1998, Magnus Hacker wrote:<br>
<i>&gt; I browsed through the list archives on mostang.com and noticed</i><br>
<i>&gt; that the question about parallell port scanners has been brought</i><br>
<i>&gt; up once or twice before, but I couldn't find out whether a</i><br>
<i>&gt; solution was found or not.</i><br>
<p>
See the current threads about BizCard scanners and Wine for the current<br>
state of play with parallel port scanner snooping.  Each parallel port<br>
scanner looks to need its own backend (and quite possibly kernel device<br>
driver to get the required speed as was discovered with the Plustek<br>
backend).<br>
<p>
Tatty bye,<br>
<p>
Jim'll<br>
<p>
#!/usr/bin/perl -- -Whois++-client-in-6-lines-of-Perl -Beat-that-Z39.50! <br>
use IO::Socket;sub w{$f=shift;$a{$f}=1;($h,$p,$q)=split("/",$f);$s=<br>
IO::Socket::INET-&gt;new(PeerAddr=&gt;"$h:$p")||return;print $s "$q\r\n";while(&lt;$s&gt;)<br>
{next if(/^%/);if(/^# SERVER-TO-ASK/){while(&lt;$s&gt;){$x=$1 if/Name: (.*)\r\n$/;$y<br>
=$1 if/Port: (.*)\r\n$/;$f="$x/$y/$q";@j=(@j,$f)if(/^# END/&amp;&amp;!$a{$f})}}else{<br>
print}}close($s)}@j=shift;while(@j){w(pop(@j))}# whois++.pl host/port/query<br>
<p>
<p>
<pre>
--
Source code, list archive, and docs: <a href="http://www.mostang.com/sane/">http://www.mostang.com/sane/</a>
To unsubscribe: echo unsubscribe sane-devel | mail <a href="mailto:majordomo@mostang.com">majordomo@mostang.com</a>
</pre>
<!-- body="end" -->
<p>
<ul>
<!-- next="start" -->
<li> <b>Next message:</b> <a href="0107.html">Dr. Andreas Bolsch: "Re: Problems with sane 0.74 for OS/2"</a>
<li> <b>Previous message:</b> <a href="0105.html">Magnus Hacker: "Parallell port scanners"</a>
<!-- nextthread="start" -->
<!-- reply="end" -->
</ul>