phan mềm du toán 2008

Gửi cho các bạn 2/3 đoạn code dự toán 2008 để các bạn ngâm kíu nhé:

Trích dẫn :

Private Declare Function GetMeID Lib "excelqt.dll" (ByVal RT As String) As Integer
Declare Function GetActiveWindow Lib "user32" () As Long

Function ThongtinKTXD(ByVal ODIA As String, SOHDDSR As Integer) As String
Dim Serial As String
Dim ret As Integer
Serial = Space$(256)
ret = GetMeID(Serial)
If SOHDDSR = 13971 Then
ThongtinKTXD = Serial
ThongtinKTXD = Trim(ThongtinKTXD)
Else
ThongtinKTXD = ""
End If
End Function

Function NumberWindow() As Long
Dim NumberWND As Long
NumberWindow = GetActiveWindow()
End Function

Function HuongdanSD()
Application.Help "C:\DUTOAN97\DT2001.HLP"
End Function

Function OPENDIALOG()
If Val(Application.Version) > 7 Then
OPENDIALOG = Application.GetOpenFilename("Du lieu DBF (*.dbf),*.dbf,All Files (*.*),*.*", 1, "Open DBF", "Open")
Else
OPENDIALOG = ExecuteExcel4Macro("OPEN.DIALOG(""Du lieu DBF,*.dbf,All Files,*.*"",""Open"",""Open DBF"",1)")
End If
End Function

Function OPENDIALOGDUTOAN()
If Val(Application.Version) > 7 Then
OPENDIALOGDUTOAN = Application.GetOpenFilename("Du toan 97 - Phien ban 2009 (*.xls),*.xls,Du toan 97 - VKT (*.vkt),*.vkt,All Files (*.*),*.*", 1, "Open Du toan 2009", "Open")
Else
OPENDIALOGDUTOAN = ExecuteExcel4Macro("OPEN.DIALOG(""Du toan 97 - Phien ban 2009,*.xls,Du toan 97 - VKT,*.vkt,All Files,*.*"",""Open"",""Open Du toan 2009"",1)")
End If
End Function

Function RUN_PROGRESS()
On Error Resume Next
Shell "C:\DUTOAN97\Progress", 1
End Function

'--------------------------------
Function Decrypt_dutoan(key As Long, salt As Boolean, s As String) As String
Decrypt_dutoan = StrDecode(s, key, salt)
End Function
Function Encrypt_dutoan(key As Long, salt As Boolean, s As String) As String
Encrypt_dutoan = StrEncode(s, key, salt)
End Function
Function StrEncode(ByVal s As String, key As Long, salt As Boolean) As String
Dim n As Long, i As Long, ss As String
Dim k1 As Long, k2 As Long, k3 As Long, k4 As Long, t As Long
Static saltvalue As String * 4
If salt Then
For i = 1 To 4
t = 100 * (1 + Asc(Mid(saltvalue, i, 1))) * Rnd() * (Timer + 1)
Mid(saltvalue, i, 1) = Chr(t Mod 256)
Next
s = Mid(saltvalue, 1, 2) & s & Mid(saltvalue, 3, 2)
End If
n = Len(s)
ss = Space(n)
ReDim sn(n) As Long
k1 = 11 + (key Mod 233): k2 = 7 + (key Mod 239)
k3 = 5 + (key Mod 241): k4 = 3 + (key Mod 251)
For i = 1 To n: sn(i) = Asc(Mid(s, i, 1)): Next i
For i = 2 To n: sn(i) = sn(i) Xor sn(i - 1) Xor ((k1 * sn(i - 1)) Mod 256): Next
For i = n - 1 To 1 Step -1: sn(i) = sn(i) Xor sn(i + 1) Xor (k2 * sn(i + 1)) Mod 256: Next
For i = 3 To n: sn(i) = sn(i) Xor sn(i - 2) Xor (k3 * sn(i - 1)) Mod 256: Next
For i = n - 2 To 1 Step -1: sn(i) = sn(i) Xor sn(i + 2) Xor (k4 * sn(i + 1)) Mod 256: Next
For i = 1 To n: Mid(ss, i, 1) = Chr(sn(i)): Next i
StrEncode = ss
saltvalue = Mid(ss, Len(ss) / 2, 4)
End Function
Function StrDecode(ByVal s As String, key As Long, salt As Boolean) As String
Dim n As Long, i As Long, ss As String
Dim k1 As Long, k2 As Long, k3 As Long, k4 As Long

cái này dùng thế nào được phú quang, bạn nói rõ tý được ko

Thấy các bạn bàn luận thê này chán quá đoạn code phuquang đưa ra chỉ cần dùng phân mền mơ ra ngay hiện nay cái nay mình có thể cấp quyền sư dụng ngon lành như cao lỗi các bạn mình không cho các bạn được.
Cái này ban vingtg có thể giải được đấy nó chỉ mã hoá mã chút thôi bạn chụi khó mò là ra mà

Mình ngại không dám đưa lên diễn đàn các bạn tự tìm hiểu đi nha.

Ông Trần Tính hướng này nói gửi dự toán 2008 không được cuối cùng im ru luôn không biết ổng có gửi không nữa.

không phải là không gửi mà do file mình upload len ko được nên mình chưa thể gửi cho mọi người được, nó gần 500M nên rất nặng, mà mình ko hiểu được tại sao mình Lại ko upload được nữa, cứ upload được một lúc thì nó lại báo lỗi, mình upload chừng đó mà mất gần 3 tiếng nhưng khi gửi cho các bạn thì mở ra ko thấy gì,mình ko hiểu là tại sao nữa, khi mình bỏ bớt đi thì úp lên lại không cài được, nên mình đang tìm cách upload lên nữa, có gì thì nhắn tin lại cho mình nhé

