Search results

Solved: https://www.access-programmers.co.uk/forums/threads/code-vba-google-earth-kml-file-placemarks.312441/

Finally after some long hours, I was able to cobble together some code to work with KML files in VBA/Access. The attached example includes an object that allows for the following features.... **this code is focused on placemarks only and does not support any other GE geometry (i.e. paths)**...

Hi, I'm not well versed in XML. But I need to parse a KML from Earth, mainly to extract the following data: *Only extracting placemarks - no paths or other geometry -Name of Placemark -Lat/Long Cord -Description of placemark -Placemark style ID Side Note: I have been able to parse the Name...

@isladogs So..if its not an ID. Any field can be queried. If you're willing to accept the risk that a SQL operator is not outputted, then that's your prerogative. I spent some time tonight cobbling together a crude but practical analysis tool. It detects SQL syntax collisions and I must say i...

@cheekybuddha Awesome! We have a fix. Thank you. The fixed code for the modified version: Public Function EncryptRC4(ByVal val As String, ByVal pass As String, _ Optional Base64 As Boolean = True) As String '--------------------------------------------------------- 'RC4 CIPHER, INCLUDES BASE64...

Yep, got ya. Just saw that prior to reading your message. That line of code would appear to be unique to my version. It must have been a re-type or something and became an error. Whoops. Original: http://www.freevbcode.com/ShowCode.asp?ID=4398 If Len(Password) > 256 Then Key() =...

@cheekybuddha I don't receive the subscript error there, i receive it on this line: For x = 0 To 255 Y = (Y + RB(x) + Key(x Mod Len(pass))) Mod 256 '<--------------HERE Temp = RB(x) RB(x) = RB(Y) RB(Y) = Temp Next x Edit: It occurs when x = 0.

You said, "I tried removing the Resume Next line and got no errors on testing". That is inconsistent with that you say above, which is why in my last post I explained that your code does error. And it errors 100% of the time if the On Error Resume Next is removed. Regardless, as I argued, this...

Hi all, I see some discussion took way. I haven't been working on this project since which is due to my absence here. Allow me to explain/answer some of the questions/concerns. Isladogs: Unless their are differences in bittness of our machines (i am x64), and that somehow has an effect on...

worst case scenario Correct. That's the point of a hash - to be asymmetric, which is not encryption (as you know). Would that be using the Binary data type, you are saying? Never used that data type so this might be a first. However, whether or not controls (listboxes, etc) support full ASCII...

Update: Colin, I examined the code in your example for RC4 encryption. It was one of the many i came across while searching for a sufficient algorithm. Albeit, one of the least favorited of the bunch... The mistake the author made was 1.) not fixing his error 2.) superficially patching a...

Colin, Thanks for sharing. Fair points about RC4. I don't find the file system weakness of Access really that big of a deal with security if the encrypted data is very strong and well designed (hash the pass with a randomized salt as the key, keep field names unspecific or under a unique...

Hi, What are you guys using for good 'data access' level encryption? There are a number of RC4 and XORC Ciphers out there for strings. While they work OK, i have a few issues with everything i've found using these... 1.) I'm not convinced a 40-50 line Function is all that secure of an...

Great info. Lessons learned.

Update: 2 seconds of searching, I had an Enum value as "Mid" (Google Maps APIs, one of the marker size arguments is "MID" - what a dumb way to describe size, am i right) . Problem solved. Silly me! What a waste

Except its hard to debug when your debugger needs debugged. Turns out my speculations became conclusive. This project has something going on where the MID function is not cooperating. Furthermore, intellisense doesn't even recognize MID, but it will recognize Left, Right, and every other...

This isn't my first day writing VBA... I just exported every single forms, module, and table in this DB to a fresh DB. I then used a third encryption algorithm and the MID function still flags as a compile error in a completely different function that is entirely unrelated to the one in...

My next step is to copy the Module to plain text and re-import manually in a fresh module.

Yes byte array, never considered there's actually 256 values being stored... Regardless, like i said, this function executed several hundred times and the fact that I had other MID functions in this project flag randomly at the exact time this started (functions i never touched), this is...

I attempted remove the declaration '$'. Then the compiler complains "Expected array".