Tạo mật khẩu cài đặt Add-in

[ThangCuAnh]

Thôi để hôm nào rờ em cái của bác Tuân luôn rồi tin sau hen befaint

 

[batman1]

Cái gì nhiều cũng ngán. Nhưng nếu đổi tí thì bao nhiêu cũng ham. Nếp + đậu xanh, nếp + lạc, nếp + ruốc thịt v...v

 

[ThangCuAnh]

Hì hì, cũng xin lỗi chủ topic là bà tám quá đi lạc để của bác mất
Chưa đụng tới tds symbols

 

[ThangCuAnh]

Các hàm export:
dbkFCallWrapperAddr 00799640 1
__dbk_fcall_wrapper 00411554 2
TMethodImplementationIntercept 00467EC0 3
CopyTabaleName 0076F9D4 4
GetDataBaseArray 0076F394 5
TestArray 00779DC4 6
ImportToAccess 0077895C 7
InsertQuery 00779878 8
DelTableName 00779664 9
Get2DArray 007793FC 10
GetRows2DArray 00779244 11
GetMyRecord 0076F10C 12
OpenRecord 00779108 13
MyRecord 00778F1C 14
MyDAO 00778D28 15
MyRecord 00778F1C 16
ExportTableToExcel 0076EE64 17
ConnectionAccess 0076EC5C 18
CopyDataBase 0076F6C8 19
GetRangeArray 0076DC3C 20
RangeArray 0076D258 21
GetDataRangeArray 0076DFE8 22
DaoNguocArray 00777FB0 23
Transpose2DArray 00777E58 24
Filter1dArray 00777978 25
FilterDate1dArray 00777730 26
LocNgayThangNam 0077B764 27
TransArr 007775D0 28
CopyDataSheet 0076E2FC 29
CopyDataRange2 0076E85C 30
CopyDataRange 0076E560 31
GetDataRange 0076BF88 32
DicKeyMultiColumns 0076FD54 33
GetDictionaryKeys 0077029C 34
GetDicKeys 0076FFF4 35
GetDataFormServer 0076CF08 36
GetDataServer 0076CBA4 37
GetDataSQLServer 0076C78C 38
RunSQLToRange 0076BC58 39
MakeConnection 0077A190 40
Connection 0076C478 41
DictionaryKesSum 00770904 42
DictionaryKes 0077056C 43
UniMsgbox 00778358 44
TestFunctionExcel 0077BBD4 45
TestChuoi 0077BA78 46
GetSumDLL 0077BDEC 47
GetSumClass 0077BDCC 48
GetSum 0076B6A0 49
ShowFormNew 0077BE10 50
goiform 0077BE04 51
GetDataTon 007712D4 52
GetDictionary 00770E4C 53
TestArrayVar2 0077BE64 54
GetListSheet 0077820C 55
SetConnection 0077C01C 56
ExcelEnd 0077C1FC 57
TestExcel 0077C694 58
TestNew 0077C6F8 59
ConnecTionExcel 0077C728 60
GetDataQuery 0077C2B4 61
GetRemoteIp 0077AA10 62
GetIPAddress 0077A854 63
GetIpLAN 0077A984 64
GetLocalIP 0077AAB4 65
GetIpMachine 0077AB98 66
GetInternetIP 0077B00C 67
GetIPRealPublic 0077AE3C 68
IPAddrToName 0077AC78 69
GetHostNameByIP 0077AD54 70
GetIpPublic 0077B5DC 71
CheckPortTCP_IsOpen 0077A594 72
PortIsOpen 0077A618 73
CheckPortIsOpen 0077A724 74
CheckInternetConnection 0077A3DC 75
ListFilesInSubFolder 007786CC 76
DeleteFiles 007785A4 77
Supper_SQL 0076D5D0 78
SupperSQL 0077CA58 79
Vblibrary::initialization(void) 0078B320 [main entry]

 

[ThangCuAnh]

Các unit của bác ấy:
ExcelXP: (cái unit này không biết bác ấy lấy trên mạng hay ai share), class TExcelApplication, TExcelWorksheet, TExcelWorkbook
UnitDll: function GetSumDLL
UnitClass: class TUDFExcel, method GetSumUnit
UnitPublic: function GetSum
Unit1: procedure ShowForm, TForm1.Button1Click -> TForm1.Button3Click
ADO_Excel: 14 function and procedure, nhiều quá lười liệt kê
ADO_Access: 7 function và procedure, nhiều quá lười liệt kê
VB_Dictionary: 8 function và procedure
VB_Array: 6 function và procedure, lấy code từ các hàm quen thuộc trên diễn đàn này
VB_UniMsgBox: 1 hàm duy nhất: UniMsgbox
VB_fso: 3 hàm, procedure MyFso, DeleteFiles, ListFilesInSubFolder
DAO_Access: 11 hàm và procedure
TADO: 1 hàm duy nhất MakeConnection
GetIPFormInternet: 16 hàm và procedure (viết sai From - Form)
VBLibrary.dpr: 15 hàm và procedure

