Re: Some fun with quines

[Jussi Lahtinen <jussi.lahtinen@xxxxxxxxx>]

Classic. First in Gambas..?

Jussi

On Fri, Oct 24, 2025 at 2:03 AM Brian G <brian@xxxxxxxxxxxxxxxx> wrote:

> A gambas script quine.. just a little fun... silly obfuscation ...
>
> ------------------- cut after here ------------------------
>
> #!/usr/bin/env gbs3
> ' Gambas Script File Created 10/23/2025 14:05:03
> ' A Quine, in gambas script
> Dim a As String =
>
> "IyEvdXNyL2Jpbi9lbnYgZ2JzMyYxJyBHYW1iYXMgU2NyaXB0IEZpbGUgQ3JlYXRlZCAxMC8yMy8yMDI1IDE0OjA1OjAzJjEnIEEgUXVpbmUsIGluIGdhbWJhcyBzY3JpcHQmMURpbSBhIEFzIFN0cmluZyA9ICYyJjFQcmludCBTdWJzdChVbkJhc2U2NChhKSwgIlxuIiwgUXVvdGUoYSkpJjFRdWl0IDAmMUNhdGNoJjFFcnJvciAiU2NyaXB0IEVycm9yID4iOzsgZXJyb3IudGV4dCAmICJcbiIgJiBlcnJvci53aGVyZQ=="
> Print Subst(UnBase64(a), "\n", Quote(a))
> Quit 0
> Catch
> Error "Script Error >";; error.text & "\n" & error.where
>
> -------------------------- cut until before here
> -------------------------------------------------------
>
> Save to a file named quine.gbs, make sure no extra carriage return after
> last line
>
> then
>
> cat quine.gbs | gbs3 - | gbs3 - | gbs3 - > quine2.gbs ; diff quine.gbs
> quine2.gbs
>
> as many as you like ... lol
>
> --
> ~~~~ Brian
>
>