Challenge!

Discuss whatever you want here--both QB and non-QB related. Anything from the DEF INT command to the meaning of life!

Moderators: Pete, Mods

Post Reply
Patz QuickBASIC Creations
Veteran
Posts: 399
Joined: Wed Mar 02, 2005 9:01 pm
Location: Nashville, Tennessee
Contact:

Challenge!

Post by Patz QuickBASIC Creations »

Decrypt this:

Code: Select all

0702032089011101170320104097011801010320100010109901140121011201160101010003201090121032011201140111010301140970109033032067011101100103011409701160115033032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032073032010409701180101032097011003201050100010109703201020111011403209703201100101011903201120114011101030114097010904403209801170116032010001110320110011101160320104097011801010320116010401010320114010101150111011701140990101011503201160111032010909701070101032010501160460320730320320320110010101010100032097032011501160970980108010103206606508307306703201010110011801050114011101100109010101100116044032011501170980114011101170116010501100101011504403201020117011009901160105011101100115044032097011001000320109011101140101046032066073079083032099097010801080320320320320105011001020111011401090970116010501110110032011901110117010801000320104010101080112044032098011701160320105011503201100111011603201100101099099010101150115097011401210460320650110012103201050110010201110114010909701160105011101100320119011101170108010003201040101010801120460320320320320320320320320780790840690330330330320840104010501150320112011401110103011409701090320105011503209703201120114011101060101099011603201050110032083067082069069078032048044032056048012005205103201020111011401090970116046032032032032032032032032032032032032032032032032032032065032011001050990101032070010501080101032077097011009701030101011403201190111011701080100032010401010108011204603207709701210980101032080068083032011501160121010801010460320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320730680690650830330320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320650108011501110440320730320119097011001160320116011103201070110011101190320105010203201210111011703201160104010501100107032010901210320102010501080101032010409701150320970320103011101110100032010101100990114012101120116010501110110032010901010116010401110100046032032032032032032032032032032032032032032032032084010401010320102010501080101011503209701140101032010401170103010104403201160104011101170103010404603207303201060117011501160320110010101010100032012101110117011403201110112010501100105011101100320105010203201050116039011503201150101099011701140101046032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032084010409701100107032012101110117046032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032080065084090032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032
HINT: 80X25
HINT: You may want to save it as a file and then open it as a string in QBASIC...
User avatar
Michael Calkins
Veteran
Posts: 76
Joined: Tue Apr 05, 2005 8:40 pm
Location: Floresville, Texas
Contact:

Post by Michael Calkins »

