| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 07:19:21 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=a4af974b5e4ceeb831dd443b3ea2ac6e8b80fbbe5e0e5cbb82ae616f146315f7a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22BWIvB_i-h1wCX4snaqB76W9hWGnRoQRI%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc96b64871860e-BLR
826_BIT.BAS - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '_|_|_| 826_BIT.BAS
- '_|_|_| This program demonstrates one method of encoding data
- '_|_|_| to conform to low ASCII requirements by turning three
- '_|_|_| 8-bit values into four 6-bit values and vice-verse.
- '_|_|_| No warrantees or guarantees are given or implied.
- '_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (6/1/96)
- DECLARE FUNCTION ENCODE$ (Bytes3$)
- DECLARE FUNCTION UNCODE$ (Bytes4$)
- PRINT : PRINT
- test$ = CHR$(176) + CHR$(177) + CHR$(178)
- PRINT test$, ENCODE$(test$), UNCODE$(ENCODE$(test$))
- test$ = CHR$(254) + CHR$(219) + CHR$(129)
- PRINT test$, ENCODE$(test$), UNCODE$(ENCODE$(test$))
- test$ = CHR$(17) + CHR$(21) + CHR$(7)
- PRINT test$, ENCODE$(test$), UNCODE$(ENCODE$(test$))
- test$ = "ABC"
- PRINT test$, ENCODE$(test$), UNCODE$(ENCODE$(test$))
- '_|_|_| end 826_BIT.BAS
- FUNCTION ENCODE$ (Bytes3$)
- Result$ = "": B& = 0
- FOR t% = 3 TO 1 STEP -1
- B& = B& * 256 + ASC(MID$(Bytes3$, t%))
- NEXT
- FOR t% = 1 TO 4
- Result$ = Result$ + CHR$(48 + (B& AND 63)): B& = B& \ 64
- NEXT: ENCODE$ = Result$
- END FUNCTION
- FUNCTION UNCODE$ (Bytes4$)
- Result$ = "": B& = 0
- FOR t% = 4 TO 1 STEP -1
- B& = B& * 64 + ASC(MID$(Bytes4$, t%)) - 48
- NEXT
- FOR t% = 1 TO 3
- Result$ = Result$ + CHR$(B& AND 255): B& = B& \ 256
- NEXT: UNCODE$ = Result$
- END FUNCTION
Tags:
qbasic
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐Exchange Exploit⭐⭐ 7
JavaScript | 4 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ✅ NEVER SEEN...
JavaScript | 7 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ D
JavaScript | 15 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 17 sec ago | 0.24 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 27 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ L
JavaScript | 27 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 1
JavaScript | 41 sec ago | 0.24 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 44 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
