برنامج VB Decompiler 3.4 لفتح الكود المصدرى لأى برنامج بلغة Visual Basic 6

EL MAGIC

zizo7up

شكرااااااااااااا ياماجيك على الشرح

انا فعلا كنت محتاج البرنامج ده

algaid3a

مشكورررررررررررررررررررر......................

ركن التقنية

اخي الكريم
هل تعلم مدى الضرر الذي قد تسببه عند استخدام مثل هذه البرامج !! هل تقدر مدى ضياع جهد المبرمج عند تفكك برنامجه الذي امضى ايام وشهور لانجازه ؟
لا اعتقد بانك تعلم لانك لو علمت ما طرحت البرامج المساعدة على الفرصنة ... اخي الكريم اتق الله وتذكر بانك محاسب على اعمالك
فلا تكن ممن ينشرون الضرر واترك مشاركاتك تنعم بما هو مفيد.

algeria

تابع جيد

الكود الذي تم استخراجه من البرنامج

Private Sub Command3_Click() '4061A0
loc_004061C2: var_8 = &H401188
loc_0040620D: var_24 = Form1.ForeColor
loc_00406229: call MSVBVM60.DLL.__vbaStrI4(var_24, arg_8)
loc_00406244: fstp real8 ptr var_2C
loc_00406261: var_18 = ************1.************
loc_00406289: call MSVBVM60.DLL.__vbaFpR8("", Val(MSVBVM60.DLL.__vbaStrI4(var_24, arg_8)), arg_8)
loc_0040628F: fstp real8 ptr var_50
loc_00406292: fld real8 ptr var_2C
loc_00406295: call MSVBVM60.DLL.__vbaFpR8
loc_0040629B: fcomp real8 ptr var_50
loc_0040629E: fstsw ax
loc_004062A3: If MSVBVM60.DLL.__vbaFpR8 <> 0 Then
loc_004062AA: GoTo loc_004062AE
loc_004062AC: End If
loc_004062AE: 'Referenced from 004062AA
loc_004062B6: neg eax
loc_004062D1: If eax <> 0 Then
loc_004062D3: Call Beep
loc_004062D9: GoTo loc_0040632E
loc_004062DB: End If
loc_004062F1: Form1.Windowstate = %x1
loc_00406312: Call Form1.DataShow
loc_0040632E: var_4 = 0
loc_0040633B: GoTo loc_0040635A
loc_00406359: Exit Sub
loc_0040635A: 'Referenced from 0040633B
loc_0040635A: Exit Sub
loc_00406377: Exit Sub
End Sub

Private Sub Command7_Click() '406910
loc_00406932: var_8 = &H4011C8
loc_00406972: var_24 = 10
loc_004069AF: Form1.Show edi, esi
loc_004069CD: var_4 = 0
loc_004069F0: Exit Sub
End Sub

Private Sub Command9_Click() '406A00
loc_00406A22: var_8 = &H4011D0
loc_00406A4D: var_2C = "C:\N.zip"
loc_00406A54: var_34 = 8
loc_00406A5B:
loc_00406A65: Kill ""
loc_00406A7C: GoTo loc_00406A88
loc_00406A87: Exit Sub
loc_00406A88: 'Referenced from 00406A7C
loc_00406A88: Exit Sub
loc_00406AA5: Exit Sub
End Sub