FPZa(F(FF(FZZ(PP(Fc2ZF2.I2ab<2FP2b22(ZP(a2ZPF2<(.AZFP.NOTE!!!T2((F2F<(ac2F(F(<FFb2P.IDEAS!A2,IF2Z2(Fac2Z((22F(((<2(22F(F


Well, I'm not sure that is what you are looking for, but I see "NOTE!!!" and "IDEAS!" Was there anything else? I just took it 2 digits at a time, assuming they were decimal ASCII values, and filtered out everything below 32.
Regards,
Michael
Bring on the Maulotaurs! oops...
I like to slay Disciples of D'Sparil...
Patz QuickBASIC Creations
Veteran
Posts: 399
Joined: Wed Mar 02, 2005 9:01 pm
Location: Nashville, Tennessee
Contact:

Post by Patz QuickBASIC Creations »

The first 4 digits are for color, and you need to take 3 digits at a time.
Z!re
Veteran
Posts: 887
Joined: Wed Aug 04, 2004 11:15 am

Post by Z!re »

As always when someone post random stuff asking for it to be decoded:
Post source.

A good encryption is safe even when the source is available..
Ofcourse, if this was just an unserioous random post, then feel free to ignore this
I have left this dump.
User avatar
SebMcClouth
Veteran
Posts: 240
Joined: Fri Apr 29, 2005 2:20 am
Location: Inside the Matrix

Post by SebMcClouth »

There's sumfin with the text "PDS" in it...
I know why you're here. I know what you've been doing... why you hardly sleep, why you live alone, and why night after night, you sit by your computer...<br>
Unfortunately, no one can be told what Qbinux is. You have to see it for yourself.
Patz QuickBASIC Creations
Veteran
Posts: 399
Joined: Wed Mar 02, 2005 9:01 pm
Location: Nashville, Tennessee
Contact:

Post by Patz QuickBASIC Creations »

Z!re wrote:As always when someone post random stuff asking for it to be decoded:
Post source.

A good encryption is safe even when the source is available..
I was seeing if someone could get it without the source...
Micheal is on the right track.
Basic outline:

Code: Select all

OPEN "yourfile.fil" FOR INPUT ACCESS READ AS #1
INPUT #1, stri$
Let Fore = Val(Left$(Stri$, 2)
Let Back = Val(Mid$(Stri$,2,2)
'and then process ASCII codes...
Z!re
Veteran
Posts: 887
Joined: Wed Aug 04, 2004 11:15 am

Post by Z!re »

Code: Select all

open "dummy.txt" for input as #1
input #1, t$
close #1


color 7, 2

for a = 1 to len(t$) step 3
	
	print chr(val(mid(t$, a, 3)));
	
next
sleep
Dosent work..
The first 4 digits are removed from dummy.txt and replaced with the color statement..

All i get is garbage..
I have left this dump.
User avatar
SebMcClouth
Veteran
Posts: 240
Joined: Fri Apr 29, 2005 2:20 am
Location: Inside the Matrix

Post by SebMcClouth »

Not complently. Try running this:

Code: Select all

cls

a$ = "numbers"

f=5

for b= 0 to 255
do while f < len(a$)/3
g=val(mid$(a$,f,3))
if g > 255 then
do until g<=255
g=g-255
loop
end if
h=b+g
if h>255 then
do until h <=255
h=h-255
loop
end if
filename$="sumfin."+rtrim$(ltrim$(str$(b)))
open filename$ for output as #1
print chr$(h);
print #1, chr$(h);
close #1
f=f+3
loop
next
I know why you're here. I know what you've been doing... why you hardly sleep, why you live alone, and why night after night, you sit by your computer...<br>
Unfortunately, no one can be told what Qbinux is. You have to see it for yourself.
User avatar
SebMcClouth
Veteran
Posts: 240
Joined: Fri Apr 29, 2005 2:20 am
Location: Inside the Matrix

Post by SebMcClouth »

I can't see the code box... damn
I know why you're here. I know what you've been doing... why you hardly sleep, why you live alone, and why night after night, you sit by your computer...<br>
Unfortunately, no one can be told what Qbinux is. You have to see it for yourself.
User avatar
SebMcClouth
Veteran
Posts: 240
Joined: Fri Apr 29, 2005 2:20 am
Location: Inside the Matrix

Post by SebMcClouth »

how about this one:

Code: Select all

cls

a$="numbers"

color 7,2
for a= 5 to len(a$) step 3
b=val(mid$(a$,a,3))
do until b<=255
b=b-255
loop
print chr$(b);
next
I get Patz enu?
I know why you're here. I know what you've been doing... why you hardly sleep, why you live alone, and why night after night, you sit by your computer...<br>
Unfortunately, no one can be told what Qbinux is. You have to see it for yourself.
Patz QuickBASIC Creations
Veteran
Posts: 399
Joined: Wed Mar 02, 2005 9:01 pm
Location: Nashville, Tennessee
Contact:

Post by Patz QuickBASIC Creations »

The crypted message is soooo... (repeats the O for 3 hours) ooo long that the code box got moved over. But, anyway, heres how you need to decrypt it. (you need to scroll over to see the code box)
(might need tuning...) (after puting quotes around it in the file)

Code: Select all

OPEN "yourfile.fil" FOR INPUT ACCESS READ AS #1 
INPUT #1, stri$ 
Let Fore = Val(Left$(Stri$, 2) 
Let Back = Val(Mid$(Stri$,2,2) 
Color Fore,Back:CLS
x=1:y=1
WHILE Count <> 80*23
Let Code$ = CHR$(VAL(MID$(Stri$,(this is location)Count*3+4, (this is quantity) 3))))
LOCATE y,x:Print Code$
Let x = x + 1
IF X = 81 THEN
X = 1
Y = Y + 1
ENDIF
WEND
I think that works...
Seb McClouth

Post by Seb McClouth »

Didn't I get close to a solution? with help?
Post Reply