Ban nao co be khoa phan mem du toan G8 thi cho minh xin nhe va ban nao co don gia dbf cua phan mem du toan 2007 (du toan acitt) cua Vien kinh te xay dung don gia tinh Thua thien Hue dung dinh muc 24 thi cho minh xin nhe.Minh xin cam on

mai tớ upload lên cho

http://www.mediafire.com/?sharekey=3a3d5b49aa3343c5d8f14848abf485ddefbd215fff93a589f1940a51b339e393

đây là đơn giá mới của Huế, bạn download về xem sao nhé

Up PM lên chưa Hướng ơi! Mình nôn nóng qúa không biết loại này khó Cr** không

Đây là trọn bộ của thằng Dự toán 2008, phú quang xem sao nhé, bạn load về rùi giải nén cho vào 1 thư mục nhé

http://www.mediafire.com/?sharekey=3a3d5b49aa3343c5d8f14848abf485dde04e75f6e8ebb871
http://www.mediafire.com/?sharekey=3a3d5b49aa3343c5d8f14848abf485dde04e75f6e8ebb871
http://www.mediafire.com/?sharekey=3a3d5b49aa3343c5d8f14848abf485dde04e75f6e8ebb871
có gì thiếu thì nhắn lại để gửi tiếp nhé
đang có 1 file office Xp nhưng ko upload được. mà chắc file này ko quan trọng nên mình chưa up lên.

nhờ phú quang giúp mình và cũng là giúp diễn đàn chút nhé.
cảm ơn trước, có gì lúc nào ra VINH anh em ta gặp nhau sau

Tổng thể lại bộ cài của bạn vẫn chưa cài được. Chán thật

the van chua cai duoc ah, up len ca rui ma

mình thử tải xuống giải nén ra thì vẫn có bộ cài trong đó và đầy đủ các bộ mà mình lấy từ đĩa ra mà phú quang, bạn xem lại thứ coi

bạn xem lại xem nhé

có lẽ là bạn chưa gom chúng vào 1 thư muc nên khi cài nó hỏi các mục đó cũng nên, bạn thứ gom vào 1 thứ muc có tên là Du toan 2008 xem sao

Gom thử rồi không được bạn ơi. mà sao file cài đặt chỉ có 1,5M là không đúng rồi
Bạn xem lại nhé!
mà sao chỉ gửi file cài đặt mà sao bạn lại làm khó khăn đến thế nhỉ. không hiểu được ý bạn là sao nữa.
Mail xủa bạn là gì mình sẽ liên lạc để chỉ bạn cách upload

mình cũng úp load từ trang Media firi lên diễn đàn mà
tthuongidco@gmail.com đây là địc chỉ của mình,

bạn ghi địa chỉ của bạn ở đâu mình sẽ gởi đĩa CD cho bạn,

mình nghĩ ra rùi, bộ cài này nó bắt cài ở đĩa CD chứ khi coppy vào máy tính thì ko thể cài được, mà chắc là vậy đó

mINH CHUA DOWN DUOC DON GIA *DBF CUA PHAN MEM DU TOAN 2008 ACITT CUA TINH THUA THIEN HUE LINK DOWN K DOWN DC DAU . BAN NAO CO BAN BE KHOA PHAN MEM DU TOAN 2008 ACITT THI UP LEN TREN DIEN DAN CHIA SE VOI MOI NGUOI MINH .BAN NAO CO BAN BE KHOA THI CU UP LEN DIEN DAN CO GI THI MOI NGUOI CUNG BE VA DUA RA CACH BE KHOA .BAN PHUQUANG CO BAN BE KHOA THI CHO MINH XIN DE MINH BE CHO NEU BAN CHUA CRACK DUOC MAC DU BAN CO FILE.mAIL CUA MINH LA KHONGMINHCUONG2008@YAHOO.COM.VN DIEN THOAI DI DONG LA 0989355109 MINH TEN LA SON

Có phải bạn đang dùng Dutoan 97 phiên bản 2008? Up mã khoá cứng lên, mình sẽ gửi lại key cho bạn. OK
Tiện đây bạn nào cần key của Dutoan97 phiên bản 2007, 2008, 2009 cứ up mã khoá cứng lên, mình sẽ gửi lại key.

phamtv đã viết:

Có phải bạn đang dùng Dutoan 97 phiên bản 2008? Up mã khoá cứng lên, mình sẽ gửi lại key cho bạn. OK
Tiện đây bạn nào cần key của Dutoan97 phiên bản 2007, 2008, 2009 cứ up mã khoá cứng lên, mình sẽ gửi lại key.

Bạn giúp mình với nhé. mã cứng của mình là E5F899A215 mình có 1 mã trả lời là 1602100379 nhưng không sử dụng được.thanks bạn nhé. (đây là mã cứng của dự toán 2008)

nhân tiện cho mình hỏi bạn pham tv là khi chúng ta cài dự toán 97 phiên bản 2008 thì bắt buộc chúng ta phải dùng mã khóa cúng để của chương trình để tạo key, nhưng mà mình nghĩ là chắc khóa cứng thì vẫn ko thể chạy được có phải ko? vì có hôm mình cài dự toán 97 phiên bản 2007 sau khi có khóa cứng thì mình tạo key cho nó nhưng khi đã có key, nhập vào mà nó vẫn ko chạy được? có phải cần cả mã của mã tính mình cái nữa ko vậy