-
Nov 27th, 2021, 06:19 AM
#1
Thread Starter
Addicted Member
Encrypt/Decrypt
Is there a way to Encrypt/Decrypt a Greek textbox ?
-
Nov 27th, 2021, 06:28 AM
#2
Re: Encrypt/Decrypt
what do u mean, encryption/decryption has nothing to do with any languages.
-
Nov 27th, 2021, 06:47 AM
#3
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Originally Posted by baka
what do u mean, encryption/decryption has nothing to do with any languages.
Well l have found some examples and run them but they all encrypt only English .
Can you give an example of one that will handle Greek ?
-
Nov 27th, 2021, 06:55 AM
#4
Re: Encrypt/Decrypt
what u do is:
string > byte array
encrypt
save data
load data
decrypt
byte array > string
so u are not using any encryption/decryption on a string.
-
Nov 27th, 2021, 07:22 AM
#5
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Well , that does not help me .
l have found some code which works fine when l write English , but when l write Greek
l get an error in a line - strMain = strMain & Chr(strAsc + 111) - do you know why ?
-
Nov 27th, 2021, 08:23 AM
#6
Re: Encrypt/Decrypt
because chr can not do unicode characters.
did u try with chrW?
I would still use the StrConv() function to create a byte array
and why do u add 111? it will go outside the scope of the asciitable 0-255
-
Nov 27th, 2021, 08:27 AM
#7
Re: Encrypt/Decrypt
Try this simple RC4 implementation
Code:
Option Explicit
Private Sub Form_Load()
Dim sSecret As String
sSecret = ToHexDump(CryptRC4("a message here", "password"))
Debug.Print sSecret
Debug.Print CryptRC4(FromHexDump(sSecret), "password")
End Sub
Public Function CryptRC4(sText As String, sKey As String) As String
Dim baS(0 To 255) As Byte
Dim baK(0 To 255) As Byte
Dim bytSwap As Byte
Dim lI As Long
Dim lJ As Long
Dim lIdx As Long
For lIdx = 0 To 255
baS(lIdx) = lIdx
baK(lIdx) = Asc(Mid$(sKey, 1 + (lIdx Mod Len(sKey)), 1))
Next
For lI = 0 To 255
lJ = (lJ + baS(lI) + baK(lI)) Mod 256
bytSwap = baS(lI)
baS(lI) = baS(lJ)
baS(lJ) = bytSwap
Next
lI = 0
lJ = 0
For lIdx = 1 To Len(sText)
lI = (lI + 1) Mod 256
lJ = (lJ + baS(lI)) Mod 256
bytSwap = baS(lI)
baS(lI) = baS(lJ)
baS(lJ) = bytSwap
CryptRC4 = CryptRC4 & Chr$((pvCryptXor(baS((CLng(baS(lI)) + baS(lJ)) Mod 256), Asc(Mid$(sText, lIdx, 1)))))
Next
End Function
Private Function pvCryptXor(ByVal lI As Long, ByVal lJ As Long) As Long
If lI = lJ Then
pvCryptXor = lJ
Else
pvCryptXor = lI Xor lJ
End If
End Function
Public Function ToHexDump(sText As String) As String
Dim lIdx As Long
For lIdx = 1 To Len(sText)
ToHexDump = ToHexDump & Right$("0" & Hex(Asc(Mid(sText, lIdx, 1))), 2)
Next
End Function
Public Function FromHexDump(sText As String) As String
Dim lIdx As Long
For lIdx = 1 To Len(sText) Step 2
FromHexDump = FromHexDump & Chr$(CLng("&H" & Mid(sText, lIdx, 2)))
Next
End Function
cheers,
</wqw>
-
Nov 27th, 2021, 10:16 AM
#8
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Thank you wqweto ,
l have found this code which is close to what l was looking for for my project . It works perfectly in English but not Greek.
Would some correction in the code (which l don't now) make it work in Greek ?
'
Private Sub Command1_Click()
strEncryptedText = EncryptText(Text1.Text)
Text2.Text = strEncryptedText
End Sub
Private Sub Command2_Click()
strDecryptedText = DecryptText(Text2.Text)
Text3.Text = strDecryptedText
End Sub
Private Function EncryptText(strInput As String) As String
Dim strAsc As String
Dim strMain As String
Dim i As Integer
For i = 1 To Len(strInput)
strAsc = Asc(Mid(strInput, i, 1))
strMain = strMain & Chr(strAsc + 111)
Next i
EncryptText = strMain
End Function
Private Function DecryptText(strInput As String) As String
Dim strAsc As String
Dim strMain As String
Dim i As Integer
For i = 1 To Len(strInput)
strAsc = Asc(Mid(strInput, i, 1))
strMain = strMain & Chr(strAsc - 111)
Next i
DecryptText = strMain
End Function
-
Nov 27th, 2021, 11:18 AM
#9
Re: Encrypt/Decrypt
vbgeobas, it's not exactly English vs Greek that you're struggling with. I believe it's more ASCII vs ANSI (or possibly Unicode, but more likely just ANSI) that you're struggling with. ASCII is a 7-bit character encoding scheme that, yes, was really designed for English, but it's still a bit different. The 7-bit part is more important. Just seeing that Asc(Mid(strInput, i, 1)) and Chr(strAsc + 111) is telling me that. Now ANSI is a first-attempt for Windows to use other languages. They do it by making use of the 8th-bit in a single byte encoding system. However, using that 8th-bit prohibits you doing something like Chr(strAsc + 111), which is why your function is failing.
I suppose there are some XOR alternatives, but the best alternative is something like what wqweto provided to you. Without actually implementing it, an XOR scheme would just Chr(strAsc XOR SomeConstant) to encode, and then do something similar to get it back. Two XORs with the same constant take you back to where you started, with a single XOR serving as a soft encoding. But, just to say it, Chr(strAsc + 111) and Chr(strAsc - 111) is actually a softer encoding. An XOR would be stronger than that, and would handle ANSI where that won't.
EDIT: Just as an FYI, you may want to use a Byte type for your constant, just to make sure you don't turn on any bits outside of the first 8 bits. You can use any number you want for your XOR constant (other than 0, as XOR with 0 won't change anything).
Last edited by Elroy; Nov 27th, 2021 at 12:32 PM.
Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
-
Nov 27th, 2021, 12:19 PM
#10
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Thank you Elroy and wqweto
The proble as as foll
l have a listview where l add info . That info l save in a .Dat file . What l wanted was to have the .Dat file unreadable and at the same
time when l reload it into the listview to be the original one .
l have done my goal by using the Rerplace command and everything works fine , except that l wanted a more professional approach.
If it cannot be done with some simple code , l think l better forget it .
Thanks gain
-
Nov 27th, 2021, 12:22 PM
#11
Re: Encrypt/Decrypt
u are getting all help u need but even so u ask for more.
u want people to code for you? u need to try yourself. with all the info u have u should be able to make what u need.
I also wrote a very easy way to do it, but u ignore it, so Im not sure u want to learn at all. u just want someone else to do the work for you.
-
Nov 27th, 2021, 04:22 PM
#12
Re: Encrypt/Decrypt
I'm not sure that a ROT111 cipher is particularly smart, but it will be done more easily by transcoding from Unicode to UTF-8.
This can be done via simple API calls, or by using the ADO Stream object:
Code:
Option Explicit
Private Const DAT_FILE As String = "saved.dat"
Private Sub cmdAddItem_Click()
lstItems.AddItem txtNewItem.Text
cmdClear.Enabled = True
cmdSave.Enabled = True
txtNewItem.Text = vbNullString
txtNewItem.SetFocus
End Sub
Private Sub cmdClear_Click()
lstItems.Clear
cmdClear.Enabled = False
cmdSave.Enabled = False
txtNewItem.SetFocus
End Sub
Private Sub cmdLoad_Click()
Dim F As Integer
Dim Bytes() As Byte
Dim I As Long
F = FreeFile(0)
Open DAT_FILE For Binary Access Read As #F
ReDim Bytes(LOF(F) - 1)
Get #F, , Bytes
Close #F
For I = 0 To UBound(Bytes)
Bytes(I) = CByte((CLng(Bytes(I)) - 111 + 256) Mod 256)
Next
With New ADODB.Stream
.Open
.Type = adTypeBinary
.Write Bytes
.Position = 0
.Type = adTypeText
.Charset = "utf-8"
.LineSeparator = adLF
lstItems.Clear
Do Until .EOS
lstItems.AddItem .ReadText(adReadLine)
Loop
.Close
End With
cmdClear.Enabled = True
cmdSave.Enabled = True
txtNewItem.SetFocus
MsgBox "Loaded"
End Sub
Private Sub cmdSave_Click()
Dim I As Long
Dim Bytes() As Byte
Dim F As Integer
With New ADODB.Stream
.Open
.Type = adTypeText
.Charset = "utf-8"
.LineSeparator = adLF
For I = 0 To lstItems.ListCount - 1
.WriteText lstItems.List(I), adWriteLine
Next
.Position = 0
.Type = adTypeBinary
Bytes = .Read(adReadAll)
.Close
End With
For I = 0 To UBound(Bytes)
Bytes(I) = CByte((CLng(Bytes(I)) + 111) Mod 256)
Next
On Error Resume Next
Kill DAT_FILE
On Error GoTo 0
F = FreeFile(0)
Open DAT_FILE For Binary Access Write As #F
Put #F, , Bytes
Close #F
cmdLoad.Enabled = True
txtNewItem.SetFocus
MsgBox "Saved"
End Sub
Private Sub Form_Load()
'For demo purposes use App.Path for DAT_FILE:
ChDir App.Path
ChDrive App.Path
On Error Resume Next
GetAttr DAT_FILE
cmdLoad.Enabled = Err.Number = 0
End Sub
Private Sub txtNewItem_Change()
cmdAddItem.Enabled = Len(txtNewItem) > 0
End Sub
UTF-8 is useful because it should preserve your Unicode Greek and do it in a relatively compact fashion. As a side effect it encodes to a multibyte value rather than word/multiword Windows Unicode (UTF16-LE) making simple ciphers like your ROT111 a little more applicable.
-
Nov 27th, 2021, 04:39 PM
#13
Re: Encrypt/Decrypt
Goodness gracious. vbgeobas, here. If all you want is some soft encoding/decoding of anything ANSI (any codepage, including Greek), the following will do it for you:
Code:
Option Explicit
Private Sub Command1_Click()
Text2.Text = EncryptDecryptText(Text1.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = EncryptDecryptText(Text2.Text)
End Sub
Private Function EncryptDecryptText(strInput As String) As String
Const bbForXor As Byte = 111
Dim i As Integer
EncryptDecryptText = strInput
For i = 1& To Len(strInput)
Mid$(EncryptDecryptText, i, 1&) = Chr$(Asc(Mid$(strInput, i, 1&)) Xor bbForXor)
Next
End Function
Now, as I said above, doing it twice just returns you to where you were, so you don't need separate encode/decode functions. I also stripped out a lot of the superfluous code you had in yours.
Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
-
Nov 27th, 2021, 04:53 PM
#14
Re: Encrypt/Decrypt
The problem with relying on ANSI is that the "encrypted" cipher data will not travel well between locales. It's the same problem as with plain text, just amplified by the cipher's use of more bit patterns outside the 7-bit ASCII range.
-
Nov 27th, 2021, 05:02 PM
#15
Re: Encrypt/Decrypt
Originally Posted by dilettante
The problem with relying on ANSI is that the "encrypted" cipher data will not travel well between locales. It's the same problem as with plain text, just amplified by the cipher's use of more bit patterns outside the 7-bit ASCII range.
I understand completely, and you are correct. But it just seemed like vbgeobas wanted something very simple. Basically, I think he just wanted his code fixed. I tried to tell him how to do it in my post #9, but that didn't seem to help, so I just did it.
vbgeobas, again, yes, this type of encoding has many problems. But what I gave you in #13 will basically do what you were trying to do.
And Baka, yeah, I'm a bit frustrated that he didn't run with my post #9, rather than just giving up ... but I suppose we're all at different levels.
Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
-
Nov 28th, 2021, 04:01 AM
#16
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Good day to you all ,
Am l supposed to apologize for not replying to your posts ? Did't it ever occur to anyone that maybe there was a reason apart
from what you rushed to accuse me for ?
Here are tha facts .
Right after my post #10 , we had a call . My brother fell from his motorbike and was in the hospital with a broken hip .
l will not go into details , only that l didn't feel like opening my computer, let alone see your posts .
l just opened my computer now and saw them but l have no more time at present . Maybe later this afternoon .
Thank you anyway .
-
Nov 28th, 2021, 09:16 AM
#17
Re: Encrypt/Decrypt
Honestly, we all have issues here, mine are WORSE than yours.
Just learn to understand that people are trying to help and realise there is no need to be petulant.
Note: I am also a relative noob but I read all the above and understood what they were trying to say, it was all good advice. You just didn't want to know.
- and yes you ARE meant to apologise for not bothering to listen to the help you are being given and especially for that final outburst. Don't ever bite the hand that feeds you as you won't get help ever again.
These people are lovely here, their advice is given for free and they are experts, their time is given graciously. They don't work for you. You don't have the right to bite back.
Last edited by yereverluvinuncleber; Nov 28th, 2021 at 09:19 AM.
Reason: typo
https://github.com/yereverluvinunclebert
Skillset: VMS,DOS,Windows Sysadmin from 1985, fault-tolerance, VaxCluster, Alpha,Sparc. DCL,QB,VBDOS- VB6,.NET, PHP,NODE.JS, Graphic Design, Project Manager, CMS, Quad Electronics. classic cars & m'bikes. Artist in water & oils. Historian.
By the power invested in me, all the threads I start are battle free zones - no arguing about the benefits of VB6 over .NET here please. Happiness must reign.
-
Nov 28th, 2021, 10:28 AM
#18
Re: Encrypt/Decrypt
One thing that should be pointed out is that the encryption shown won't make the file unreadable. It will make it look like garbage data, but it won't be garbage data. You have to decide how important the data is. If somebody really wanted to crack that, it wouldn't be difficult. If they aren't going to try very hard, or if the data doesn't really need to be protected, then the encryption shown will be fine.
After all, the algorithm shown is one that people crack as a casual pass time while waiting for a bus, or something like that.
My usual boring signature: Nothing
-
Nov 28th, 2021, 12:29 PM
#19
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
l am back , now having a brother a few pounds heavier with a metallic bar and bolts and screws. Luckily no other damage .
l wish to apologize now for any trouble or misunderstanding but all of you, l hope, will appreciate , that under the circumstances
my not replying to posts immediately , is rather justified . l am not an ungrateful sob , far from it .
l owe a lot to good people like Elroy , dilettante , passel and others who were there when l needed some help or clarification.
@Shaggy Hiker
Thanks for pointing out how easy it to crack , but you see , l share my projects with friends who far less than l know about BV6
and do not know what an algorithm is (although it's a Greek word) but they know how to open a .Dat file with notepad .
It's them l am trying to hide that .Dat file .
-
Nov 28th, 2021, 12:34 PM
#20
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
@ Elroy
Simply sorry .
Your last code is actually what l was looking for . Simple and short . It will Encrypt/Derypt , all kind of combinations of text
Greek/English capital or small .
Thank very much indeed .
-
Nov 28th, 2021, 04:53 PM
#21
Re: Encrypt/Decrypt
Originally Posted by vbgeobas
l am back , now having a brother a few pounds heavier with a metallic bar and bolts and screws. Luckily no other damage .
l wish to apologize now for any trouble or misunderstanding but all of you, l hope, will appreciate , that under the circumstances
my not replying to posts immediately , is rather justified . l am not an ungrateful sob , far from it .
l owe a lot to good people like Elroy , dilettante , passel and others who were there when l needed some help or clarification.
@Shaggy Hiker
Thanks for pointing out how easy it to crack , but you see , l share my projects with friends who far less than l know about BV6
and do not know what an algorithm is (although it's a Greek word) but they know how to open a .Dat file with notepad .
It's them l am trying to hide that .Dat file .
Algorythm sounds like an Arabic word, to me.
My usual boring signature: Nothing
-
Nov 28th, 2021, 05:02 PM
#22
Re: Encrypt/Decrypt
yeah. not everything is from the Greek. I remember reading that some old Greek scholars traveled to Africa to "learn".
and it seems we can go back to the Babylonian and find algorithms. and Im sure theres even older, but its lost in time.
-
Nov 28th, 2021, 05:14 PM
#23
Re: Encrypt/Decrypt
vbgeobas, I've got no problem with how things went. I was sort of hoping you'd take my information in post #9 and make the modifications yourself, but it's all good.
I'm glad my function will work for you. If you're writing to a text file (with standard VB6 Print statements), you're restricted to ANSI anyway, so that should work fine for you for "soft" encryption.
You take care, Elroy
Any software I post in these forums written by me is provided "AS IS" without warranty of any kind, expressed or implied, and permission is hereby granted, free of charge and without restriction, to any person obtaining a copy. To all, peace and happiness.
-
Nov 29th, 2021, 06:07 AM
#24
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
@ Shaggy Hiker and @baka
From Wikipedia
"Algorithms were first used by ancient Babylonian and later Egyptian mathematicians .
Greek Eratosthenes and Euclid used them at a later stage ".
However in Arabic Algorithm = alkhawarizmia or ḵuwārizmiyya
in Greek Algorithm = algorithmos
in Babylonian = ?
-
Nov 29th, 2021, 06:31 AM
#25
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
Originally Posted by Elroy
vbgeobas, I've got no problem with how things went. I was sort of hoping you'd take my information in post #9 and make the modifications yourself, but it's all good.
Elroy,
The problem here was that you took it for granted that l could understand what you were suggesting .My mistake because
l did not mention that the code was not mine but found it somewhere . Unfortunately l could not do the modifications you
suggested , simply because my knowledge of VB6 is rather limited .
Have a nice day and thank you again , George
-
Nov 29th, 2021, 06:41 AM
#26
Re: Encrypt/Decrypt
Arabic my fluckers.
Algorithm is from the Greek word algos "άλγος" = pain and arithmos = number .
What was mean was that the learning of this numbering was causing pain to the learnee as it was difficult to comprehend.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 06:55 AM
#27
Re: Encrypt/Decrypt
Babylonian, Arabic. . . it's all Greek to me
cheers,
</wqw>
-
Nov 29th, 2021, 07:13 AM
#28
Re: Encrypt/Decrypt
The word algorithm is derived from the name of the 9th-century Persian mathematician Muḥammad ibn Mūsā al-Khwārizmī
https://en.wikipedia.org/wiki/Algorithm
so, no, its not from Greece.
Last edited by baka; Nov 29th, 2021 at 09:44 AM.
-
Nov 29th, 2021, 09:29 AM
#29
Re: Encrypt/Decrypt
9th century? Lol.
Do you know about Euclid, Pythagoras,Thales, Eudoksos ,Archimedes?
Don't take for a fact everything on Wiki.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 09:36 AM
#30
Re: Encrypt/Decrypt
Greeks tends to believe they are the one that invented everything.
read some real history book about it instead of spreading lies.
be proud for what you have in your history, but you need to understand that Greece is not the center of the world.
-
Nov 29th, 2021, 09:39 AM
#31
Re: Encrypt/Decrypt
It kinda of was. Sorry if we brought the light on the modern civilization but I can't do something about it.
I'm not spreading lies, I don't know what ticked you but if you like we can talk it out on a chit chat.
So, bye.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 09:51 AM
#32
Re: Encrypt/Decrypt
Just because I DON't spread lies.
See the Euclidean algorithm from 300BC.
https://en.wikipedia.org/wiki/Euclidean_algorithm
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 09:51 AM
#33
Re: Encrypt/Decrypt
Originally Posted by sapator
Arabic my fluckers.
What is the etymology of the word 'fluckers'? - though I'd prefer the etymology of entymology any day and as one of you said earlier, it is ALL Greek to me.
https://github.com/yereverluvinunclebert
Skillset: VMS,DOS,Windows Sysadmin from 1985, fault-tolerance, VaxCluster, Alpha,Sparc. DCL,QB,VBDOS- VB6,.NET, PHP,NODE.JS, Graphic Design, Project Manager, CMS, Quad Electronics. classic cars & m'bikes. Artist in water & oils. Historian.
By the power invested in me, all the threads I start are battle free zones - no arguing about the benefits of VB6 over .NET here please. Happiness must reign.
-
Nov 29th, 2021, 09:58 AM
#34
Re: Encrypt/Decrypt
another lie.
what I can give you is, that in the 11th century when they wanted to build a new church, they used Greek books/notes from Aristotle, to create a foundation and Plato's academia, that later became university.
I would say that the most important aspect is what happened in the Netherlands, where they allowed trading without the name of god. later the English would copy that and take the lead because their naval force was much superior.
we also have tons of Jewish people that wrote books that affected our modern civilization. to give credit for something that happened 2500 years ago is a bit too much. if we would do that, we need to thanks all the empires before the Greeks as well.
also u need to study more:
https://en.wikipedia.org/wiki/Euclidean_division
Last edited by baka; Nov 29th, 2021 at 10:02 AM.
-
Nov 29th, 2021, 09:59 AM
#35
Re: Encrypt/Decrypt
Lol. OK that one is not Greek , you got me!
But etymology is of course Greek. From etoimos = ready and logos = speech. So easy on speech. Entymology, if you like to analyse it . Entomo = insect. So study of the little buggers.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 10:01 AM
#36
Re: Encrypt/Decrypt
OK I'm lying, whatever makes you happy.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 11:05 AM
#37
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
So l see what l started as the etymology of a word has bocome a conflict of ideas between a Greek and someone don't know where from .
-
Nov 29th, 2021, 11:06 AM
#38
Re: Encrypt/Decrypt
Originally Posted by sapator
Lol. OK that one is not Greek , you got me!
But etymology is of course Greek. From etoimos = ready and logos = speech. So easy on speech. Entymology, if you like to analyse it . Entomo = insect. So study of the little buggers.
As I said it is all Greek to me.
Aristotle, Aristotle, was a bugger for the bottle.
https://github.com/yereverluvinunclebert
Skillset: VMS,DOS,Windows Sysadmin from 1985, fault-tolerance, VaxCluster, Alpha,Sparc. DCL,QB,VBDOS- VB6,.NET, PHP,NODE.JS, Graphic Design, Project Manager, CMS, Quad Electronics. classic cars & m'bikes. Artist in water & oils. Historian.
By the power invested in me, all the threads I start are battle free zones - no arguing about the benefits of VB6 over .NET here please. Happiness must reign.
-
Nov 29th, 2021, 12:21 PM
#39
Re: Encrypt/Decrypt
A Greek from Athens too mind you.
That is mainly our fault. We just don't give enough outside to our legacy so it is highly unappreciated for the birthplace of almost everything in the modern western civilization.
So we are loosing tourism , researchers, and we have idiots that think that Macedonia is not Greek, false communists that detest the Greek flag and uneducated youth that they can't even spell apple with 2p's (actually to get the idea as apple is μήλο - milo). etc.
But you know, we have people here that will call you a Nazi if you wear a t shirt with the Greek flag while in contrast in UK I was seen a lot of T Shirts with the English flag.
ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·
-
Nov 29th, 2021, 12:52 PM
#40
Thread Starter
Addicted Member
Re: Encrypt/Decrypt
@ Sapator
l'll second that
l wonder why baka does not tell us his nationality . We might understand a thing or two ....
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|