Quantcast
Channel: Delphi Forum - Delphi Programming Kings of Code - Existing Project Development
Viewing all 182 articles
Browse latest View live

Museum Adobe Photoshop Source Code 1.0 Source Code

$
0
0
That first version of Photoshop was written primarily in Pascal for the Apple Macintosh, with some machine language for the underlying Motorola 68000 microprocessor where execution efficiency was important. It wasn’t the effort of a huge team. Thomas said, “For version 1, I was the only engineer, and for version 2, we had two engineers.” With the permission of Adobe Systems Inc., the Computer History Museum is pleased to make available, for non-commercial use, the source code to the 1990 version 1.0.1 of Photoshop. All the code is here with the exception of the MacApp applications library that was licensed from Apple. There are 179 files in the zipped folder, comprising about 128,000 lines of mostly uncommented but well-structured code. By line count, about 75% of the code is in Pascal, about 15% is in 68000 assembler language, and the rest is data of various sorts. To download the code you must agree to the terms of the license.


İmage

 

 

Delphi Remote Access PC

$
0
0
Remote access in Delphi 7 and Delphi XE5 (With sharer files, CHAT and Forms Inheritance)


 

Gilisoft Password Recovery Tool

$
0
0
İmage

Gilisoft Password Recovery Tool is a simple utility that allows you to recover the master password for 4 Gilisoft applications.

This utility has been successfully tested on the following Gilisoft programs and versions:
Gilisoft Exe Lock 5.0.0
Gilisoft File Lock 10.0.0
Gilisoft USB Lock 5.5.0
Gilisoft Privacy Protector 7.0.0

Source code
Exe file
 

String Xoring Utility 1.0

$
0
0
İmage

String Xoring Utility 1.0 is an application that will xor encrypt a text string, output it in an array format, and generate a decryption routine for both C++ and Delphi. This will help a programmer hide sensitive strings in their code. Since this will prevent the encrypted text from showing up in string references, this will make reverse engineering slightly more difficult.

Exe Download

Source code

Sample programs + Source

 

Random Serial Generator 1.0

$
0
0
İmage

Random Serial Generator 1.0 is a simple application that allows you to generate a random serial number for testing license algorithms or implementing them into your own application.

Features:
1. Predefined Character Sets: A-Z, a-z, 0-9, 0-F, 0-f, 0-9 + A-Z, 0-9 + a-z, and 0-9, A-Z, + a-z.
2. Define a Custom Character Set.
3. Input length in either Decimal or Hexadecimal format.
4. Insert Dashes in Insert or Replace Mode.

I did not add any size limits on the input length, so use large numbers with caution.  

Exe download

Source code
 

Hashing Utility Extended 1.0

$
0
0
İmage

Hashing Utility Extended 1.0 is an extended version of Hashing Utility 2.0 which supports 77 types of character encoding sets and 14 types of hash encoding schemes.

Supported hash algorithms:
SHA1
SHA256
SHA384
SHA512
MD2
MD4
MD5
HAVAL(ALL)
RIPEMD128
RIPEMD160
RIPEMD256
RIPEMD320

Supported String Encoding:
ANSI
US-ASCII
UNICODE
UNICODEFFFE
ISO-8859-1
ISO-8859-2
ISO-8859-3
ISO-8859-4
ISO-8859-5
ISO-8859-6
ISO-8859-7
ISO-8859-8
ISO-8859-9
ISO-8859-13
ISO-8859-15
WINDOWS-874
WINDOWS-1250
WINDOWS-1251
WINDOWS-1252
WINDOWS-1253
WINDOWS-1254
WINDOWS-1255
WINDOWS-1256
WINDOWS-1257
WINDOWS-1258
UTF-7
UTF-8
UTF-32
UTF-32BE
SHIFT_JIS
GB2312
KS_C_5601-1987
BIG5
ISO-2022-JP
ISO-2022-KR
EUC-JP
EUC-KR
MACINTOSH
X-MAC-JAPANESE
X-MAC-CHINESETRAD
X-MAC-KOREAN
X-MAC-ARABIC
X-MAC-HEBREW
X-MAC-GREEK
X-MAC-CYRILLIC
X-MAC-CHINESESIMP
X-MAC-ROMANIAN
X-MAC-UKRAINIAN
X-MAC-THAI
X-MAC-CE
X-MAC-ICELANDIC
X-MAC-TURKISH
X-MAC-CROATIAN
ASMO-708
DOS-720
DOS-862
IBM037
IBM437
IBM500
IBM737
IBM775
IBM850
IBM852
IBM855
IBM857
IBM00858
IBM860
IBM861
IBM863
IBM864
IBM865
CP866
IBM869
IBM870
CP875
KOI8-R
KOI8-U