Các biến public từ interface của các unit như Unit1 f, UDF; ADO_Excel: SQL, Strcon
....
Keys chứ kg phải Kes nhen bác Mạn. . .
Còn rất nhiều nữa, nhưng lười gõ ra. Ai cần hỏi chi tiết class nào, function nào, unit nào thì mình sẽ trả lời chi tiết.
Code bác Mạnh ta là copy từ "tả pín lù" gom góp mà thành

 

[Nguyễn Duy Tuân]

tdstrp32.exe: Turbo Debugger 32-bit Symbol Table Stripper

Compiling Delphi 2006 Applications With Debug Information | TestComplete Documentation

Create and run automated tests for desktop, web and mobile (Android and iOS) applications (.NET, C#, Visual Basic .NET, C++, Java, Delphi, C++Builder, Intel C++ and many others).

support.smartbear.com

Bác Nguyễn Duy Tuân xem lại cái Addin Tools của bác build mode gì thế
À bà tám chút, sẵn đây nói với bác Tuân luôn, UltraViewer của VN ta, nó viết = VB nhé

Bạn nói vậy là biết móng tay của bạn rất nhọn rồi! Mình từ trước giờ không đố ai đâu nhé
Ngày trước mình cũng tò mò Ultra, bản 5.0 làm bằng VB6, sau này không biết có pha trộn gì các thư viện khác không nữa?

 

[ThangCuAnh]

Máy cô nv cùng phòng mình có cài, mình chỉ nhìn sơ qua thôi, kg có rờ em nó
Móng tay nhọn là sao bạn?
Bác Mạnh nhà ta dùng RAD Studio 2010

 

[batman1]

Liệt kê tên các hàm export thì dễ thôi.

Nhưng kieu manh chắc không đợi tên mà chắc đợi dạng này

function DoCreateWindow(aRemoteWnd: HWND): UINT; stdcall; export;
begin
  ...
end;

Có thu màn hình trong tập tin test.avi.



Thực ra nếu chỉ lấy mỗi tên thì mở trong Hex Editor cũng nhìn thấy. Thậm chí nếu dll không bự cỡ 20 MB thì mở bằng notepad cũng nhìn thấy (các chỗ "đọc được")

 

[Nguyễn Duy Tuân]

Liệt kê tên các hàm export thì dễ thôi.

Nhưng kieu manh chắc không đợi tên mà chắc đợi dạng này

function DoCreateWindow(aRemoteWnd: HWND): UINT; stdcall; export;
begin
  ...
end;

Có thu màn hình trong tập tin test.avi.

View attachment 220323

Vậy là anh cũng thấy full à?

 

[ThangCuAnh]

Tên unit, tên class, public variables, trong interface , tên biến của hàm, tên local variables trong hàm. . . Vv nhiều thứ nữa bác à
Export name thì tool PE nào coi cũng được.
Vd hàm Sum gì đó, 2 biến truyền vào là a, b. Result := a + b;
Đúng không bác Mạnh?

 

[befaint]

Anh kieu manh đi ngủ sớm rồi..
Sáng mai dậy buồn thiu cho mà xem
Thôi chuyển sang nghịch cái khác chung với em đi.

 

[Kiều Mạnh]

Anh kieu manh đi ngủ sớm rồi..
Sáng mai dậy buồn thiu cho mà xem
Thôi chuyển sang nghịch cái khác chung với em đi.

đang coi trên điện thoại ... mai nói sau ... coi được các đầu hàm à ... úp hết lên đi các hàm ấy cho cần thì copy ai hỏi mạnh trả lời cho ... viết trên điện thoại nhức mắt quá

 

[ThangCuAnh]

Befaint chịu, tin chưa nè? Tui đã nói là có tds symbols là có 80% source code rồi mà kg tin.
Lo build lại release mode, strip tds symbol đi, pack, protect dll thêm 1 lớp nữa

 

[Kiều Mạnh]

p

Code bác Mạnh ta là copy từ "tả pín lù" gom góp mà thành

Bạn nói vậy là ẩu đấy !!!???
1/ Toàn bộ code trong đó mạnh bắt đầu học và tập viết từ linh sau

AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé!

Đây là video hướng dẫn cách tạo DLL trên Delphi nhưng sử dụng trong VBA, Excel. Đây là phương pháp lập trình chuyên nghiệp nhưng không phải là khó. Giúp bạn bảo mật code của phần mềm tốt hơn. Loạt video hướng dẫn lập trình Delphi cơ bản của mình tại đây...

www.giaiphapexcel.com

2/ Trong file đó có rất nhiều hàm từ VBA mạnh lấy ý tưởng từ GPE xong chuyển qua code Delphi ( mục đích tạo thư viện hàm chung nhất để sử dụng khi cần thiết và tập viết code trên Delphi )

3/ trong thư viện đó như 1 mớ xà bần vì đang mò code test code viết dở linh tinh hết

4/ Toàn bộ code Delphi trong đó là mạnh viết hết đó ... có 1 vài code Copy trên mạng thì có lưu Link copy trong đó

5/ keo Mạnh "copy từ "tả pín lù" gom góp mà thành" là nói ẩu đó .... hãy thử lấy code trong đó ra cho mọi người xem là Mạnh copy từ đâu là biết ... phán xét như vậy là dụng trạm tới cái tôi của mạnh.... thấy ko thích lắm

6/ Khi mạnh đã úp lên rồi thì cứ thoải mái công khai code đó đi vì mạnh thích thế .... sẻ có nhiều người tham gia thì trình code của mạnh càng tiến bộ thêm nhưng Phán xét cho đúng là ok

Cảm ơn Bạn

 

[ThangCuAnh]

Hì hì, để bác bớt thách đố, khích bác, thử người khác. Bác không phải dân coder chuyên nghiệp, cũng không phải dân "rờ chxxx em" chuyên nghiệp, nên bác đừng nghĩ là người khác không biết, không làm được như bác.
Code của bác thì còn rất rất nhiều vấn đề để nói. Nhưng để sau. Tôi không muốn tranh cãi, hơn thua. Mắc công mang tội khẩu nghiệp.
Về vụ uses unit, tôi nói bác không hiểu à. Nghĩa là use nhưng unit thừa của Delphi RTL/VCL đấy. Không dùng mà uses thí xác.
Nên file VBLibrary.dll của bác, tổng cộng hơn 100 unit được compile và nhét vào, của bác 8, 9 unit, còn lại của Delphi RTL/VCL
Như cái video tạo DLL của bác Tuân đấy, nhìn vào là thấy ngay 2 unit không dùng tới mà vẫn uses, là System.SysUtils và System.Classes.
Nên tôi mới nói là cái nào không dùng thì remove ra, dùng { } đóng lại, compile thử có báo lỗi không. Không báo lỗi thì xóa luôn, có báo lỗi thì bỏ { } ra.
Mặc định duy nhất 1 unit là unit System được Delphi compiler tự động đưa vào binary code, không cần uses nó. Unit System.pas này là core của Delphi app. Rãnh rỗi thì vào thư mục Source\RTL mà đọc các file .pas trong đó, như Types, System, SysUtils, Classes... để xem bên trong Delphi app là "như thế lào"

 

[Kiều Mạnh]

Khỏi đánh đố đi bạn, bạn search trong thư mục cài Delphi của bạn tool tdstripxx.exe rồi chạy thử đi xem nó là gì ?
Lần sau có release thì chịu khó build release mode, tắt option debug symbols đi rồi tung ra.
Hì hì, search 1 chút thấy Project Jedi vẫn còn sống, bồi hồi, mừng, chứng tỏ cộng đồng Delphi vẫn còn support nó.

1/ làm ơn chỉ dùm mạnh cái dòng tô đậm ... có tác dụng và ý nghĩa gì ?!
2/ Tại chưa thấy ai xem được code Delphi 10 nên thử xem sao đó thôi ... chứ ko có thách (Thông cảm nha)
3/ Mạnh rất rõ ràng cái nào học hay copy là nói rất rõ ko bao giờ mập mờ cả mà gán cho mạnh Copy là thấy khó chịu
4/ cái gì Mạnh chưa biết hỏi thì chỉ cho mạnh với !?

Cảm ơn

 

[ThangCuAnh]

Cái link Delphi 2006 tui post ở trên, có chỉ cách bật tắt đó, vào đọc đi. Không hiểu gì thì trong Delphi IDE Project Options, nhấn F1 rồi đọc.

 

[Kiều Mạnh]

Cái link Delphi 2006 tui post ở trên, có chỉ cách bật tắt đó, vào đọc đi. Không hiểu gì thì trong Delphi IDE Project Options, nhấn F1 rồi đọc.

mới thử xong thấy File giảm 5M đó

 

[ThangCuAnh]

Còn nhiều cái để giảm size nữa, thử mò đi.

 

[Kiều Mạnh]

Còn nhiều cái để giảm size nữa, thử mò đi.

Thua ... chỉ dùm đi ... code két với mạnh tự học và mò ra rất lâu