Private Sub CmSave_Click() '405730
loc_00405755: var_8 = &H401158
loc_00405780: var_80 = 80020004h
loc_00405788: var_70 = 80020004h
loc_004057CA: var_88 = 10
loc_004057D0: var_78 = 10
loc_004057D3: var_B0 = "Save"
loc_004057DD: var_B8 = 8
loc_004057F2: var_90 = 4
loc_00405806: var_A0 = "Are You Sure To Save This Data ?"
loc_00405810: var_A8 = 8
loc_0040581A: var_58 = "Are You Sure To Save This Data ?"
loc_0040583A: var_48 = "" & 3
loc_00405841: var_48 = @CLng("Save")
loc_0040584C: MsgBox(var_58, var_48, var_78, var_88, edi)
loc_00405853: call MSVBVM60.DLL.__vbaStrI4(MsgBox(var_58, var_48, var_78, var_88, edi), esi, arg_8, arg_8, arg_8, arg_8, arg_8, arg_8, arg_8)
loc_0040585E: var_18 = MSVBVM60.DLL.__vbaStrI4(MsgBox(var_58, var_48, var_78, var_88, edi), esi, arg_8, arg_8, arg_8, arg_8, arg_8, arg_8, arg_8)
loc_0040588A: call MSVBVM60.DLL.__vbaR8Str(var_18)
loc_00405890: fcomp real8 ptr [00401150h] ;
loc_00405896: fstsw ax
loc_0040589B: If MSVBVM60.DLL.__vbaR8Str(var_18) = 0 Then
loc_004058C6: Form1.Caption = ""
loc_004058ED: var_98 = 8
loc_004058FA: var_90 = "ÑÞã"
loc_0040590B: var_EC = ""
loc_00405920: Form1.var_38 = Forms
loc_00405961: var_2C = ************1.************
loc_0040598C: var_48 = 8
loc_00405997: var_40 = ""
loc_004059A9: Call Form1.GetPalette("", arg_8, arg_8)
loc_00405A00: Form1.Caption = ""
loc_00405A27: var_98 = 8
loc_00405A34: var_90 = "ÇáÇÓã"
loc_00405A45: var_EC = ""
loc_00405A5A: Form1.var_38 = Forms
loc_00405A9B: var_2C = ************2.************
loc_00405AC6: var_48 = 8
loc_00405AD1: var_40 = ""
loc_00405AE3: Call Form1.GetPalette("", arg_8, arg_8)
loc_00405B3A: Form1.Caption = ""
loc_00405B61: var_98 = 8
loc_00405B6E: var_90 = "ÇáÚãÑ"
loc_00405B7F: var_EC = ""
loc_00405B94: Form1.var_38 = Forms
loc_00405BD5: var_2C = ************3.************
loc_00405C00: var_48 = 8
loc_00405C0B: var_40 = ""
loc_00405C1D: Call Form1.GetPalette("", arg_8, arg_8)
loc_00405C78: var_A8 = 10
loc_00405C7E: var_98 = 10
loc_00405C91: var_A0 = 80020004h
loc_00405C97: var_90 = 80020004h
loc_00405CD9: Form1.Fontname = %x1
loc_00405D1B: var_70 = 80020004h
loc_00405D1E: var_60 = 80020004h
loc_00405D21: var_A0 = "Save"
loc_00405D2B: var_A8 = 8
loc_00405D3C: var_90 = "Data Has Saved Successfully"
loc_00405D46: var_98 = 8
loc_00405D60: MsgBox("Data Has Saved Successfully", 00000040h, "Save", 10, 10)
loc_00405D9E: CmSave.Enabled = esi
loc_00405DC5: End If
loc_00405DCE: GoTo loc_00405E10
loc_00405E0F: Exit Sub
loc_00405E10: 'Referenced from 00405DCE
loc_00405E22: Exit Sub
End Sub

Private Sub Command5_Click() '4064F0
loc_00406512: var_8 = &H4011A8
loc_00406533: var_18 = 0
loc_00406557: ************1.************ = 00403708h
loc_00406598: ************2.************ = 00403708h
loc_004065DB: ************3.************ = 00403708h
loc_004065FE: var_4 = 0
loc_0040660A: GoTo loc_00406616
loc_00406615: Exit Sub
loc_00406616: 'Referenced from 0040660A
loc_00406616: Exit Sub
loc_00406633: Exit Sub
End Sub