Supported Hash Encoding:
HEX
BASE64
MODBASE64
BASE32
BASE58
UU
QP
URL
Q
B
URL_OAUTH
URL_RFC1738
URL_RFC2396
URL_RFC3986

Exe download

Source download

This software uses the Chilkat Delphi Libraries:
You can't view the links! Click here to register
 

NTFS File Recovery Full Source Code

$
0
0
When a file is deleted from a NTFS hard drive, the contents of the file actually don't diseappear. The underlying NTFS File System however enables the program to restore deleted data.

İmage

[Source Code]Clothing Industry ERP ready for RETAIL !

$
0
0
This is a superb application, a Clothing Industry ERP, ready for anyone to use as a commercial application, an amazing contribution for the Delphi community. The project is very well documented (Brazilian portuguese) and organized, a masterpiece !

Some information:

- Made with Delphi XE5, no problems known with newer versions;
- Database used: SQL Server 2012;
- Integrates headquarter office with affiliates (branches) via remote access (no need for "Terminal Service"); 
- Multi-Company and Multi-user;
- Ribbon Interface;
- Commercial;
- Purchases;
- Stock;
- PCP/MRP;
- Revenues (Electronic Invoice);
- Financials;
- Logistics;
- Reports;


 

Android to PC USB Interfaces (ADB, AOA, HID) with Delphi

$
0
0
PHP Code:
This is a set of code to aid development for communication between an Android device and 
an Embedded Device, or PCThere are examples for the following:

Communication between PC and Android deviceover USBusing the ADB (Android Debugprotocol.
Communication between PC and Android deviceover USBusing the AOA (Android Open Accessoryprotocol.
Communication between PC and a simple HID device (Arduino and LPC 1768 Microcontroller).

All PC code is written in Delphi.
Android code is in Java and the embedded code in C/C++.

So why would you want this?
We are developing a hardware device which needs to interact with an Android phone.
It needs to be robust and simpleso we opted for a USB interface. 
(
Wireless connections were ruled out)
In this case the Android device is the USB client, and the hardware device is USB Host.
In development it became clear that it would be handy to change the hardware device for a PC,
to test the Android side of things without to much hassle on the hardware device.
Therefor we needed an Android <-> PC bridge.
I found a few (in C), but I opted to use Delphi for quick testing
Based on LibUSBK there is a class which implements a simple twoway USB connection.
From therethere are classes which implement the ADB protocol and the AOA protocol.

As 
you may know the ADB interface runs on devices supporting Android 1.5AOA is only supported
by some devices
, and need Android 2.3.3.
PersonallyI don't see any advantage of using AOA as it is not widely supported. In fact, 
I was only able to get this working with one Android Device i have (a chines Android TV Stick)

All of this code becomes '
obsolete' when using an Android device which adds HID facility. 
This is supported from Android 4.0. Since all the basics wre there I decide to add an example where 
Delphi takes over the Android side to test the hardware. 
I have added two examples on Embedded platforms, for Arduino and LPC 1768 (from mBed).
I have also some examples for FEZ Domino or Microchip Cereboth (both implementing ADB host).
On the HID facility: This is also only implemented in some devices. 

 

JSFX and ReaScript for Reaper (also includes a TCP bridge)

$
0
0
PHP Code:
To get things workinghere is an example where MIDI input is read by the JSFX bridge and is send to 
a ReaScript 
"MidiThrough"This Reascript sends some modified data to JSFX Bridge which outputs this over Midi.

Here's step-by-step instructions:

1. Start with a new Reaper project and insert a new track with the JS Plugin: ReasJSFXBridge
2. Now open the ReaScript MidiThrough.
3. From a keyboard, or the Virtual Keyboard write some MIDI data to the track. 
4. When monitoring the output, you will see (hopefully) some modified Midi data.

Note: JSFXBridge must be the first plugin on the First track. 

I will explain a bit of the code in a minute, but first the API:

1. ReasJSFXBridge: 

You can send and receive values to a Reascript. Values should be at most 24 bits integer.
Send:    Call ReaSOut(value)
Receive: If ReasJSFXBridge receives data from a ReaScript it calls: ReaSIn
MidiReceive: If ReasJSFXBridge receives mididata it calls: midiIn  (Note that it ets all incoming midi events)
MidiSend:    You can send midi using midiOut (offcourse, this is trivial, but this way, the API is complete)

The script itself is a bit blurry due to the nature of JSFX plugins. Please examine the part between AppStart and AppEnd.
In the supplied example, also midiSysEx is implemented, but that is just an example use

2. MidiThrough.eel

Uses a small frameworks, which hides all communication details.
You only have to do add your code to the framework in the main file (in this case MidiThrough.eel).
(The other files are for making the framework work, offcourse you can get a peek or edit to your likes!)

So open MidiThrough.eel

To initialize the framework, call fwInitialize:

// to use the framework, call fwInitialize with 3 function callbacks:
// 1. setup()
// 2. loop()       // in this case: empty
// 3. JSFXIn(value)

fwInitialize("setup","","onJSFXIn");

setup,     will be called once at startup.
loop,      will be called repeatedly, 
onJSFXIn,  will be called if there is a message from the ReasJSFXBridge)

the three arguments are strings which name the function to be called. It may be an empty string.

the framework has one more function, called

JSFXOut,   which writes a value to the ReasJSFXBridge

==========================================================================

The code: 

Communication is achieved using the Sliders interface. This works remarkably fast.
Both parts also use an extra ringbuffer of 256 bytes. Since you have the source you can easily adjust this to your needs.
Both parts place the ringbuffer at address 1000, so don'
use that.
In my example I also use a SysEx buffer starting from 2000 (in ReasJSFXBridge code only).

I am new to EEL and am more used to Cso therefore I may have solved some things (like callback function) somewhat oddly.
The part with the sliders code in ReasJSFXBridge (getSlider/setSlideris pretty ugly/stupidbut I have not invested time to get a better solution
If 
you have remarks please mail them!

(
NoteI will not maintain this repoit is for startcode only...) 

Speech Recognition and Text to Speech for Android with FireMonkey

$
0
0
Voice Recognition and Text to Speech on Android for Delphi, RAD Studio, C++Builder and Appmethod (C++ or Object Pascal).Early stages. Still subject to heavy changes (like renaming and moving) but it works.There are two demos. The Google Glass one also includes voice launching and voice prompt support.The TTS is based on You can't view the links! Click here to register.

asmRAT-Remote Administration Tool extending its functionality with shellcode

$
0
0
Remote Administration Tool extending its functionality with shellcode


 

ShareMon (Network connection monitor) Full Source

$
0
0
This is simple Microsoft Network connection monitor. It can be used to monitor access to local shared network resources etc. Additionally ShareMon is able to write log of events to daily log file, play alarm/notification signal (WAV files) and send welcome (or warning) messages to connected user using Windows Messaging Service. This program is written in Delphi 5, last successful compilation in Delphi 7. I do not know anything about compatibility of this program with Windows Vista however it works under Windows 98, Windows 2000 and Windows XP without any problems. I did this program just for fun. Most probably some other example was used to write this program, but I do not remember which and who is the author. NOTE: Exe file and complete source code is included into ZIP archive. To compile this source code you will need You can't view the links! Click here to register (tray icon component).


 

SpyDie (AdWare/SpyWare remover) Full Source

$
0
0
This is the prototype of AdWare/SpyWare remover written by me back in 2004, in time when such software was very popular over internet. It was planned to sell this (not prototype for sure) program for small fee as byproduct of some bigger system, but finally it did not make to this level. SpyDie uses simple text-format database of SpyWare and AdWare. It works pretty fast, can search for AdWare/SpyWare, control the list of running processes and kill malicious processes in manual and automatic mode as well as “protect” Internet Explorer Home Page. It may be useful as prototype for your AdWare/SpyWare remover or as example of some system programming e.g.: list of running processes, system folders, killing processes etc. All source code is written in Delphi 7 and included into ZIP archive along with database and compiled EXE file. NOTE: Exe file and complete source code is included into ZIP archive. To compile this source code you will need You can't view the links! Click here to register (tray icon component).


 

Kaspersky KAV8 , year 2009 Source Code

$
0
0
version 8 sourcecode to study , partial code pascal and VC++ 2008.(372 MB)


 

Experimental Crack source code

$
0
0
Included 
-bds.exe 10.1 Berlin.
-Licensemanager 10.1 Berlin
source code Seattle 10 

 

CDO 1.2.1 in DELPHI examples

$
0
0
Microsoft Exchange Server 5.5/2000/2003/2007/2013 compatibles
Microsoft Outlook 97/98/2000/2002/2003 compatibles


DELPHI 4, 5, 6, 7, 2005, 2006 win32 compatibles, etc...
Turbo Delphi Explorer and Turbo Delphi Professional compatibles


https://www.imibo.com/imidev/delphi/les/cdoless.html


 

Rad Studio 10.1 Berlin Keygen Source Code

$
0
0
GenerateSerialNumber from unis keymaker
GetRegistrationCode from unis keymaker
GenerateActiveFile from x-force keygen
SHFolder.dll from unis keymaker


 

Dede Decompiler Revision ported to Berlin 10.1

$
0
0
Ported a D3..D7 decompiler for Berlin 10.1 just to visualize.Its just experimental.

-PE editor
-dcu dumper XE8..Berlin 10.1 
-RVA converter
-decompiles *.exe *.bpl D3.. D7.


 

SAS.Planet by SASGIS (Source) - viewing and loading of maps as Google Maps and more

$
0
0
SASGIS project of SAS group
PHP Code:
http://www.sasgis.org 
SAS.Planet - the free program intended for viewing and loading of satellite pictures of high resolution and the normal maps submitted by such services as Google Earth, Google Maps, Bing Maps, DigitalGlobe, "Satellite images", Yandeks.Karta, Yahoo! Maps, VirtualEarth, Gurtam, OpenStreetMap, eAtlas, iPhone maps, the card of the General Staff, etc., but, unlike these services, all cards downloaded by you will remain with you on the computer, and you will be able to browse them even without connection to the Internet. In addition to satellite maps work with the political, landscape, combined cards, and also the card of the Moon and Mars is possible.

İmage

Loading of cards is carried out as selection of some area (perhaps not rectangular), and in the course of movement according to the card. Cards are often updated - the program will allow you to load only the newest.
In addition to viewing and loading in the program the following useful functions are implemented:
• Work with the GPS receiver;
• Laying of routes;
• Measurement of distances;
• Display of the KML files;
• Panoramio service support;
• Forming of the card of filling of a layer - this function will allow to see areas on the card which you already loaded into a cache or, on the contrary, which at you are absent;
• Saving of part of the card in one image which you can browse and process in any graphics editor and also use in other GIS-applications, for example, OziExplorer (for which the program will create the file of a binding);
• You can save places interesting to you and afterwards without problems find them, and also make so that they were always displayed on the card;
• The card of the review - will help you to learn easily about location of that place which you browse now, and also to pass quickly to any other place on the card;
• Viewing of the card in the full-screen mode - that is especially convenient at a low display resolution;
• Converting from one layer of all previous - will allow to reduce significantly your Internet traffic, for example, you can download your city only at the 18th scale, and previous to create all on its basis;
• A possibility of export of cards to the format supported by iPhone maps;
• A possibility of export of cards to the format supported mobile by Yandex. Cards of the 3rd version;
• Loading and display of objects Wikimapia;
• Search of places means of Google and Yandex;
• Adding of the user cards.
• Supported languages of the interface: English, Spanish, French, Russian, Ukrainian

nightly build:
PHP Code:
http://sasgis.org/programs/sasplanet/nightly.php 
Main packet of cards:
PHP Code:
https://bitbucket.org/sas_team/sas.maps/get/tip.zip 
Additional packet of cards:
PHP Code:
https://bitbucket.org/sas_team/sas.plus.maps/wiki/Home 
All Source Files and Others:
PHP Code:
https://bitbucket.org/sas_team/ 
You watch source codes. There everything is. You can even ready take and were drunk up what is necessary. The license GPL would just demand by delivery of a derivative product you referred to the original and delivered the source codes in a set.

1. Configure ways to IDE to folders and the enclosed folders Src, SAS.Libs, SAS.Requires.
2. Install components from the SAS.Requires folder
3. Compile for D2007-XE2. It is tested under D2007 or XE2.

Transition from XE2 to the new version is difficult
--------------------------------------------------
I put XE4 from there to whistle files for Sensor API (and some more dependent which are not in XE2). But even after editing of names of units just like that to zayuzat them in XE2 did not leave because of delayed. Drew a conclusion that transition of 2007-> XEn for n> 2 is too difficult for simultaneous support of both compilers.
Perhaps somewhere of course also did not finish thinking.
Also for GR32 (or something like that so important) there is no support of XE4. 

Opened for itself Synops mORMot framework. Concerning work with lines, in it the idea in general to refuse the string type (which in different the Delphi version, different), and to use the redefined type is put and in a framework to work only with utf-8 in the lines (at them this type of lines is called RawUTF8) that irrespective of the Delphi version there was the same work with in the lines. Respectively, they rewrote SysUtils and all as for work with lines, plus properly optimized the received code. All this business lives in VERY big unit of SynCommons.pas.

with newer versions (for example if to threaten on XE8), I am afraid at us with Toolbar2000 and EmbeddedWB will be problems. 

> XE2 became already outdated
Transition to XEn where n> 2, raises doubts.
In particular, does not gather for the XE4 project because of prefixes, see above in a subject.
It Imkhutsya that XE2 - the necessary evil, that which should be minimized and without which (transition to which) in any way not to move further.
> EmbeddedWB
It is not in SACS any more long ago. It is cut easily, there is a lot of advantage of cutting out. 
-----------------------------------------------------
International visitors section:
PHP Code:
http://www.sasgis.org/forum/viewforum.php?f=52 
Only Russian Language: Forum of developers
PHP Code:
http://www.sasgis.org/forum/viewtopic.php?f=47&t=1951 
PHP Code:
http://www.sasgis.org/ 
PHP Code:
http://www.sasgis.org/download/ 
Viewing all 182 articles
Browse latest View live


Latest Images

<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>