something for the gurus to decrypt

[kjelvis]

I want to test the encryption tool I just made.

For the gurus, encrypt this.

gtu10443ldt1624efiw1027d879104479ht1724h78i10241x6w1029jb8u1824kmn81524b78i10241x6w1029jdxr14249ldt1 624efiw1027dd3y1084ix3f1024Ät741224oldt1624eb8u1824kx3f1024Äl0310540b8u1824kd3y1084ix6w1029jx3f102 4Äicz1020mldt1624efiw1027dx3f1024Ä78i10241x3f1024Äb8u1824kd3y1084i1231024546p10254x3f1024Ä9ht172 4hb8u1824kd3y1084id3y1084idxr1424978i10241fiw1027dx3f1024Ägtu1044378i102419ht1724h4355024@

and post the message

Tanks for your time

By how many bits should I encrypt?

[kjelvis]

8 bit

This wouldn't happen to be the message, would it?

congratulations you just won a used russian car.

[sanon]

Matthew, can you tell me how to do that? At least, give me an idea. Thanks.

[PsyVision]

Spill the beans, how did you do it ?

[kjelvis]

hi

Matthew was it easy to crack my text?`
and how did you do it, what tool did you
use.

Please post it here or
send mail [email protected]


Chris Davidsen

Hey, Matthew, how did you do it?

• kjelvis: You mean 64 bit (8 byte), right?
• I only know that gtu10443 is c because it appears both in car and in congratulations.
  
  And:
  x3f1024Ä = ' '
  4355024@ = '.'
  78i10241 = 'a'
  9ht1724h = 'r'
  ldt1624e = 'o'
  fiw1027d = 'n'
  87910447 = 'g'
  x6w1029j = 't'
  b8u1824k = 'u'
  mn81524b = 'l'
  dxr14249 = 'i'
  d3y1084i = 's'
  t741224o = 'y'
  l0310540 = 'j'
  icz1020m = 'w'
  12310245 = 'e'
  46p10254 = 'd'

That's what I know, I just don't know how you got it.

[Edited by Sc0rp on 10-07-2000 at 07:16 AM]

[Jop]

hehe how dumb can you be

First post a topic where you put your encryption algorythm (it's very weak )
and then post a topic with a string exncrypted with the same code and ask people to decrypt it

http://209.207.250.147/showthread.php?threadid=34207

to see what I'm talking about
it's the top code used.
Copy the decrypt part, and trhow a textbox on your form:

Function Dcrypt(normalstring) As String
On Error Resume Next
Dim buildstring As String
Dim buildingstring As String
buildstring = ""
buildingstring = normalstring


For i = 1 To Len(normalstring)


Select Case Mid(buildingstring, i, 5)
Case "1024Ä"
buildstring = buildstring & " "
Case "10241"
buildstring = buildstring & "a"
Case "12242"
buildstring = buildstring & "b"
Case "10443"
buildstring = buildstring & "c"
Case "10254"
buildstring = buildstring & "d"
Case "10245"
buildstring = buildstring & "e"
Case "13246"
buildstring = buildstring & "f"
Case "10447"
buildstring = buildstring & "g"
Case "10258"
buildstring = buildstring & "h"
Case "14249"
buildstring = buildstring & "i"
Case "10540"
buildstring = buildstring & "j"
Case "1026a"
buildstring = buildstring & "k"
Case "1524b"
buildstring = buildstring & "l"
Case "1064c"
buildstring = buildstring & "m"
Case "1027d"
buildstring = buildstring & "n"
Case "1624e"
buildstring = buildstring & "o"
Case "1074f"
buildstring = buildstring & "p"
Case "1028g"
buildstring = buildstring & "q"
Case "1724h"
buildstring = buildstring & "r"
Case "1084i"
buildstring = buildstring & "s"
Case "1029j"
buildstring = buildstring & "t"
Case "1824k"
buildstring = buildstring & "u"
Case "1094l"
buildstring = buildstring & "v"
Case "1020m"
buildstring = buildstring & "w"
Case "1024n"
buildstring = buildstring & "x"
Case "1224o"
buildstring = buildstring & "y"
Case "1034p"
buildstring = buildstring & "z"
Case "1024q"
buildstring = buildstring & "1"
Case "2024r"
buildstring = buildstring & "2"
Case "1324s"
buildstring = buildstring & "3"
Case "1044t"
buildstring = buildstring & "4"
Case "3024u"
buildstring = buildstring & "5"
Case "1424v"
buildstring = buildstring & "6"
Case "1054w"
buildstring = buildstring & "7"
Case "4024x"
buildstring = buildstring & "8"
Case "1524y"
buildstring = buildstring & "9"
Case "1064z"
buildstring = buildstring & "0"
Case "5024A"
buildstring = buildstring & "!"
Case "1624B"
buildstring = buildstring & "@"
Case "1074C"
buildstring = buildstring & "#"
Case "6024D"
buildstring = buildstring & "$"
Case "1724E"
buildstring = buildstring & "%"
Case "1084F"
buildstring = buildstring & "^"
Case "7024G"
buildstring = buildstring & "&"
Case "1824H"
buildstring = buildstring & "*"
Case "1094I"
buildstring = buildstring & "("
Case "8024J"
buildstring = buildstring & ")"
Case "1924K"
buildstring = buildstring & "-"
Case "1004L"
buildstring = buildstring & "_"
Case "0024M"
buildstring = buildstring & "="
Case "1924N"
buildstring = buildstring & "+"
Case "1084O"
buildstring = buildstring & "["
Case "9024P"
buildstring = buildstring & "]"
Case "1824Q"
buildstring = buildstring & "{"
Case "1074R"
buildstring = buildstring & "}"
Case "8024S"
buildstring = buildstring & "\"
Case "1724T"
buildstring = buildstring & "|"
Case "1064U"
buildstring = buildstring & ";"
Case "7024V"
buildstring = buildstring & ":"
Case "1624W"
buildstring = buildstring & "'"
Case "1054X"
buildstring = buildstring & Chr(22)
Case "6024Y"
buildstring = buildstring & "<"
Case "1524Z"
buildstring = buildstring & ">"
Case "1044!"
buildstring = buildstring & ","
Case "5024@"
buildstring = buildstring & "."
Case "1424#"
buildstring = buildstring & "/"
Case "1034$"
buildstring = buildstring & "?"
Case "4024%"
buildstring = buildstring & "`"
Case "1324^"
buildstring = buildstring & "~"
Case "1024&"
buildstring = buildstring & Chr(13)
Case "3024*"
buildstring = buildstring & Chr(10)
End Select
Next i
Dcrypt = buildstring