Private Sub Command2_Click() '406030
loc_00406052: var_8 = &H401178
loc_00406095: var_18 = ************1.************
loc_004060C7: call MSVBVM60.DLL.__vbaFpR8(arg_8, arg_8, "", arg_8, arg_8, arg_8, arg_8, arg_8, arg_8)
loc_004060CD: fcomp real8 ptr [00401138h] ;
loc_004060D3: fstsw ax
loc_004060D8: If MSVBVM60.DLL.__vbaFpR8(arg_8, arg_8, "", arg_8, arg_8, arg_8, arg_8, arg_8, arg_8) <> 0 Then
loc_004060DF: GoTo loc_004060E3
loc_004060E1: End If
loc_004060E3: 'Referenced from 004060DF
loc_004060E3: neg eax
loc_004060FC: If eax <> 0 Then
loc_004060FE: Call Beep
loc_00406104: GoTo loc_00406156
loc_00406106: End If
loc_00406121: Form1.Enabled = %x1
loc_0040613E: Call Form1.DataShow
loc_00406156: var_4 = 0
loc_00406163: GoTo loc_00406178
loc_00406177: Exit Sub
loc_00406178: 'Referenced from 00406163
loc_00406178: Exit Sub
loc_00406195: Exit Sub
End Sub

Private Sub CmAdd_Click() '4051F0
loc_00405212: var_8 = &H401128
loc_00405233: var_18 = 0
loc_00405257: ************1.************ = 00403708h
loc_00405298: ************2.************ = 00403708h
loc_004052D9: ************3.************ = 00403708h
loc_00405320: var_28 = 10
loc_00405330: var_20 = 80020004h
loc_0040535D: arg_8 = Form1.Top
loc_00405392: CmSave.Enabled = FFFFFFFFh
loc_004053D2: Command5.Visible = FFFFFFFFh
loc_004053F5: var_4 = 0
loc_00405401: GoTo loc_0040540D
loc_0040540C: Exit Sub
loc_0040540D: 'Referenced from 00405401
loc_0040540D: Exit Sub
loc_0040542A: Exit Sub
End Sub

Private Sub CmDelete_Click() '405430
loc_00405455: var_8 = &H401140
loc_004054E2: If ""C <> edi Then
loc_004054F3: var_70 = 80020004h
loc_004054FB: var_60 = 80020004h
loc_00405507: var_78 = 10
loc_0040550A: var_68 = 10
loc_0040550D: var_A0 = "Delete"
loc_00405517: var_A8 = 8
loc_0040552C: var_80 = 1
loc_0040553D: var_90 = "Are You Sure To Delete This Data ?"
loc_00405547: var_98 = 8
loc_00405551: var_48 = "Are You Sure To Delete This Data ?"
loc_0040556E: var_38 = "" & 3
loc_00405575: var_38 = @CLng("Delete")
loc_00405580: MsgBox(var_48, var_38, var_68, var_78, esi)
loc_00405587: call MSVBVM60.DLL.__vbaStrI4(MsgBox(var_48, var_38, var_68, var_78, esi), %ecx = %var2)
loc_00405592: var_28 = MSVBVM60.DLL.__vbaStrI4(MsgBox(var_48, var_38, var_68, var_78, esi), var_28 = %var2)
loc_004055BB: call MSVBVM60.DLL.__vbaR8Str(var_28)
loc_004055C1: fcomp real8 ptr [00401138h] ;
loc_004055C7: fstsw ax
loc_004055CC: If MSVBVM60.DLL.__vbaR8Str(var_28) = 0 Then
loc_004055E9: Form1.Width = 00000001h
loc_0040561D: %x1 = Form1.Enabled
loc_00405645: var_60 = 80020004h
loc_00405648: var_50 = 80020004h
loc_0040565F: var_90 = "Delete"
loc_00405669: var_98 = 8
loc_0040567A: var_80 = "Data Has Deleted Sucessfully"
loc_00405681: var_88 = 8
loc_0040569B: MsgBox("Data Has Deleted Sucessfully", 00000040h, "Delete", 10, 10)
loc_004056BE: End If
loc_004056BE: End If
loc_004056C7: GoTo loc_004056E9
loc_004056E8: Exit Sub
loc_004056E9: 'Referenced from 004056C7
loc_004056FB: Exit Sub
End Sub

