SRL Archive - Other Scripts

Geocache Riddle Decoder

Version 2.3

This is a very usefull script. It ask's you what the geocache riddle is and you type it in. Then it gived you the decoded part. If you want to create your own geocache riddle, you type in the words you want to be encypted. Then it gives you the scrambled letters!

Link

fjrrg fpevcg, nygubhtu vqx jung v jbhyq hfr vg sbe.. znlor gb fraq frperg abgrf gb crbcyr..yby

arj nagvyrnpu vqrn. cbfg nyy fpevgcf nsgre chggvat gurz guebhtu guvf :)

bbbu, v qvq fbzrguvat yvxr guvf orsber. vg jbexrq jvgu vfzf :)

rqvg bbbu, v frr lbhef hfrf vfzf nf jryy. jnvg… vg bayl fraqf bar? *gnxrf nabgure ybbx* guvf ybbxf fgenatyl snzvyvne gb zl abgnftbbq rapelcgreqrpelcgre…

lrnu, v haqrefgbbq rirel jbeq wnfba fnvq…

lbh… haqrefgbbq zr? *grne snyyf* svanyyl!

frevbhfyl, jul jbhyq lbh gnxr zl fpevcg, fyvtugyl zbqvsl vg, gura ghea nebhaq naq pnyy vg lbhef?

whfg n ovg ehqr, va zl zvaq.

v tbbtyrq vg naq tbg n jrocntr ba vg fb gungf jung v hfrq. vqx vs lbh unir lbhe bja jrofvgr ba vg orphnfr gungf jnug v hfrq

v guvax guvf vf cerggl pbby rira gubhtu wnfba2tf znqr fbzrguvat yvxr guvf… xvaqn jrveq :D

fghcrqfcnz

c.f. guvf vf fgvyy pbby, yby

I've only posted it here, and on moparisthebest.

I have my own sub-website, but I didn't post it there.

Tell me, what site did you get it off of?

*erwbvprf wnfba'f ynfg cbfg jnf gur svefg bar v qvqa'g unir gb qrpbqr yvar ol yvar*

:D !qrfhsabp ro yyvj hbl ,fqenjxpno tavxyng ryvuj uthbar ab ryozne v sv gnug xavug v

!fqenjxpno rclg bg jbu hbl guthng buj erozrzre gfhw .rgnz ,avntn xavug

?'drtcyecaefyau' nv rplt og rloa uby eea thb .uhn

Hi, what's up?
?cu s'tnhj ,iu

rofl this is a really fun script lol! nice idea

