﻿ Hi Jack

 Hi Jack
05-08-2017, 09:34 AM
Post: #1
(Print Post)
 bplus Posting Freak Posts: 1,127 Likes Given: 329 Likes Received: 192 in 164 posts Joined: Apr 2017 Country of Origin::
Always wanted to do that!

Hey, we haven't met, how are you? (who are you?)

I am Mark but go by blpus too. Do you know any Basic's.

http://www.laughfactory.com/jokes/joke-of-the-day
worse than Pete's
05-08-2017, 02:25 PM
Post: #2
(Print Post)
 Jack Newbie Posts: 15 Likes Given: 1 Likes Received: 1 in 1 posts Joined: Jun 2014
Hello bplus, thank you for the welcome
I am familiar with FreeBASIC but I seldom do any programming nowadays, other things keep me busy.
05-08-2017, 05:42 PM
Post: #3
(Print Post)
 bplus Posting Freak Posts: 1,127 Likes Given: 329 Likes Received: 192 in 164 posts Joined: Apr 2017 Country of Origin::
Welcome Jack, I have recently started learning FB for compiling an SB favorite (before downloading Walter's QB64 fork).

Code Snippet: [Select]
```'Psychedelic Star Swirl.bas for FreeBASIC [B+=MGA] 2017-03-15 'from SmallBASIC version 2017-03-01 Randomize Timer Const As Double PI = ACos(-1) Const As Double RAD = PI / 180 Common Shared As Double r, g, b, clr 'Set screen size here dim as integer sw = 600, sh = 600, depth = 32 screenres sw, sh, depth, 2 WindowTitle "Psychedelic Star Swirl  -  Press esc to exit" sub star( x As Integer, y As Integer, rInner As Double, rOuter As Double, nPoints As Integer, angleOffset As Double)     ' x, y are same as for circle,     ' rInner is center circle radius     ' rOuter is the outer most point of star     ' nPoints is the number of points,     ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub     ' this is to allow us to spin the polygon of n sides     Dim As Double pAngle, radAngleOffset, x1, y1, x2, y2, x3, y3     Dim As Integer i     pAngle = RAD * (360 / nPoints)  :  radAngleOffset = RAD * (angleOffset)     x1 = x + rInner * cos(radAngleOffset)     y1 = y + rInner * sin(radAngleOffset)     For i = 0 to nPoints - 1         x2 = x + rOuter * cos(i * pAngle + radAngleOffset + .5 * pAngle)         y2 = y + rOuter * sin(i * pAngle + radAngleOffset + .5 * pAngle)         x3 = x + rInner * cos((i + 1) * pAngle + radAngleOffset)         y3 = y + rInner * sin((i + 1) * pAngle + radAngleOffset)         Line (x1, y1) - (x2, y2)         Line (x2, y2) - (x3, y3)         x1 = x3 : y1 = y3     Next end sub sub chColor()     clr = clr + 1     Color rgb(127 + 127 * sin(r * clr), 127 + 127 * sin(g * clr), 127 + 127 * sin(b * clr))     If clr > 50000 then r = Rnd(1) : g = Rnd(1): b = Rnd(1) : clr = 0 End Sub Dim As Integer page, notpage, rd, cx, cy Dim As Double size, radius, angle, sangle, x, y, r2 Dim ky as String notpage = 1 : cx = sw/2 : cy = sh/2 sangle = 0.0 : r = Rnd(1) : g = Rnd(1) : b = Rnd(1) While ky <> Chr(27)     If page = 0 Then page = 1 ELSE page = 0   'These two lines flip the page and the       If notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage       SCREENSET page, notpage 'This flips the page                   size = 1       radius = .06       angle = sangle       cls       While radius < 400         x = cos(angle) * radius         y = sin(angle) * radius         r2 = (x ^ 2 + y ^ 2) ^ .5         size = 4 * r2 ^ .25         For rd = size to 1 step -10           chColor           star cx + x, cy + y, rd/3, rd*1.3, 7, 90         Next         angle -= .4         radius += 1       Wend     Sleep(60)    sangle = sangle + pi/18       ky = InKey Wend```

http://www.laughfactory.com/jokes/joke-of-the-day
worse than Pete's
05-08-2017, 08:18 PM
Post: #4
(Print Post)
 Jack Newbie Posts: 15 Likes Given: 1 Likes Received: 1 in 1 posts Joined: Jun 2014
I have no experience in using the FB graphic commands so I am no help but dodicat and dafhi are experts.
05-08-2017, 08:38 PM (This post was last modified: 05-08-2017 08:40 PM by bplus.)
Post: #5
(Print Post)
 bplus Posting Freak Posts: 1,127 Likes Given: 329 Likes Received: 192 in 164 posts Joined: Apr 2017 Country of Origin::
Hi Jack,

Assuming you have fairly recent copy of FB, I thought the above code might be fun to watch specially as color patterns change. press esc when done.

http://www.laughfactory.com/jokes/joke-of-the-day
worse than Pete's
08-29-2017, 11:24 AM
Post: #6
(Print Post)
 owen Member Posts: 124 Likes Given: 0 Likes Received: 14 in 9 posts Joined: May 2017 Country of Origin::
Pardon me but I can barely contain myself.
I wanted to post a new topic about hacking but because this topic is titled "Hi Jack", I couldn't resist.
So on that note:

When I tell people I can program, the usual response is: "Oh, so... - you know how to hack?"

This typical response (question) lends to a conversation that I wish would be about programming such as writing programs in freebasic but sadly never does, instead it'll either be about hacking into the IRS and adjusting owed taxes or adding unlimited ammo or lives to a game.

So my question to you is: What is hacking?
08-29-2017, 12:07 PM
Post: #7
(Print Post)
 easylangs Member Posts: 68 Likes Given: 22 Likes Received: 2 in 2 posts Joined: Jul 2017 Country of Origin::
some links which are not at all random, but which answer the question with the nuance it deserves:

https://stallman.org/articles/on-hacking.html

https://news.ycombinator.com/

https://en.wikipedia.org/wiki/Hacker#Hacker_culture
08-29-2017, 01:14 PM
Post: #8
(Print Post)
 Waltersmind (Admin) Library Director / Administrator Posts: 877 Likes Given: 163 Likes Received: 188 in 160 posts Joined: Jun 2014
Well...

In the old days, for me, hacking was about learning a computers hardware and how to write software without any documentation or help from the manufactures. The one day, I heard that hacking was now about altering preexisting software for malicious reasons.

What I do every day when I try different techniques of programming is still hacking to me. But what do I know?

Walter Whitman
The Joyful Programmer

Dedicated to working with computer programming hobbyists, tinkerers, amateurs, and enthusiasts.
08-29-2017, 04:04 PM (This post was last modified: 08-29-2017 04:08 PM by owen.)
Post: #9
(Print Post)
 owen Member Posts: 124 Likes Given: 0 Likes Received: 14 in 9 posts Joined: May 2017 Country of Origin::
what hacking means to me would be something like this:
my goal is to hack my own game (freeze tag).
i want the game to have unlimited ammo.

two ways to go about it.
1. simply edit the source code and recompile. (no wait, this aint hacking - it more like programming)
or
2. if only the binary executable was available to me, i would have to figure out which bits to change in the binary.

in order to examine this idea i'll make two binaries.
one with 10 rounds of ammo and another with 20 rounds of ammo.
compare the two binaries to see which bits are different then see if by altering those bits, if my ammo is increased.
10-21-2017, 06:33 PM
Post: #10
(Print Post)
 Pete Member Posts: 211 Likes Given: 9 Likes Received: 21 in 18 posts Joined: Oct 2017 Country of Origin::
Quote:
Always wanted to do that!

Hey, we haven't met, how are you? (who are you?)

I am Mark but go by blpus too. Do you know any Basic's.
I see you finally found a way to "Hi Jack" your own thread. Congratulations!

Pete
 « Next Oldest | Next Newest »

Forum Jump:

User(s) browsing this thread: 1 Guest(s)