Private Sub Command1_Click() '405E50
loc_00405E72: var_8 = &H401168
loc_00405EBD: var_24 = Form1.ForeColor
loc_00405ED9: call MSVBVM60.DLL.__vbaStrI4(var_24, arg_8)
loc_00405EF4: fstp real8 ptr var_2C
loc_00405F11: var_18 = ************1.************
loc_00405F39: call MSVBVM60.DLL.__vbaFpR8("", Val(MSVBVM60.DLL.__vbaStrI4(var_24, arg_8)), arg_8)
loc_00405F3F: fstp real8 ptr var_50
loc_00405F42: fld real8 ptr var_2C
loc_00405F45: call MSVBVM60.DLL.__vbaFpR8
loc_00405F4B: fcomp real8 ptr var_50
loc_00405F4E: fstsw ax
loc_00405F53: If MSVBVM60.DLL.__vbaFpR8 <> 0 Then
loc_00405F5A: GoTo loc_00405F5E
loc_00405F5C: End If
loc_00405F5E: 'Referenced from 00405F5A
loc_00405F66: neg eax
loc_00405F81: If eax <> 0 Then
loc_00405F83: Call Beep
loc_00405F89: GoTo loc_00405FDE
loc_00405F8B: End If
loc_00405FA1: %x1 = Form1.Enabled
loc_00405FC2: Call Form1.DataShow
loc_00405FDE: var_4 = 0
loc_00405FEB: GoTo loc_0040600A
loc_00406009: Exit Sub
loc_0040600A: 'Referenced from 00405FEB
loc_0040600A: Exit Sub
loc_00406027: Exit Sub
End Sub

Private Sub Form_Load() '406AB0
loc_00406AD2: var_8 = &H4011E0
loc_00406AF8: var_18 = 0
loc_00406B23: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gg.mdb;Persist Security Info=False" = Form1.Caption
loc_00406BAB: 00000001h = Form1.Mousepointer
loc_00406BCC: Call Form1.DataShow
loc_00406C05: CmSave.Enabled = 00000000h
loc_00406C43: Command5.Visible = 00000000h
loc_00406C6A: var_4 = 0
loc_00406C76: GoTo loc_00406C82
loc_00406C81: Exit Sub
loc_00406C82: 'Referenced from 00406C76
loc_00406C82: Exit Sub
loc_00406C9F: Exit Sub
End Sub

Private Sub Command4_Click() '406380
loc_004063A2: var_8 = &H401198
loc_004063E5: var_18 = ************1.************
loc_00406417: call MSVBVM60.DLL.__vbaFpR8(arg_8, arg_8, "", arg_8, arg_8, arg_8, arg_8, arg_8, arg_8)
loc_0040641D: fcomp real8 ptr [00401138h] ;
loc_00406423: fstsw ax
loc_00406428: If MSVBVM60.DLL.__vbaFpR8(arg_8, arg_8, "", arg_8, arg_8, arg_8, arg_8, arg_8, arg_8) <> 0 Then
loc_0040642F: GoTo loc_00406433
loc_00406431: End If
loc_00406433: 'Referenced from 0040642F
loc_00406433: neg eax
loc_0040644C: If eax <> 0 Then
loc_0040644E: Call Beep
loc_00406454: GoTo loc_004064A6
loc_00406456: End If
loc_00406471: %x1 = Form1.Windowstate
loc_0040648E: Call Form1.DataShow
loc_004064A6: var_4 = 0
loc_004064B3: GoTo loc_004064C8
loc_004064C7: Exit Sub
loc_004064C8: 'Referenced from 004064B3
loc_004064C8: Exit Sub
loc_004064E5: Exit Sub
End Sub

