Pete's QBASIC Site

Posted: **Fri Sep 23, 2005 5:11 pm**

Decrypt this:

0702032089011101170320104097011801010320100010109901140121011201160101010003201090121032011201140111010301140970109033032067011101100103011409701160115033032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032073032010409701180101032097011003201050100010109703201020111011403209703201100101011903201120114011101030114097010904403209801170116032010001110320110011101160320104097011801010320116010401010320114010101150111011701140990101011503201160111032010909701070101032010501160460320730320320320110010101010100032097032011501160970980108010103206606508307306703201010110011801050114011101100109010101100116044032011501170980114011101170116010501100101011504403201020117011009901160105011101100115044032097011001000320109011101140101046032066073079083032099097010801080320320320320105011001020111011401090970116010501110110032011901110117010801000320104010101080112044032098011701160320105011503201100111011603201100101099099010101150115097011401210460320650110012103201050110010201110114010909701160105011101100320119011101170108010003201040101010801120460320320320320320320320320780790840690330330330320840104010501150320112011401110103011409701090320105011503209703201120114011101060101099011603201050110032083067082069069078032048044032056048012005205103201020111011401090970116046032032032032032032032032032032032032032032032032032032065032011001050990101032070010501080101032077097011009701030101011403201190111011701080100032010401010108011204603207709701210980101032080068083032011501160121010801010460320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320730680690650830330320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320320650108011501110440320730320119097011001160320116011103201070110011101190320105010203201210111011703201160104010501100107032010901210320102010501080101032010409701150320970320103011101110100032010101100990114012101120116010501110110032010901010116010401110100046032032032032032032032032032032032032032032032032084010401010320102010501080101011503209701140101032010401170103010104403201160104011101170103010404603207303201060117011501160320110010101010100032012101110117011403201110112010501100105011101100320105010203201050116039011503201150101099011701140101046032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032084010409701100107032012101110117046032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032080065084090032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032032

HINT: 80X25
HINT: You may want to save it as a file and then open it as a string in QBASIC...

Posted: **Sat Sep 24, 2005 1:17 am**

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

Posted: **Mon Sep 26, 2005 3:44 pm**

The first 4 digits are for color, and you need to take 3 digits at a time.

Posted: **Mon Sep 26, 2005 3:49 pm**

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

Posted: **Mon Sep 26, 2005 4:05 pm**

There's sumfin with the text "PDS" in it...

Posted: **Mon Sep 26, 2005 4:21 pm**

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...

Posted: **Mon Sep 26, 2005 4:23 pm**

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..

Posted: **Mon Sep 26, 2005 4:26 pm**

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

Posted: **Mon Sep 26, 2005 4:28 pm**

I can't see the code box... damn

Posted: **Mon Sep 26, 2005 4:34 pm**

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?

Posted: **Mon Sep 26, 2005 4:39 pm**

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...

Posted: **Mon Sep 26, 2005 4:44 pm**

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

Pete's QBASIC Site

Challenge!

Challenge!