DoEvents
End Function

Private Sub Command1_Click()
    Text1.Text = Dcrypt(Text1.Text)
End Sub

And you're ready

1020m1624e1020m1024Ä1064c102411027d1024Ä1224o1624e1824k1624W1724h102451024Ä1084i1624e1024Ä104431624e1624e1524b1024Ä1224o1624e1824k1024Ä1020m1624e1027d5024A5024A5024A

Try to decrypt this mateys!!!
Kjelvis: this one is for you!

1027d1624e1024Ä10258102411724h102541024Ä1324610245102451524b142491027d104471084i1024Ä7024V8024J1024Ä122421824k1029j1024Ä142491024Ä1029j10258142491027d1026a1024Ä142491029j1624W1084i1024Ä1027d1624e1029j1024Ä1029j10258102411029j1024Ä1084i1064c102411724h1029j1024Ä1029j1624e1024Ä13246142491724h1084i1029j1024Ä1074f1624e1084i1029j1024Ä1029j10258102451024Ä104431624e10254102451024Ä1824k1084i10245102541024Ä102411027d102541024Ä1029j10258102451027d1024Ä102411084i1026a142491027d104471024Ä132461624e1724h1024Ä1824k1084i1024Ä1029j1624e1024Ä1025410245104431724h1224o1074f1029j1024Ä142491029j5024@5024@1024Ä1024Ä122421824k1029j1024Ä10258102451224o1044!1024Ä1224o1624e1824k1024Ä104431624e1824k1524b102541024Ä12242102451029j1029j102451724h1024Ä1824k1084i102451024Ä10258102451084i102411424910254105401624e102451624W1084i1024Ä104431624e10254102451024Ä1074f1624e1084i1029j10245102541024Ä142491027d1024Ä1224o1624e1824k1724h1024Ä1624e1029j10258102451724h1024Ä1074f1624e1084i1029j1044!1024Ä10258102411094l102451024Ä102451027d104431724h1224o1074f1029j10245102541024Ä132461824k1027d1024Ä1064c102411029j102455024A

Let this be a lesson

[Edited by Jop on 10-07-2000 at 09:25 AM]

[PsyVision]

1 + 2 is 3 so A must be b which means

"no hard feelings but i think it's not that smart to first post the code used and then asking for us to decrypt it.. but hey, you could better use hesaidjoe's code posted in your other post, have encrypted fun mate!"

hehe kjelvis.

Never leave clues .

[PaulLewis]

What was funny was that there was a post with the answer in it, yet a few people asked Matthew Gates how he did it...

That was the funny part, not the fact that kjelvis seemed to deliberately leave a hint or two lying around...

Afterall, what good is posting a challenge if it is impossible for someone to solve?

I must say though, that when I had a look (before looking at the prior post), all I noted was the 8 byte repeated pattern for a few symbols (notably the space symbol) plus the fact that you can look at just the eigth symbol in each set and it too has a one to one relationship to the decrypted symbol.

Cheers

It was quite funny. See what happens when you pay attention. You just think that maybe history or the past may be useful for what's to come in the Future . So remember and know your History!