Private Sub Command6_Click() '406640
loc_00406665: var_8 = &H4011B8
loc_00406690: var_50 = 80020004h
loc_00406698: var_40 = 80020004h
loc_004066BC: var_70 = "ÊäÈíÉ"
loc_004066C3: var_78 = 8
loc_004066D2: var_60 = "åá ÊÑíÏ ÊÚÏíá ÇáÓÌá ÇáÍÇáí"
loc_004066D9: var_68 = 8
loc_004066F7: MsgBox("åá ÊÑíÏ ÊÚÏíá ÇáÓÌá ÇáÍÇáí", 00100024h, "ÊäÈíÉ", 10, 10)
loc_00406702: setz cl
loc_00406705: neg ecx
loc_00406730: If var_9C <> ebx Then
loc_00406751: ************1.Enabled = FFFFFFFFh
loc_00406793: ************2.Enabled = FFFFFFFFh
loc_004067D5: ************3.Enabled = FFFFFFFFh
loc_00406819: CmSave.Enabled = FFFFFFFFh
loc_0040683C: GoTo loc_004068B3
loc_0040683E: End If
loc_00406848: var_50 = 80020004h
loc_0040684B: var_40 = 80020004h
loc_0040685F: var_70 = "ÊäÈíÉ"
loc_00406866: var_78 = 8
loc_00406871: var_60 = "áã íÊã ÊÚÏíá ÇáÍÞæá"
loc_00406878: var_68 = 8
loc_00406892: MsgBox("", 00100040h, "", 10, 10)
loc_004068B3: 'Referenced from 0040683C
loc_004068BB: GoTo loc_004068E2
loc_004068E1: Exit Sub
loc_004068E2: 'Referenced from 004068BB
loc_004068E2: Exit Sub
loc_004068FF: Exit Sub
End Sub

Public Sub DataShow() '404B10
loc_00404B32: var_8 = &H401118
loc_00404B78: Form1.Caption = ""
loc_00404BB3: var_50 = ""
loc_00404BC7: Form1.var_20 = Forms
loc_00404BEA: call Form1.SaveProp("", 00000008h)
loc_00404C30: If IsNull("") <> 0 Then
loc_00404C4D: ************1.************ = 00403708h
loc_00404C70: GoTo loc_00404D76
loc_00404C89: var_60 = ""
loc_00404CA6: ************1.Index = ""
loc_00404CD3: var_50 = ""
loc_00404CE7: Form1.var_20 = Forms
loc_00404D0A: Call Form1.SaveProp("", "", "", arg_8, arg_8)
loc_00404D33: Form1.Mousepointer = @CStr("")
loc_00404D76: 'Referenced from 00404C70
loc_00404D93: Form1.Caption = ""
loc_00404DC0: var_50 = ""
loc_00404DD4: Form1.var_20 = Forms
loc_00404DF7: Call Form1.SaveProp("")
loc_00404E3D: If IsNull("") <> 0 Then
loc_00404E5A: ************2.************ = 00403708h
loc_00404E7D: GoTo loc_00404F83
loc_00404E96: var_60 = ""
loc_00404EB3: ************2.Index = ""
loc_00404EE0: var_50 = ""
loc_00404EF4: Form1.var_20 = Forms
loc_00404F17: Call Form1.SaveProp("", "", "", arg_8, arg_8)
loc_00404F40: Form1.Mousepointer = @CStr("")
loc_00404F83: 'Referenced from 00404E7D
loc_00404FA0: Form1.Caption = ""
loc_00404FCD: var_50 = ""
loc_00404FE1: Form1.var_20 = Forms
loc_00405004: Call Form1.SaveProp("")
loc_0040504A: If IsNull("") <> 0 Then
loc_00405067: ************3.************ = 00403708h
loc_0040508A: GoTo loc_00405190
loc_004050A3: var_60 = ""
loc_004050C0: ************3.Index = ""
loc_004050ED: var_50 = ""
loc_00405101: Form1.var_20 = Forms
loc_00405124: Call Form1.SaveProp("", "", "", arg_8, arg_8)
loc_0040514D: Form1.Mousepointer = @CStr("")
loc_00405190: 'Referenced from 0040508A
loc_00405195: GoTo loc_004051C1
loc_004051C0: Exit Sub
loc_004051C1: 'Referenced from 00405195
loc_004051C1: Exit Sub
loc_004051DE: Exit Sub
End Sub

Private Sub Unknown_405720()
loc_00405722: Exit Sub
End Sub






الكود الاصلي للبرنامج تابع جيدا

Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
'ÇáÈíÇäÇÊ áÇÒã Êßæä ããÊáíå ÚÔÇä ÊÈÊÚÏ Úä åÇáãÔßáå æãÇíÞæá ÎØÇ
Sub DataShow()