For reasons unknown to me, the dragging (double click it) on this still won't work right, but I'll release it anyway (Loosely based on farno's)

program X;
const
  Speedy = False; //Set to true if you want conversions to be instant
var
  frmDesign: TForm;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Button1: TButton;
  ProgressBar1: TProgressBar;
  Button2: TButton;
  enc, rev: boolean;
  x, s, m, n: integer;
  tstr, show1, show2: string;
  str2: char;

procedure Move(Sender: TObject);
var
  x1, y1, x2, y2: integer;
begin
  getmousepos(x1, y1);
  x1 := frmDesign.Left - x1;
  y1 := frmDesign.Top - y1;
  repeat
    wait(5);
    if(IsMouseButtonDown(true))then
    begin
      getmousepos(x2, y2);
      frmDesign.Left := x2 + x1;
      frmDesign.Top := y2 + y1;
      m := x2 + x1;
      n := y2 + y1;
    end;
  until(not(IsMouseButtonDown(true)))
end;

procedure Close(Sender: TObject);
begin
  frmDesign.Modalresult := mrOk;
end;

procedure Encrypt(Sender: TObject);
begin
  if (Edit1.Text = '') then
    Exit;

  Button1.Visible := False;
  Button2.Visible := False;
  ProgressBar1.Visible := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := Length(Edit1.Text) * 2;
  ProgressBar1.Position := 0;

  x := 1;
  enc := true;
  tstr := Edit1.Text;
  s := 1 + random(4);
  if (Length(Edit1.Text) mod 2 = 0) then
    s := s * 3;
  if (Speedy) then
    s := 0;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := m;
  frmDesign.Top := n;
  frmDesign.BorderIcons := [];
  frmDesign.BorderStyle := bsNone;
  frmDesign.Caption := 'frmDesign';
  frmDesign.ClientHeight := 90;
  frmDesign.ClientWidth := 195;
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  frmDesign.Ondblclick := @Move;
  Label1 := TLabel.Create(frmDesign);
  Label1.Parent := frmDesign;
  Label1.Left := 1;
  Label1.Top := 5;
  Label1.Width := 64;
  Label1.Height := 13;
  Label1.Caption := 'Unencrypted:';
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 1;
  Label2.Top := 26;
  Label2.Width := 51;
  Label2.Height := 13;
  Label2.Caption := 'Encrypted:';
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 1;
  Label3.Top := 47;
  Label3.Width := 56;
  Label3.Height := 13;
  Label3.Caption := 'Reversified:';
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 72;
  Edit1.Top := 1;
  Edit1.Width := 121;
  Edit1.Height := 21;
  Edit1.TabOrder := 8;
  Edit2 := TEdit.Create(frmDesign);
  Edit2.Parent := frmDesign;
  Edit2.Left := 72;
  Edit2.Top := 22;
  Edit2.Width := 121;
  Edit2.Height := 21;
  Edit2.TabOrder := 9;
  Edit3 := TEdit.Create(frmDesign);
  Edit3.Parent := frmDesign;
  Edit3.Left := 72;
  Edit3.Top := 44;
  Edit3.Width := 121;
  Edit3.Height := 21;
  Edit3.TabOrder := 10;
  Button1 := TButton.Create(frmDesign);
  Button1.Parent := frmDesign;
  Button1.Left := 1;
  Button1.Top := 68;
  Button1.Width := 48;
  Button1.Height := 20;
  Button1.Caption := 'Encrypt';
  Button1.TabOrder := 11;
  Button1.Onclick := @Encrypt;
  ProgressBar1 := TProgressBar.Create(frmDesign);
  ProgressBar1.Parent := frmDesign;
  ProgressBar1.Left := 3;
  ProgressBar1.Top := 70;
  ProgressBar1.Width := 190;
  ProgressBar1.Height := 16;
  ProgressBar1.TabOrder := 12;
  ProgressBar1.Visible := False;
  Button2 := TButton.Create(frmDesign);
  Button2.Parent := frmDesign;
  Button2.Left := 144;
  Button2.Top := 68;
  Button2.Width := 49;
  Button2.Height := 20;
  Button2.Caption := 'Finish';
  Button2.TabOrder := 13;
  Button2.Onclick := @Close;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.SHOW;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

begin
  SafeInitForm;
  SafeShowFormModal;
  repeat
    wait(10);

    if (enc) then
    begin
      str2 := tstr[x];

      if (str2 = '''') then
        tstr[x] := '''';
      if (str2 = ' ') then
        tstr[x] := ' ';
      if (str2 = ',') then
        tstr[x] := ',';
      if (str2 = '.') then
        tstr[x] := '.';
      if (str2 = '?') then
        tstr[x] := '?';
      if (str2 = '!') then
        tstr[x] := '!';
      if (str2 = '*') then
        tstr[x] := '*';
      if (str2 = '=') then
        tstr[x] := '=';
      if (str2 = ')') then
        tstr[x] := ')';
      if (str2 = '(') then
        tstr[x] := '(';
      if (str2 = 'a') then
        tstr[x] := 'n';
      if (str2 = 'b') then
        tstr[x] := 'o';
      if (str2 = 'c') then
        tstr[x] := 'p';
      if (str2 = 'd') then
        tstr[x] := 'q';
      if (str2 = 'e') then
        tstr[x] := 'r';
      if (str2 = 'f') then
        tstr[x] := 's';
      if (str2 = 'g') then
        tstr[x] := 't';
      if (str2 = 'h') then
        tstr[x] := 'u';
      if (str2 = 'i') then
        tstr[x] := 'v';
      if (str2 = 'j') then
        tstr[x] := 'w';
      if (str2 = 'k') then
        tstr[x] := 'x';
      if (str2 = 'l') then
        tstr[x] := 'y';
      if (str2 = 'm') then
        tstr[x] := 'z';
      if (str2 = 'n') then
        tstr[x] := 'a';
      if (str2 = 'o') then
        tstr[x] := 'b';
      if (str2 = 'p') then
        tstr[x] := 'c';
      if (str2 = 'q') then
        tstr[x] := 'd';
      if (str2 = 'r') then
        tstr[x] := 'e';
      if (str2 = 's') then
        tstr[x] := 'f';
      if (str2 = 't') then
        tstr[x] := 'g';
      if (str2 = 'u') then
        tstr[x] := 'h';
      if (str2 = 'v') then
        tstr[x] := 'i';
      if (str2 = 'w') then
        tstr[x] := 'j';
      if (str2 = 'x') then
        tstr[x] := 'k';
      if (str2 = 'y') then
        tstr[x] := 'l';
      if (str2 = 'z') then
        tstr[x] := 'm';
      if (str2 = 'A') then //CAPS
        tstr[x] := 'N';
      if (str2 = 'B') then
        tstr[x] := 'O';
      if (str2 = 'C') then
        tstr[x] := 'P';
      if (str2 = 'D') then
        tstr[x] := 'Q';
      if (str2 = 'E') then
        tstr[x] := 'R';
      if (str2 = 'F') then
        tstr[x] := 'S';
      if (str2 = 'G') then
        tstr[x] := 'T';
      if (str2 = 'H') then
        tstr[x] := 'U';
      if (str2 = 'I') then
        tstr[x] := 'V';
      if (str2 = 'J') then
        tstr[x] := 'W';
      if (str2 = 'K') then
        tstr[x] := 'X';
      if (str2 = 'L') then
        tstr[x] := 'Y';
      if (str2 = 'M') then
        tstr[x] := 'Z';
      if (str2 = 'N') then
        tstr[x] := 'A';
      if (str2 = 'O') then
        tstr[x] := 'B';
      if (str2 = 'P') then
        tstr[x] := 'C';
      if (str2 = 'Q') then
        tstr[x] := 'D';
      if (str2 = 'R') then
        tstr[x] := 'E';
      if (str2 = 'S') then
        tstr[x] := 'F';
      if (str2 = 'T') then
        tstr[x] := 'G';
      if (str2 = 'U') then
        tstr[x] := 'H';
      if (str2 = 'V') then
        tstr[x] := 'I';
      if (str2 = 'W') then
        tstr[x] := 'J';
      if (str2 = 'X') then
        tstr[x] := 'K';
      if (str2 = 'Y') then
        tstr[x] := 'L';
      if (str2 = 'Z') then
        tstr[x] := 'M';
      if (str2 = '1') then
        tstr[x] := '1';
      if (str2 = '2') then
        tstr[x] := '2';
      if (str2 = '3') then
        tstr[x] := '3';
      if (str2 = '4') then
        tstr[x] := '4';
      if (str2 = '5') then
        tstr[x] := '5';
      if (str2 = '6') then
        tstr[x] := '6';
      if (str2 = '7') then
        tstr[x] := '7';
      if (str2 = '8') then
        tstr[x] := '8';
      if (str2 = '9') then
        tstr[x] := '9';
      ProgressBar1.Position := x / 2;
      wait(10 * s + random(30 * s));
      show1 := show1 + tstr[x];
      show2 := show2 + tstr[x];
      Edit2.Text := show1;
      Edit3.Text := show2;

      x := x + 1;

      if (x > Length(Edit1.Text)) then
      begin
        enc := false;
        rev := true;
        tstr := Edit2.Text;
        x := Length(Edit1.Text);
      end;
    end;

    if (rev) then
    begin
      str2 := Edit2.Text[x];
      tstr[Length(Edit2.Text) - x + 1] := str2;
      Edit3.Text := tstr;
      ProgressBar1.Position := ProgressBar1.Max - x;
      wait(35 * s + random(20 * s));
      x := x - 1;
      if (x < 1) then
      begin
        Button1.Visible := True;
        Button2.Visible := True;
        ProgressBar1.Visible := False;
        rev := false;
      end;
    end;
  until (frmDesign.Modalresult = mrOk)
end.

I think it may have been a forum. Probably morphisthebest. It's not on; my toolbar history.

I think ive seen that encrypt thing before.. Or someone released something very similar..

http://www.villavu.com/forum/showthread.php?t=8914

That?

Exactly that :)

wow? people here geocache? I do it all the time :p www.geocaching.com graniteers :p woot go us!

urur, guvf vf cerggl fperjrq hc…c. vgf gnxra fb ybat gb qrpbqr rirelguvat va guvf gbcvp gubhtu!! jryy, unir sha qrpbqvat guvf lnyy. vz tbaan tb oht zl sevraqf ol hfvat guvf, naq znxvat gurz svther vg bhg jvgubhg guvf cebtenz!!! zhununununu. vz fb rivy.