Results 1 to 40 of 40

Thread: Encrypt/Decrypt

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    Encrypt/Decrypt

    Is there a way to Encrypt/Decrypt a Greek textbox ?

  2. #2
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    Re: Encrypt/Decrypt

    what do u mean, encryption/decryption has nothing to do with any languages.

  3. #3

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    Re: Encrypt/Decrypt

    Quote Originally Posted by baka View Post
    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 ?

  4. #4
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  5. #5

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 ?

  6. #6
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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

  7. #7
    PowerPoster wqweto's Avatar
    Join Date
    May 2011
    Location
    Sofia, Bulgaria
    Posts
    5,120

    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>

  8. #8

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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

  9. #9
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    9,852

    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.

  10. #10

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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

  11. #11
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  12. #12
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    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.

  13. #13
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    9,852

    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.

  14. #14
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    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.

  15. #15
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    9,852

    Re: Encrypt/Decrypt

    Quote Originally Posted by dilettante View Post
    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.

  16. #16

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 .

  17. #17
    PowerPoster yereverluvinuncleber's Avatar
    Join Date
    Feb 2014
    Location
    Norfolk UK (inbred)
    Posts
    2,235

    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.

  18. #18
    Super Moderator Shaggy Hiker's Avatar
    Join Date
    Aug 2002
    Location
    Idaho
    Posts
    38,988

    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

  19. #19

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 .

  20. #20

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 .

  21. #21
    Super Moderator Shaggy Hiker's Avatar
    Join Date
    Aug 2002
    Location
    Idaho
    Posts
    38,988

    Re: Encrypt/Decrypt

    Quote Originally Posted by vbgeobas View Post
    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

  22. #22
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  23. #23
    PowerPoster Elroy's Avatar
    Join Date
    Jun 2014
    Location
    Near Nashville TN
    Posts
    9,852

    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.

  24. #24

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 = ?

  25. #25

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    Re: Encrypt/Decrypt

    Quote Originally Posted by Elroy View Post
    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

  26. #26
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    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.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  27. #27

  28. #28
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  29. #29
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    Re: Encrypt/Decrypt

    9th century? Lol.
    Do you know about Euclid, Pythagoras,Thales, Eudoksos ,Archimedes?
    Don't take for a fact everything on Wiki.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  30. #30
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  31. #31
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    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.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  32. #32
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    Re: Encrypt/Decrypt

    Just because I DON't spread lies.
    See the Euclidean algorithm from 300BC.
    https://en.wikipedia.org/wiki/Euclidean_algorithm
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  33. #33
    PowerPoster yereverluvinuncleber's Avatar
    Join Date
    Feb 2014
    Location
    Norfolk UK (inbred)
    Posts
    2,235

    Re: Encrypt/Decrypt

    Quote Originally Posted by sapator View Post
    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.

  34. #34
    The Idiot
    Join Date
    Dec 2014
    Posts
    2,721

    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.

  35. #35
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    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.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  36. #36
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    Re: Encrypt/Decrypt

    OK I'm lying, whatever makes you happy.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  37. #37

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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 .

  38. #38
    PowerPoster yereverluvinuncleber's Avatar
    Join Date
    Feb 2014
    Location
    Norfolk UK (inbred)
    Posts
    2,235

    Re: Encrypt/Decrypt

    Quote Originally Posted by sapator View Post
    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.

  39. #39
    King of sapila
    Join Date
    Oct 2006
    Location
    Greece
    Posts
    6,597

    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.
    ἄνδρα μοι ἔννεπε, μοῦσα, πολύτροπον, ὃς μάλα πολλὰ
    πλάγχθη, ἐπεὶ Τροίης ἱερὸν πτολίεθρον ἔπερσεν·

  40. #40

    Thread Starter
    Addicted Member
    Join Date
    Oct 2018
    Location
    Athens
    Posts
    168

    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
  •  



Click Here to Expand Forum to Full Width