If IsNull(RS("ÑÞã").Value) Then
************1.************ = ""
Else
************1.************ = RS("ÑÞã").Value
End If
If IsNull(RS("ÇáÇÓã").Value) Then
************2.************ = ""
Else
************2.************ = RS("ÇáÇÓã").Value
End If
If IsNull(RS("ÇáÚãÑ").Value) Then
************3.************ = ""
Else
************3.************ = RS("ÇáÚãÑ").Value
End If
End Sub




Private Sub CmAdd_Click()


************1 = ""
************2 = ""
************3 = ""

RS.AddNew
CmSave.Enabled = True
Command5.Visible = True



End Sub

Private Sub CmDelete_Click()


Dim Y As String
If RS.RecordCount = 0 Then Exit Sub
Y = MsgBox("Are You Sure To Delete This Data ?", VbQustion + vbOKCancel, "Delete")
If Y = vbCancel Then Exit Sub
RS.Delete
RS.MoveNext
MsgBox "Data Has Deleted Sucessfully", vbInformation, "Delete"


End Sub



Private Sub CmEdit_Click()

End Sub

Private Sub CmSave_Click()


Dim O As String
O = MsgBox("Are You Sure To Save This Data ?", VbQustion + vbYesNo, "Save")
If O = vbNo Then Exit Sub


RS.Fields!ÑÞã = ************1.************
RS.Fields!ÇáÇÓã = ************2.************
RS.Fields!ÇáÚãÑ = ************3.************
RS.Update
MsgBox "Data Has Saved Successfully", vbInformation, "Save"
CmSave.Enabled = False




End Sub

Private Sub Command1_Click()


If Val(************1.************) = Val(RS.RecordCount) Then
Beep
Else
RS.MoveNext
DataShow
End If




End Sub

Private Sub Command2_Click()

If Val(************1.************) < 2 Then
Beep
Else
RS.MovePrevious
DataShow
End If




End Sub

Private Sub Command3_Click()

If Val(************1.************) = Val(RS.RecordCount) Then
Beep
Else
RS.MoveLast
DataShow
End If


End Sub

Private Sub Command4_Click()


If Val(************1.************) < 2 Then
Beep
Else
RS.MoveFirst
DataShow
End If










End Sub



Private Sub Command5_Click()

************1.************ = ""
************2.************ = ""
************3.************ = ""






End Sub


Private Sub Command6_Click()


If MsgBox("åá ÊÑíÏ ÊÚÏíá ÇáÓÌá ÇáÍÇáí", vbQuestion _
+ vbMsgBoxRtlReading + vbYesNo, "ÊäÈíÉ") = vbYes Then

************1.Enabled = True
************2.Enabled = True
************3.Enabled = True
CmSave.Enabled = True




Else
MsgBox "áã íÊã ÊÚÏíá ÇáÍÞæá", vbInformation _
+ vbMsgBoxRtlReading + vbOKOnly, "ÊäÈíÉ"
End If


End Sub



Private Sub Command7_Click()
frmQuery.Show
End Sub

Private Sub Form_Load()

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gg.mdb;Persist Security Info=False"
RS.Open "H Order by ÑÞã ", DB, adOpenKeyset, adLockOptimistic
DataShow
CmSave.Enabled = False
Command5.Visible = False


End Sub


هنا نستطيع القول ان البرنامج لا يستخرج الكود سورس للبرنامج وانما يعطيك نبذه قليل عن البرنامج الاصلي

لهذا لا اوفق في الكلام


لاني عملت بحث في المجال كم اني اتصلت باساتثة في الجمعات وكان الجواب انه من المستحيل استخراج الكود السوس
والتعامل به

كل هذه المعلمومات تعتبر مجرد بحث اجريته لصناعة برنامج يعمل مثل برنامج اخر

وللاسف لم انجح في مشروعي حيث لزلت لحد الان ابحث علي كود يعطي امر معين للملف ولم اجد الحل لهذا


علي العموم تشكر