Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

(bbq) Re: Re: Hex Embedded Images

by BBQ (Deacon)
on Dec 23, 2000 at 08:51 UTC ( #48126=note: print w/replies, xml ) Need Help??


in reply to Re: Hex Embedded Images
in thread Hex Embedded Images

Ooops, that server has gone away... The code went something like this (not exactly, but perty close).
#!/usr/bin/perl -w use CGI; use CGI::Carp 'fatalsToBrowser'; CGI::ReadParse(*in); print "Content-type: image/gif\n\n"; print Images($in{img}); exit; sub Images { my $image = $_[0]; my %IMG; $IMG{dir} = '47494638396114001600c20000ffffff'. 'ffcc99ccffff99663333333300000000'. '000000000021fe4e5468697320617274'. '20697320696e20746865207075626c69'. '6320646f6d61696e2e204b6576696e20'. '4875676865732c206b6576696e684065'. '69742e636f6d2c2053657074656d6265'. '7220313939350021f90401000002002c'. '000000001400160000035428badcfe30'. 'ca4959b9f8ce12baef45c47d64a629c5'. '407a6a8906432cc72b1c8ef51a13579e'. '0f3c9c8f05ec0d4945e171673cb2824e'. '2234da495261569856c5ddc27882d46c'. '3c2680c3e6b47acd232c4cf08c3b0100'. '3b'; $IMG{bomb} = '47494638396114001600e30000ffffff'. 'ffcc33ccffffccccccbbbbbb99999988'. '88886666665555553333330000000000'. '0000000000000000000000000021fe4e'. '546869732061727420697320696e2074'. '6865207075626c696320646f6d61696e'. '2e204b6576696e204875676865732c20'. '6b6576696e68406569742e636f6d2c20'. '53657074656d62657220313939350021'. 'f90401000002002c0000000014001600'. '00048f30c949a7b85824c0bbdf49766d'. '5e4986d916000ab07624808eddfb7dd8'. 'a60449d0768a447048e3040a258572a9'. 'a0ad14055ba7402d34351fe16f4abdc6'. '0008a85631987a3d6204f540e6588b1c'. 'a51a603884cb6f2cba40a0db8500795f'. '2c557f808249078a08124a8167688b8d'. '8e881e03418d42789096434a658f709d'. '9f66a225a7820955abac5442194cb1b2'. '5711003b'; $IMG{back} = '47494638396114001600c20000ffffff'. 'ccffff99999966666633333300000000'. '000000000021fe4e5468697320617274'. '20697320696e20746865207075626c69'. '6320646f6d61696e2e204b6576696e20'. '4875676865732c206b6576696e684065'. '69742e636f6d2c2053657074656d6265'. '7220313939350021f90401000001002c'. '000000001400160000034b18badcfe23'. '10f26a103353bba2cedcf5699c374e16'. '768290740605372a451c6e586d2ffb92'. 'eb354650f103ea78c6a491a66c16284e'. 'a720da8cc0a83a824018d55692ded055'. 'fce891cf8b04003b'; return($IMG{$image}); }
Enjoy!

#!/home/bbq/bin/perl
# Trust no1!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://48126]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2022-12-07 10:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?